Sat 29 Jun 2013 11:33:43 PM UTC, original submission:
It's funny. gcl, the GNU Common Lisp doesn't have a COMMON-LISP package.
[pjb@kuiper :0.0 lisp]$ gcl --norc
GCL (GNU Common Lisp) 2.6.7 CLtL1 Jan 21 2013 23:12:47
Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
Binary License: GPL due to GPL'ed components: (XGCL READLINE UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Temporary directory for compiler files set to /tmp/
>(defpackage "COM.INFORMATIMAGO.CLALL"
(:use "COMMON-LISP")
(:nicknames "CLALL"))
Error: "COMMON-LISP" is not of type (LISP:OR LISP:SYMBOL LISP:STRING ...).
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by LISP:USE-PACKAGE.
Broken at LISP:USE-PACKAGE. Type :H for Help.
COM.INFORMATIMAGO.CLALL>>:q
Top level.
> (macroexpand-1 '(defpackage "COM.INFORMATIMAGO.CLALL"
(:use "COMMON-LISP")
(:nicknames "CLALL")))
(EVAL-WHEN (LOAD EVAL COMPILE)
(IF (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL")
(PROGN
(RENAME-PACKAGE "COM.INFORMATIMAGO.CLALL"
"COM.INFORMATIMAGO.CLALL")
(RENAME-PACKAGE "COM.INFORMATIMAGO.CLALL"
"COM.INFORMATIMAGO.CLALL" '("CLALL"))
(UNUSE-PACKAGE
(PACKAGE-USE-LIST (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL"))
"COM.INFORMATIMAGO.CLALL"))
(MAKE-PACKAGE "COM.INFORMATIMAGO.CLALL" ':USE 'NIL ':NICKNAMES
'("CLALL")))
(SETF (GET ':COM.INFORMATIMAGO.CLALL 'SYSTEM::PACKAGE-DOCUMENTATION)
NIL)
(LET ((PACKAGE (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL")))
(USE-PACKAGE '("COMMON-LISP")))
(FIND-PACKAGE "COM.INFORMATIMAGO.CLALL"))
T
>(quit)
[pjb@kuiper :0.0 lisp]$ uname -a
Linux kuiper 3.8.0-19-generic #29-Ubuntu SMP Wed Apr 17 18:16:28 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux
[pjb@kuiper :0.0 lisp]$
|