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

Problem during pcl:compile-pcl on 3600

In Symbolics 3640 Compiler in Genera 7.1, IP-TCP 52.16,
BBN site system 2.6, 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 7,
microcode 3640-FPA-MIC 396, FEP 127, fep0:>v127-lisp.flod(55),
fep0:>v127-loaders.flod(55), fep0:>v127-debug.flod(34),
fep0:>v127-info.flod(55), Machine serial number 4146, on Rhythm & Blues:

I was simply trying to (pcl:compile-pcl) and this happened during
compiling fixup.lisp when evaling FIX-EARLY-GENERIC-FUNCTIONS.  My
guess is that the loop test in the DOLIST somehow gets the value of GET-CPL-1
rather than METHODS.

	  (labels ((get-class-1 (i a)
		     (setf (svref classes i) (class-of a)))
		   (get-cpl-1 (i a)
		     (setf (svref cpls i)
			   (slot-value--class (get-class i a)
					      'class-precedence-list))))
	    (dolist (method methods)
	      (setq specializers (funcall key method))

Any suggestions?

k


Trap: The argument given to the SYS:BRANCH-ENDP instruction, #<LEXICAL-CLOSURE
(:INTERNAL LOOKUP-METHOD-INTERNAL 1 GET-CPL-1) 601326>, was not a list, or NIL.
While in the function LOOKUP-METHOD-INTERNAL  LOOKUP-METHOD-2  (:INTERNAL
(:INTERNAL #:G13898 0) 0)

The condition signalled was DBG:WRONG-TYPE-ARGUMENT-TRAP

LOOKUP-METHOD-INTERNAL:  (P.C. = 427)  (from WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244013270>
   Arg 1 (METHODS): (((#<instance ?? 324005205>) . #<DTP-COMPILED-FUNCTION
(METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
(STANDARD-GENERIC-FUNCTION)) 260741600>))
   Arg 2 (KEY): #<DTP-COMPILED-FUNCTION CAR 144012230>
   Rest arg (ARGS): (#<instance ?? 244032667>)
   Local 4: #<DTP-LOCATIVE 601320>
   Local 5: #<DTP-COMPILED-FUNCTION (:INTERNAL LOOKUP-METHOD-INTERNAL 0
GET-CLASS-1) 260741501>
   Local 6: #<DTP-LOCATIVE 601320>
   Local 7: #<DTP-COMPILED-FUNCTION (:INTERNAL LOOKUP-METHOD-INTERNAL 1
GET-CPL-1) 260741516>
   Local 8 (ORDER): :DEFAULT
   Local 9 (CPLS): #<ART-Q-128 324106321>
   Local 10 (CLASSES): #<ART-Q-128 324106522>
   Local 11 (MOST-SPECIFIC-METHOD): NIL
   Local 12 (MOST-SPECIFIC-SPECIALIZERS): NIL
   Local 13 (SPECIALIZERS): NIL
   Local 14 (.GET-CLASS-1-FUNCTION-CELL.): 1
   Local 15 (.GET-CPL-1-FUNCTION-CELL.): #<LEXICAL-CLOSURE (:INTERNAL
LOOKUP-METHOD-INTERNAL 0 GET-CLASS-1) 601324>
   Local 16: #<LEXICAL-CLOSURE (:INTERNAL LOOKUP-METHOD-INTERNAL 1 GET-CPL-1)
601326>
   Local 17 (METHOD): (((#<instance ?? 324005205>) . #<DTP-COMPILED-FUNCTION
(METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
(STANDARD-GENERIC-FUNCTION)) 260741600>))
   Special SYS:INHIBIT-SCHEDULING-FLAG: T

LOOKUP-METHOD-2:  (P.C. = 240)  (from WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244013270>
   Rest arg (ARGS): (#<instance ?? 244032667>)

(:INTERNAL (:INTERNAL #:G13898 0) 0):  (P.C. = 127)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (#<instance ?? 244013270>
#<ART-Q-32 61506371> NIL NIL NIL NIL NIL NIL NIL NIL ...)
   Arg 1: #<instance ?? 244032667>

(METHOD MAKE-MULTI-METHOD-DCODE (STANDARD-GENERIC-FUNCTION)):  (P.C. = 3)
   Arg 0 (SELF): #<instance ?? 244032667>

(:INTERNAL FIX-EARLY-GENERIC-FUNCTIONS 1 TRAMPOLINE):  (P.C. = 6)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (#<DTP-COMPILED-FUNCTION
(METHOD MAKE-MULTI-METHOD-DCODE (STANDARD-GENERIC-FUNCTION)) 260740434>)
   Rest arg (ARGS): (#<instance ?? 244032667>)

COMPUTE-DISCRIMINATOR-CODE-1:  (P.C. = 144)  (from
WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244032667>

(METHOD COMPUTE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)):  (P.C. = 3)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244032667>

(:INTERNAL MAKE-TRAMPOLINE 0):  (P.C. = 5)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (#<DTP-COMPILED-FUNCTION
(METHOD COMPUTE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)) 260737665> NIL
NIL NIL NIL NIL NIL NIL NIL NIL ...)
   Rest arg (ARGS): (#<instance ?? 244032667>)

(METHOD UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)):  (P.C. = 4)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244032667>

(:INTERNAL MAKE-TRAMPOLINE 0):  (P.C. = 5)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (#<DTP-COMPILED-FUNCTION
(METHOD UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)) 260737561> NIL
NIL NIL NIL NIL NIL NIL NIL NIL ...)
   Rest arg (ARGS): (#<instance ?? 244032667>)

NOTICE-METHODS-CHANGE-1:  (P.C. = 7)  (from WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244032667>

NOTICE-METHODS-CHANGE:  (P.C. = 16)  (from WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0: #<instance ?? 244032667>

REAL-ADD-METHOD:  (P.C. = 46)  (from WILMA:/usr/kcl/pcl/new/methods.lsp)
   Arg 0 (GENERIC-FUNCTION): #<instance ?? 244032667>
   Arg 1 (METHOD): #<instance ?? 61506444>

FIX-EARLY-GENERIC-FUNCTIONS:  (P.C. = 155)  (from
WILMA:/usr/kcl/pcl/new/boot.lsp)
   --Defaulted args:--
   Arg 0 (NOISYP): NIL

(:INTERNAL COMPILER:COMPILE-PROCESS-DEFAULT 0 (:EVAL-FORM)):  (P.C. = 3)
   Arg 0 (SI:**DEFSELECT-OP**): :EVAL-FORM
   Arg 1 (SYS:FORM): (FIX-EARLY-GENERIC-FUNCTIONS)

COMPILER:COMPILE-PROCESS-DEFAULT:  (P.C. = 15)
   Arg 0 (SI:OPERATION): :EVAL-FORM
   Rest arg (SI:SELECT-METHOD-ARGS): ((FIX-EARLY-GENERIC-FUNCTIONS))
   Local 1 (SI:SELECT-METHOD-ARGS): NIL

COMPILER:COMPILE-TO-FILE:  (P.C. = 121)
   Arg 0 (SI:OPERATION): :EVAL-FORM
   Rest arg (SI:SELECT-METHOD-ARGS): ((FIX-EARLY-GENERIC-FUNCTIONS))

COMPILER:COMPILE-FORM-FUNCTION:  (P.C. = 22)
   Arg 0 (SYS:FORM): (FIX-EARLY-GENERIC-FUNCTIONS)
   Arg 1 (COMPILER:COMPILE-TIME-P): :FORCE
   Arg 2 (COMPILER:LOAD-TIME-P): T

COMPILER:COMPILE-FROM-STREAM-1:  (P.C. = 473)  (from
WILMA:/usr/kcl/pcl/new/rel-7-patches.lsp)
   Arg 0 (SYS:FORM): (FIX-EARLY-GENERIC-FUNCTIONS)
   Arg 1 (COMPILER:COMPILE-TIME-TOO): :FORCE

COMPILER:COMPILE-FROM-STREAM-1:  (P.C. = 140)  (from
WILMA:/usr/kcl/pcl/new/rel-7-patches.lsp)
   Arg 0 (SYS:FORM): (EVAL-WHEN (COMPILE LOAD EVAL)
(FIX-EARLY-GENERIC-FUNCTIONS))
   --Defaulted args:--
   Arg 1 (COMPILER:COMPILE-TIME-TOO): NIL

COMPILER:PROCESS-FORMS-FROM-STREAM:  (P.C. = 115)
   Arg 0 (COMPILER:INPUT-STREAM): #<INDIRECT-ESCAPE-INPUT-STREAM
"WILMA:/usr/kcl/pcl/new/fixup.lsp" 61505153>
   Arg 1 (COMPILER:PROCESS-FUNCTION): COMPILER:COMPILE-FROM-STREAM-1
   Arg 2 (COMPILER:FOR-FILE): T
   Arg 3 (COMPILER:AREA-FOR-READING): 4

COMPILER:COMPILE-FROM-STREAM:  (P.C. = 231)
   Arg 0 (COMPILER:INPUT-STREAM): #<INDIRECT-ESCAPE-INPUT-STREAM
"WILMA:/usr/kcl/pcl/new/fixup.lsp" 61505153>
   Arg 1 (COMPILER:GENERIC-PATHNAME): #P"WILMA:/usr/kcl/pcl/new/fixup.lsp"
   Arg 2: COMPILER:COMPILE-TO-FILE
   Arg 3 (COMPILER:ADDITIONAL-BINDINGS): NIL

COMPILER:COMPILE-FILE:  (P.C. = 233)
   Arg 0 (COMPILER:INFILE): #P"WILMA:/usr/kcl/pcl/new/fixup.lsp"
   Arg 1 (COMPILER:OUTFILE): #P"CONGER:>pcl>880207>FIXUP.BIN"
   Local 1 (COMPILER:OUTFILE): #P"CONGER:>pcl>880207>FIXUP.BIN.newest"
   Arg 2 (COMPILER:IN-PACKAGE): NIL
   Arg 3 (COMPILER:DONT-SET-DEFAULT-P): NIL

COMPILE-FILE:  (P.C. = 40)
   Arg 0 (CLI::INPUT-FILE): #P"WILMA:/usr/kcl/pcl/new/fixup.lsp"
   Rest arg: (:OUTPUT-FILE #P"CONGER:>pcl>880207>FIXUP.BIN")

(:INTERNAL OPERATE-ON-SYSTEM 3 COMPILE-MODULE):  (P.C. = 20)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 600402>
   Arg 1 (M): #<Module FIXUP>

OPERATE-ON-SYSTEM:  (P.C. = 246)  (from CONGER:>pcl>880207>defsys)
   Arg 0 (NAME): PCL
   Arg 1 (MODE): :COMPILE
   --Defaulted args:--
   Arg 2: NIL
   Arg 3 (PRINT-ONLY): NIL

COMPILE-PCL:  (P.C. = 7)  (from CONGER:>pcl>880207>defsys)
   --Defaulted args:--
   Arg 0 (M): NIL

CP::COMMAND-LOOP-EVAL-FUNCTION:  (P.C. = 25)
   Arg 0 (CP::FORM): (COMPILE-PCL)

(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS):
(P.C. = 43)
   Arg 0 (SCL:SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   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 # 0
SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600212>
   Rest arg: NIL

TV:WITH-NOTIFICATION-MODE-INTERNAL:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600155>

(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS):  (P.C.
= 40)
   Arg 0 (SCL:SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   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
SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)
600120>
   Rest arg: NIL

SI:LISP-COMMAND-LOOP-INTERNAL:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

SI:LISP-COMMAND-LOOP:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

SI:LISP-TOP-LEVEL1:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331
exposed>

SI:LISP-TOP-LEVEL2:  (P.C. = 5)

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

   Special *FUNCALLABLE-INSTANCE-MARKER*: ("Funcallable Instance Marker")
   Special *LOOKUP-METHOD1*: #<ART-Q-128 324106321>
   Special *LOOKUP-METHOD2*: #<ART-Q-128 324106522>
   Special *THE-CLASS-T*: #<instance ?? 162260077>