find-system

$Revision: 5.0.2.4 $

Function

Package: EXCL

Arguments: (system-name &optional errorp)

This function returns the system object associated with the name system-name.

If errorp is supplied and is t, then an error is signalled if no system named system-name exists. If errorp is not supplied or is nil, then nil is returned if no system named system-name exists.

USER(18): (defsystem :my-serial-sys () (:serial "my1" "my2")) MY-SERIAL-SYS USER(19): (find-system :my-serial-sys) #<DEFSYSTEM:DEFAULT-SYSTEM "MY-SERIAL-SYS" @ #x6b5b4e> USER(20):

See defsystem.htm for general information on the defsystem facility.

The general documentation description is in introduction.htm. The index in index.htm.