[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Bug macroexpanding a defclass form

In Symbolics 3640 Zwei in Genera 7.1, IP-TCP 52.16, BBN site system 2.8,
Color Support 11.4, Color 331.5, Color Editor 313.0, Fortran 6.27,
Graph 13.0, Scientific Graphs 6.3, Window Support 10.1,
Essential Window Support 9.2, PCI Data Loaded. 9.0,
One More Nice Inheritance System for PCI 6.0,
PCI Data-Loading Essentials. 1.0,
Experimental Ken Anderson's Initial Environment 8, CL Object System 4.5,
microcode 3640-FPA-MIC 396, FEP 127, fep0:>v127-lisp.flod(64),
fep0:>v127-loaders.flod(64), fep0:>v127-info.flod(64),
fep0:>v127-debug.flod(34), Machine serial number 4146,
Make rel 7 debugger know about PCL Generic functions. (from
CLOS:CLOS;7DEBUG.LISP.2), on Rhythm & Blues:

with the cursor at the beginning of form:

(defclass foo
	  ()
     ())

the command META-X macroexpand expression all produces the following error,
while
META-X macroexpand expression works ok.  It looks like top-level-form is not
getting
macroexpanded right somehow.

Error: Incorrect arguments to DEFCLASS:
       The macro's argument pattern (NAME INCLUDES SLOTS &REST OPTIONS)
       does not match the form (DEFCLASS FOO).
While in the function DEFCLASS  SI:MACROEXPAND-1-INTERNAL

The condition signalled was SI:DEFMACRO-ARGUMENT-ERROR

DEFCLASS:  (P.C. = 15)  (from CONGER:>pcl>new>defclass)
   Arg 0 (SI:.FORM.): (DEFCLASS FOO)
   Arg 1 (SI:.ENV.): (NIL NIL NIL NIL NIL NIL NIL)
   Local 2: DEFCLASS
   Local 3 (NAME): (NAME INCLUDES SLOTS &REST OPTIONS)
   Local 4 (INCLUDES): (DEFCLASS FOO)

SI:MACROEXPAND-1-INTERNAL:  (P.C. = 201)
   Arg 0 (SI:MACRO-CALL): (DEFCLASS FOO)
   Arg 1 (SI:ENV): (NIL NIL NIL NIL NIL NIL NIL)
   Arg 2 (SI:RUN-STYLE-CHECKERS-P): NIL
   Arg 3 (SI:DONT-EXPAND-SPECIAL-FORMS): NIL

MACROEXPAND-1:  (P.C. = 10)
   Arg 0 (SI:MACRO-CALL): (DEFCLASS FOO)
   Arg 1 (SI:ENV): (NIL NIL NIL NIL NIL NIL NIL)
   --Defaulted args:--
   Arg 2 (SI:DONT-EXPAND-SPECIAL-FORMS): NIL

COMPILER:OPTIMIZE-FORM:  (P.C. = 320)  (from SYS:PATCH;SYSTEM-349-234)
   Arg 0 (SYS:FORM): (DEFCLASS FOO)
   Arg 1 (COMPILER:ENV): (NIL NIL NIL NIL NIL NIL NIL)
   Rest arg (ZL:ARGS): (:ALLOW-OTHER-KEYS T :ENVIRONMENT NIL :DO-INLINE-FORMS T
:DO-MACRO-EXPANSION T :ALLOW-OTHER-KEYS T ...)

(:INTERNAL COMPILER:OPTIMIZE-TOP-LEVEL-FORM 0):  (P.C. = 23)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 52700432>
   Arg 1 (SYS:FORM): (DEFCLASS FOO)
   Arg 2 (COMPILER:KIND): NIL
   Arg 3 (COMPILER:USAGE): LT:EFFECT

LT::MAPFORMS-CALL:  (P.C. = 12)
   Arg 0 (SYS:FORM): (DEFCLASS FOO)
   Arg 1 (LT::KIND): NIL
   Arg 2 (LT::USAGE): LT:EFFECT
   --Defaulted args:--
   Arg 3 (FUNCTION): #<LEXICAL-CLOSURE (:INTERNAL
COMPILER:OPTIMIZE-TOP-LEVEL-FORM 0) 52700434>

LT:COPYFORMS-1:  (P.C. = 20)
   Arg 0 (LT::ORIGINAL-FORM): (DEFCLASS FOO)
   Arg 1 (LT::USAGE): LT:EFFECT

LT::MAPFORMS-LIST:  (P.C. = 15)
   Arg 0 (LT::ORIGINAL-LIST): ((DEFCLASS FOO) (COMPILE LOAD EVAL) (LET NIL
(LOAD-DEFCLASS (QUOTE STANDARD-CLASS) (QUOTE FOO) (QUOTE NIL) (LIST) (LIST))))
   Arg 1 (LT::CURRENT-LIST): ((DEFCLASS FOO) (COMPILE LOAD EVAL) (LET NIL
(LOAD-DEFCLASS (QUOTE STANDARD-CLASS) (QUOTE FOO) (QUOTE NIL) (LIST) (LIST))))
   Arg 2 (LT::TAIL-TO-DO): ((DEFCLASS FOO) (COMPILE LOAD EVAL) (LET NIL
(LOAD-DEFCLASS (QUOTE STANDARD-CLASS) (QUOTE FOO) (QUOTE NIL) (LIST) (LIST))))
   Arg 3 (LT::ALL-BUT-LAST-USAGE): LT:EFFECT
   Arg 4 (LT::LAST-USAGE): EVAL

LT::MAPFORMS-TEMPLATE-1:  (P.C. = 247)  (from SYS:PATCH;SYSTEM-349-13)
   Arg 0 (LT::ORIGINAL-ARGL): ((DEFCLASS FOO) (COMPILE LOAD EVAL) (LET NIL
(LOAD-DEFCLASS (QUOTE STANDARD-CLASS) (QUOTE FOO) (QUOTE NIL) (LIST) (LIST))))
   Arg 1 (LT::TEMPLATE): LT:BODY

LT::MAPFORMS-TEMPLATE:  (P.C. = 43)
   Arg 0 (LT::ORIGINAL-FORM): (DEFCLASS FOO NIL NIL)
   Arg 1: (TOP-LEVEL-FORM (DEFCLASS FOO) (COMPILE LOAD EVAL) (LET NIL
(LOAD-DEFCLASS (QUOTE STANDARD-CLASS) (QUOTE FOO) (QUOTE NIL) (LIST) (LIST))))
   Arg 2 (LT::TEMPLATE): LT:BODY
   Arg 3: EVAL

LT:COPYFORMS-1:  (P.C. = 400)
   Arg 0 (LT::ORIGINAL-FORM): (DEFCLASS FOO NIL NIL)
   Arg 1 (LT::USAGE): EVAL

LT:COPYFORMS:  (P.C. = 65)
   Arg 0: #<LEXICAL-CLOSURE (:INTERNAL COMPILER:OPTIMIZE-TOP-LEVEL-FORM 0)
52700434>
   Arg 1 (SYS:FORM): (DEFCLASS FOO NIL NIL)
   Rest arg: (:ENVIRONMENT NIL)

COMPILER:OPTIMIZE-TOP-LEVEL-FORM:  (P.C. = 20)
   Arg 0 (SYS:FORM): (DEFCLASS FOO NIL NIL)
   Rest arg (ZL:ARGS): (:ENVIRONMENT NIL :DO-INLINE-FORMS T :DO-MACRO-EXPANSION
T :ALLOW-OTHER-KEYS T :ALL-LEVELS T)

SI:MEXP-EXPAND-FORM:  (P.C. = 35)
   Arg 0 (SYS:FORM): (DEFCLASS FOO NIL NIL)
   Arg 1 (SI:ENV): NIL
   Rest arg (SI:OPTIONS): (:ALL-LEVELS T)

ZWEI:MACRO-EXPAND-COMMAND:  (P.C. = 25)
   Rest arg (ZWEI:OPTIONS): (:ALL-LEVELS T)

ZWEI:COM-MACRO-EXPAND-EXPRESSION-ALL:  (P.C. = 4)

(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS):
(P.C. = 43)
   Arg 0 (SCL:SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION
SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL ZWEI:COMMAND-EXECUTE 0
SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 52700307>
   Rest arg: NIL

ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
   Arg 0 (ZWEI:COMMAND): ZWEI:COM-MACRO-EXPAND-EXPRESSION-ALL
   Arg 1 (ZWEI:CHAR): #\m-sh-M
   Arg 2 (ZWEI:PREFIX-CHAR): NIL
   Arg 3 (ZWEI:HOOK-LIST): NIL

ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
   Arg 0 (ZWEI:CH): #\m-sh-M

(FLAVOR:METHOD :EDIT ZWEI:EDITOR):  (P.C. = 316)
   Arg 0 (SCL:SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   --Defaulted args:--
   Arg 3 (ZWEI:TOP-LEVEL-P): T
   Arg 4 (ZWEI:DESCRIPTION): NIL

(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1):  (P.C. = 20)
   Arg 0 (SCL:SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR
250045054>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS):  (P.C.
= 40)
   Arg 0 (SCL:SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION
SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0
SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 52700111>
   Rest arg: NIL

(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR):  (P.C. = 20)
   Arg 0 (SCL:SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL
(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1) 150176730>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor
ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
   Arg 4 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (ZWEI:ARGUMENTS): NIL

(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR):  (P.C. = 317)
   Arg 0 (SCL:SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR
250045054>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 55)  (from SYS:PATCH;SYSTEM-349-88)

SI:PROCESS-TOP-LEVEL:  (P.C. = 45)
   Arg 0 (IGNORE): NIL


------- End of Forwarded Message