ToC DocOverview CGDoc RelNotes Index PermutedIndex
Allegro CL
Home Previous Up Next Table of Contents Index
  ANSI Common Lisp   11 Packages   11.2 Dictionary of Packages

11.2.28 *package* Variable

Value Type:
a package object.

Initial Value:
the common-lisp-user package.

Description:
Whatever package object is currently the value of *package* is referred to as the current package.

Examples:
 (in-package "COMMON-LISP-USER")  #<PACKAGE "COMMON-LISP-USER">
 *package*  #<PACKAGE "COMMON-LISP-USER">
 (make-package "SAMPLE-PACKAGE" :use '("COMMON-LISP"))
 #<PACKAGE "SAMPLE-PACKAGE">
 (list 
   (symbol-package
     (let ((*package* (find-package 'sample-package)))
       (setq *some-symbol* (read-from-string "just-testing"))))
   *package*)
 (#<PACKAGE "SAMPLE-PACKAGE"> #<PACKAGE "COMMON-LISP-USER">)
 (list (symbol-package (read-from-string "just-testing"))
       *package*)
 (#<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "COMMON-LISP-USER">)
 (eq 'foo (intern "FOO"))  true
 (eq 'foo (let ((*package* (find-package 'sample-package)))
            (intern "FOO")))
 false

Affected By:
load, compile-file, in-package

See Also:
compile-file, in-package, load, package

Allegro CL Implementation Details:
None.

Home Previous Up Next Table of Contents Index
© Franz Inc. 1998-2009 - File last updated 7-21-2009