I suppose I can put it in the CHAOS package...

[Alan Bawden <Alan at MIT-MC>]

In Symbolics 3600 System 242.356, Hardcopy 20.10, FEP 24, on Lisp Machine Keith Moon:

Yes, the documentation even tells me that this must be a symbol, but I
couldn't believe that it was really going to force me to intern the name of
my package in some other package first.

[Bug-Zwei: Display Font and List Fonts should be available as M-X commands
 in mail sending windows.]

>>Error: The argument NAME to DEFPACKAGE, "CGL", was of the wrong type.
         The function expected a symbol.
While in the function DEFPACKAGE  FUNCALL  MACROEXPAND-1
While processing (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))

DEFPACKAGE:  (P.C. = 147)
   Arg 0 (*MACROARG*): (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))
   Local 1: NIL
   Local 2 (NAME): "CGL"
   Local 3 (MAKE-PACKAGE-KEYWORDS): ((:NICKNAMES "	") (:COLON-MODE :EXTERNAL))

FUNCALL:  (P.C. = 5)
   Arg 0 (FN): #<DTP-COMPILED-FUNCTION DEFPACKAGE 10545100>
   Rest arg (ARGS): ((DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL)))

MACROEXPAND-1:  (P.C. = 146)
   Arg 0 (MACRO-CALL): (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))
   --Defaulted args:--
   Arg 1 (IGNORE): NIL

MACROEXPAND:  (P.C. = 7)
   Arg 0 (MACRO-CALL): (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))
   --Defaulted args:--
   Arg 1 (IGNORE): NIL

(:INTERNAL COMPILER:COMPILE-PROCESS-DEFAULT 1):  (P.C. = 3)
   Arg 0 (**DEFSELECT-OP**): :MACRO-EXPAND
   Arg 1 (FORM): (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))

COMPILER:COMPILE-PROCESS-DEFAULT:  (P.C. = 22)
   Arg 0 (OPERATION): :MACRO-EXPAND
   Rest arg (SELECT-METHOD-ARGS): ((DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL)))

COMPILER:COMPILE-TO-CORE:  (P.C. = 67)
   Arg 0 (OPERATION): :MACRO-EXPAND
   Rest arg (SELECT-METHOD-ARGS): ((DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL)))

COMPILER:COMPILE-FROM-STREAM-1:  (P.C. = 21)
   Arg 0 (FORM-initialization): (DEFPACKAGE "CGL" (:NICKNAMES "	") (:COLON-MODE :EXTERNAL))
   --Defaulted args:--
   Arg 1 (COMPILE-TIME-TOO): NIL

Rest of stack:
COMPILER:PROCESS-FORMS-FROM-STREAM:  (P.C. = 117)
COMPILER:COMPILE-FROM-STREAM:  (P.C. = 235)
ZWEI:COMPILE-INTERVAL:  (P.C. = 141)
ZWEI:COMPILE-PRINT-INTERVAL:  (P.C. = 76)
ZWEI:COMPILE-DEFINITION-INTERNAL:  (P.C. = 73)
ZWEI:COM-COMPILE-REGION:  (P.C. = 5)
ZWEI:COM-COMPILE-REGION-AND-EXIT:  (P.C. = 5)  (from OZ:PS:<ALAN>ZWINIT)
ZWEI:COMMAND-EXECUTE:  (P.C. = 55)
ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 214)
(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 41)
ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 16)
SI:PROCESS-TOP-LEVEL:  (P.C. = 53)