[Openmcl-devel] yet another ccl/x86 issue

Cyrus Harmon ch-openmcl at bobobeach.com
Mon Dec 1 10:47:03 PST 2008 

The combination of ccl and my code seems to be quite good at picking  
up subtle "issues" in both systems. Here's the latest:

Bug (probably): can't determine class of #<BOGUS object @ #x8F1F7B6>
    [Condition of type SIMPLE-ERROR]

Restarts:
  0: [LOAD-SOURCE] Load  
"home:projects;git.cyrusharmon.org;clem;src;subtr.lisp" instead of "/ 
Users/sly/projects/git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/ 
subtr.dx32fsl"
  1: [RECOMPILE] Compile  
"home:projects;git.cyrusharmon.org;clem;src;subtr.lisp" into "/Users/ 
sly/projects/git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/ 
subtr.dx32fsl" then load "/Users/sly/projects/git.cyrusharmon.org/clem/ 
src/ccl-1.3-darwin-x86/subtr.dx32fsl" again
  2: [RETRY-LOAD] Retry loading #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl"
  3: [SKIP-LOAD] Skip loading #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl"
  4: [LOAD-OTHER] Load other file instead of #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl"
  5: [TRY-RECOMPILING] Recompile subtr and try loading it again
  6: [RETRY] Retry performing #<LOAD-OP NIL #x8BB98E6> on #<CL-SOURCE- 
FILE "subtr" #x8BC2156>.
  7: [ACCEPT] Continue, treating #<LOAD-OP NIL #x8BB98E6> on #<CL- 
SOURCE-FILE "subtr" #x8BC2156> as having been successful.
  8: [RETRY] Retry SLIME REPL evaluation request.
  9: [ABORT] Return to SLIME's top level.
  10: [ABORT-BREAK] Reset this thread
  11: [ABORT] Kill this thread

Backtrace:
   0: [error printing frame]
   1: [error printing frame]
   2: [error printing frame]
   3: (CCL::COMPUTE-NTH-ARG-COMBINED-METHOD #<Combined-Method (SETF  
SLOT-VALUE-USING-CLASS) #x89B9D3E> (#<CCL::STANDARD-KERNEL-METHOD  
(SETF SLOT-VALUE-USING-CLASS) (T STANDARD-CLASS T ..))))
   4: (CCL::NTH-ARG-COMBINED-METHOD-TRAP #<Combined-Method (SETF SLOT- 
VALUE-USING-CLASS) #x89B9D3E> #((#<CCL::STANDARD-KERNEL-METHOD (SETF  
SLOT-VALUE-USING-CLASS) (T STANDARD-CLASS T ..))))))
   5: (CCL::%%NTH-ARG-DCODE #((#<CCL::STANDARD-KERNEL-METHOD (SETF  
SLOT-VALUE-USING-CLASS) (T STANDARD-CLASS T STANDARD-EFFECTIVE-SLOT- 
DEFINITION)>) NIL NIL 2 ..))
   6: [error printing frame]
   7: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD- 
OBJECT T)> #<TYPE-ERROR #x8F3FBAE> T :DATUM #<BOGUS object @  
#x8F1F7B6> :EXPECTED-TYPE FUNCTION)
   8: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD- 
OBJECT)> #<TYPE-ERROR #x8F3FBAE> :DATUM #<BOGUS object @  
#x8F1F7B6> :EXPECTED-TYPE FUNCTION)
   9: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS TYPE-ERROR> (:DATUM  
#<error printing CONS #x688529>)
  10: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)>  
#<STANDARD-CLASS TYPE-ERROR> :DATUM #<BOGUS object @  
#x8F1F7B6> :EXPECTED-TYPE FUNCTION)
  11: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (SYMBOL)> TYPE- 
ERROR :DATUM #<BOGUS object @ #x8F1F7B6> :EXPECTED-TYPE FUNCTION)
  12: (MAKE-CONDITION TYPE-ERROR :DATUM #<BOGUS object @  
#x8F1F7B6> :EXPECTED-TYPE FUNCTION)
  13: [error printing frame]
  14: [error printing frame]
  15: [error printing frame]
  16: [error printing frame]
  17: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE (NIL  
#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE :AFTER (STANDARD- 
METHOD T)> . 1564219))
  18: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (NIL (#<CCL::STANDARD- 
KERNEL-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T)>) ..)
  19: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD- 
OBJECT)> #<STANDARD-METHOD CLEM::MAT-SUBTR-RANGE3 (CLEM:DOUBLE-FLOAT- 
MATRIX CLEM:FIXNUM-MATRIX CLEM:DOUBLE-FLOAT-MATRIX T T T ..)
  20: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS STANDARD-METHOD>  
(:NAME CLEM::MAT-SUBTR-RANGE3 :SPECIALIZERS ..)))
  21: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)>  
#<STANDARD-CLASS STANDARD-METHOD> :NAME CLEM::MAT-SUBTR- 
RANGE3 :SPECIALIZERS (#<CLEM::STANDARD-MATRIX-CLASS CLEM:DOUBLE-FLOAT- 
MATRIX> ..)..
  22: (CCL::ENSURE-METHOD CLEM::MAT-SUBTR-RANGE3 (#1=#<CLEM::STANDARD- 
MATRIX-CLASS CLEM:DOUBLE-FLOAT-MATRIX> #<CLEM::STANDARD-MATRIX-CLASS  
CLEM:FIXNUM-MATRIX> #1# #2=#<BUILT-IN-CLASS T> #2# #2# ..)
  23: (CCL::$FASL-LFUNCALL #<CCL::FASLSTATE #x6886DE>)
  24: (CCL::%FASLOAD "/Users/sly/projects/git.cyrusharmon.org/clem/src/ 
ccl-1.3-darwin-x86/subtr.dx32fsl" #(#<Compiled-function CCL::$FASL- 
NOOP (Non-Global)  #x808E1A6> ..))
  25: (CCL::%LOAD #P"/Users/sly/projects/git.cyrusharmon.org/clem/src/ 
ccl-1.3-darwin-x86/subtr.dx32fsl" NIL NIL :ERROR :DEFAULT)
  26: (LOAD #P"/Users/sly/projects/git.cyrusharmon.org/clem/src/ 
ccl-1.3-darwin-x86/subtr.dx32fsl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT- 
EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
  27: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE- 
FILE)> #<LOAD-OP NIL #x8BB98E6> #<CL-SOURCE-FILE "subtr" #x8BC2156>)
  28: (#<STANDARD-METHOD NIL NIL> #<LOAD-OP NIL #x8BB98E6> #<CL-SOURCE- 
FILE "subtr" #x8BC2156>)
  29: (CCL::%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD NIL NIL> #<LOAD- 
OP NIL #x8BB98E6> #<CL-SOURCE-FILE "subtr" #x8BC2156>))
  30: (#<STANDARD-METHOD ASDF:PERFORM ASDF:AROUND (ASDF:LOAD-OP  
ASDF:CL-SOURCE-FILE)> #<LOAD-OP NIL #x8BB98E6> #<CL-SOURCE-FILE  
"subtr" #x8BC2156>)
  31: (CCL::%%CALL-METHOD* #<STANDARD-METHOD ASDF:PERFORM ASDF:AROUND  
(ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)> (#<STANDARD-METHOD NIL NIL>)  
(#<LOAD-OP NIL #x8BB98E6> #<CL-SOURCE-FILE "subtr" #x8BC2156>))
  32: (#<Anonymous Function #x8BD0C1E> #<LOAD-OP NIL #x8BB98E6> #<CL- 
SOURCE-FILE "subtr" #x8BC2156>)
  33: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE))
  34: (CCL::CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE)  
#x688A5E> :OVERRIDE NIL)
  35: (ASDF:OPERATE ASDF:LOAD-OP #:CLEM)
  36: (CCL::CALL-CHECK-REGS ASDF:OOS ASDF:LOAD-OP #:CLEM)
  37: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op '#:clem)\n")
  38: ((:INTERNAL SWANK::REPL-EVAL))
  39: (SWANK::TRACK-PACKAGE #<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
SWANK::REPL-EVAL) #x8BB9A76>)
  40: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation  
request." #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL)  
#x8BB9AC6>)
  41: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::REPL-EVAL) #x8BB9AEE>)
  42: (SWANK::REPL-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n")
  43: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load- 
op '#:clem)\n")
  44: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(asdf:oos  
'asdf:load-op '#:clem)\n") "COMMON-LISP-USER" 6)
  45: (SWANK::PROCESS-REQUESTS NIL)
  46: ((:INTERNAL SWANK::HANDLE-REQUESTS))
  47: (#<Anonymous Function #x8A82B9E> #<Compiled-function SWANK:SWANK- 
DEBUGGER-HOOK #x8AD39BE> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
SWANK::HANDLE-REQUESTS) #x8B32D86>)
  48: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x8B241CE>  
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION)  
#x8B32D5E>)
  49: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x8B241CE> #<COMPILED- 
LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x8B32D86>)
  50: (SWANK::HANDLE-REQUESTS #<CONNECTION #x8B241CE> NIL)
  51: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::SPAWN-REPL-THREAD) #x8B32DB6>)
  52: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(5) [Active]  
#x8B31BFE> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN- 
FUNCTION) #x8B31BAE>))
  53: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS repl- 
thread(5) [Active] #x8B31BFE> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
CCL::%PROCESS-RUN-FUNCTION) #x8B31BAE>))
  54: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

More information about the Openmcl-devel mailing list