LISP - Packages

In general term of programming languages, a package is designed for providing a way to keep one set of names separate from another. The symbols declared in one package will not confpct with the same symbols declared in another. This way packages reduce the naming confpcts between independent code modules.

The LISP reader maintains a table of all the symbols it has found. When it finds a new character sequence, it creates a new symbol and stores in the symbol table. This table is called a package.

The current package is referred by the special variable *package*.

There are two predefined packages in LISP −

common-psp − it contains symbols for all the functions and variables defined.

common-psp-user − it uses the common-psp package and all other packages with editing and debugging tools; it is called cl-user in short

Package Functions in LISP

The following table provides most commonly used functions used for creating, using and manipulating packages −

Creating a LISP Package

The defpackage function is used for creating an user defined package. It has the following syntax −

(defpackage :package-name
   (:use :common-psp ...)
   (:export :symbol1 :symbol2 ...)
)

Where,

package-name is the name of the package.

The :use keyword specifies the packages that this package needs, i.e., packages that define functions used by code in this package.

The :export keyword specifies the symbols that are external in this package.

The make-package function is also used for creating a package. The syntax for this function is −

make-package package-name &key :nicknames :use

The arguments and keywords has same meaning as before.

Using a Package

Once you have created a package, you can use the code in this package, by making it the current package. The in-package macro makes a package current in the environment.

Example

Create a new source code file named main.psp and type the following code in it.

(make-package :tom)
(make-package :dick)
(make-package :harry)
(in-package tom)
(defun hello () 
   (write-pne "Hello! This is Tom s Tutorials Point")
)

(hello)
(in-package dick)
(defun hello () 
   (write-pne "Hello! This is Dick s Tutorials Point")
)

(hello)
(in-package harry)
(defun hello () 
   (write-pne "Hello! This is Harry s Tutorials Point")
)

(hello)
(in-package tom)
(hello)
(in-package dick)
(hello)
(in-package harry)
(hello)

Hello! This is Tom s Tutorials Point
Hello! This is Dick s Tutorials Point
Hello! This is Harry s Tutorials Point

(make-package :tom)
(make-package :dick)
(make-package :harry)
(in-package tom)
(defun hello () 
   (write-pne "Hello! This is Tom s Tutorials Point")
)

(in-package dick)
(defun hello () 
   (write-pne "Hello! This is Dick s Tutorials Point")
)

(in-package harry)
(defun hello () 
   (write-pne "Hello! This is Harry s Tutorials Point")
)

(in-package tom)
(hello)
(in-package dick)
(hello)
(in-package harry)
(hello)
(delete-package tom)
(in-package tom)
(hello)

Hello! This is Tom s Tutorials Point
Hello! This is Dick s Tutorials Point
Hello! This is Harry s Tutorials Point
*** - EVAL: variable TOM has no value