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 also defsystem.htm for general information on the defsystem facility in Allegro CL.
The documentation is described in introduction.htm and the index is in index.htm.
Copyright (c) 1998-2000, Franz Inc. Berkeley, CA., USA. All rights reserved.
Created 2000.10.5.