[Openmcl-devel] value * is not of the expected type LIST

Cyrus Harmon ch-openmcl at bobobeach.com
Mon Dec 1 14:59:17 PST 2008



and here's another CCL issue that happens on both x86 and x8664 on  
Darwin.

The problem seems to have something to do with declarations of the form:

(declare (type (simple-array ,element-type *) ,vals))

changing the * to (*) seems to fix the problem, but it would seem that  
* should work here as well, declaring that this is a simple-array, not  
that it is a simple array of one dimension of unknown size.

thanks again,

cyrus



value * is not of the expected type LIST.
    [Condition of type TYPE-ERROR]

Restarts:
  0: [RETRY-COMPILE-FILE] Retry compiling #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/matrix.lisp"
  1: [SKIP-COMPILE-FILE] Skip compiling #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/matrix.lisp"
  2: [TRY-RECOMPILING] Try recompiling matrix
  3: [RETRY] Retry performing #<COMPILE-OP NIL #x3000415CB7DD> on #<CL- 
SOURCE-FILE "matrix" #x3000415BA4DD>.
  4: [ACCEPT] Continue, treating #<COMPILE-OP NIL #x3000415CB7DD> on  
#<CL-SOURCE-FILE "matrix" #x3000415BA4DD> as having been successful.
  5: [RETRY] Retry SLIME REPL evaluation request.
  6: [ABORT] Return to SLIME's top level.
  7: [ABORT-BREAK] Reset this thread
  8: [ABORT] Kill this thread

Backtrace:
   0: ((:INTERNAL CCL::%XERR-DISP))
   1: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL- 
CLOSURE (:INTERNAL CCL::%XERR-DISP) #x1320A6F>)
   2: (CCL::%XERR-DISP 369755270)
   3: (CCL::%PASCAL-FUNCTIONS% 2 369755270)
   4: (CCL::X862-GENERAL-ASET2 #<DLL-HEADER #x3000417A5AAD> NIL NIL  
(27 (SIMPLE-ARRAY DOUBLE-FLOAT) (24614 #<CCL::VAR #x300041781E5D>))  
(27 (MOD 1152921504606846975) ..))
   5: (CCL::X862-FORM :DOUBLE-FLOAT-VECTOR NIL NIL (9315 (27 (SIMPLE- 
ARRAY DOUBLE-FLOAT) (24614 #<CCL::VAR #x300041781E5D>)) (27 (MOD  
1152921504606846975) (24614 #<CCL::VAR #x3000417A8A4D>)) ..)))
   6: (CCL::X862-LOCAL-TAGBODY #<DLL-HEADER #x3000417A5AAD> NIL NIL  
(#3=(#:G866 14 #1=#(1 0 80 #<LCELL 21>) . T) #2=(#:G867 15 #1#)) ((43  
#2#) (30 . #3#) ..))))
   7: (CCL::X862-PROGN #<DLL-HEADER #x3000417A5AAD> NIL NIL ((#:|nil|)))
   8: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000417A5AAD> NIL NIL (22529  
((8223 (# #) (# # # # # #)) (#:|nil|))) #(1 0 80 #<LCELL 21>))
   9: (CCL::X862-LET* #<DLL-HEADER #x3000417A5AAD> NIL NIL (#<CCL::VAR  
#x3000417A8BFD> #<CCL::VAR #x3000417A8A4D>) ((27 FIXNUM (24614  
#<CCL::VAR #x30004179E7FD>)) (24617 0)) (22529 ..))))
  10: (CCL::X862-FORM #<DLL-HEADER #x3000417A5AAD> NIL NIL (29  
(#<CCL::VAR #x3000417A8BFD> #<CCL::VAR #x3000417A8A4D>) ((27 FIXNUM  
(24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688))
  11: (CCL::X862-LOCAL-TAGBODY #<DLL-HEADER #x3000417A5AAD> NIL NIL  
(#3=(#:G863 12 #1=#(1 0 80 #<LCELL 21>) . T) #2=(#:G864 13 #1#)) ((43  
#2#) (30 . #3#) ..)))))
  12: (CCL::X862-PROGN #<DLL-HEADER #x3000417A5AAD> NIL NIL ((#:|nil|)))
  13: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000417A5AAD> NIL NIL (22529  
((8223 (# #) (# # # # # #)) (#:|nil|))) #(1 0 80 #<LCELL 21>))
  14: (CCL::X862-LET* #<DLL-HEADER #x3000417A5AAD> NIL NIL (#<CCL::VAR  
#x3000417A9A7D> #<CCL::VAR #x3000417A98CD>) ((27 FIXNUM (24614  
#<CCL::VAR #x30004179EB3D>)) (24617 0)) (22529 ..))))
  15: (CCL::X862-FORM #<DLL-HEADER #x3000417A5AAD> NIL NIL (29  
(#<CCL::VAR #x3000417A9A7D> #<CCL::VAR #x3000417A98CD>) ((27 FIXNUM  
(24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688))
  16: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000417A5AAD> NIL NIL (29  
(#<CCL::VAR #x3000417A9A7D> #<CCL::VAR #x3000417A98CD>) ((27 FIXNUM  
(24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688) #(1 ..))
  17: (CCL::X862-LET* #<DLL-HEADER #x3000417A5AAD> NIL NIL (#<CCL::VAR  
#x300041781E5D>) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 (24616  
CLEM::MATRIX-VALS) (NIL #) NIL))) (29 ..)))
  18: (CCL::X862-FORM #<DLL-HEADER #x3000417A5AAD> NIL NIL (29  
(#<CCL::VAR #x300041781E5D>) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # #  
NIL))) ..))))
  19: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000417A5AAD> NIL NIL (29  
(#<CCL::VAR #x300041781E5D>) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # #  
NIL))) ..))))
  20: (CCL::X862-LET* #<DLL-HEADER #x3000416A4ABD> NIL NIL (#<CCL::VAR  
#x3000416A066D>) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 (24616  
CLEM::MATRIX-VALS) (NIL #) NIL))) (29 ..)))))
  21: (CCL::X862-FORM #<DLL-HEADER #x3000416A4ABD> NIL NIL (29  
(#<CCL::VAR #x3000416A066D>) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # #  
NIL))) ..)))))
  22: (CCL::X862-PROGN #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 ((24614 #<CCL::VAR #x3000416A0ACD>)))
  23: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR  
[6]> 262143 (22529 ((29 (#) (#) (29 # # # 2162688) 2162688) (24614  
#<CCL::VAR #x3000416A0ACD>))) #(1 0 64 #<LCELL 13>))
  24: (CCL::X862-LET* #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 (#<CCL::VAR #x3000416A0ACD>) ((29 (#<CCL::VAR #x3000416A0DBD>)  
((24616 #)) (42 (25678 # #) (# #) NIL) 2162688)) (22529 ..))))
  25: (CCL::X862-FORM #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 (29 (#1=#<CCL::VAR #x3000416A0ACD>) ((29 (#) (#) (42 # # NIL)  
2162688)) (22529 ((29 # # # 2162688) (24614 #1#))) 2162688))
  26: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR  
[6]> 262143 (29 (#1=#<CCL::VAR #x3000416A0ACD>) ((29 (#) (#) (42 # #  
NIL) 2162688)) (22529 ((29 # # # 2162688) (24614 #1#))) ..))
  27: (CCL::X862-LET* #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 (#<CCL::VAR #x3000416A165D> #<CCL::VAR #x3000416A148D>  
#<CCL::VAR #x3000416A12ED> #) ((42 (24616 CLEM:DIM) (NIL (#))  
NIL) ..)))))
  28: (CCL::X862-FORM #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 (29 (#<CCL::VAR #x3000416A165D> #<CCL::VAR #x3000416A148D> #  
#) ..)))))
  29: (CCL::X862-UNDO-BODY #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR  
[6]> 262143 (29 (#<CCL::VAR #x3000416A165D> #<CCL::VAR #x3000416A148D>  
# #) ..)))))
  30: (CCL::X862-SEQ-FBIND #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR  
[6]> 262143 NIL NIL (29 (#<CCL::VAR #x3000416A165D> #<CCL::VAR  
#x3000416A148D> # #) ..))))
  31: (CCL::X862-LAMBDA #<DLL-HEADER #x3000416A4ABD> #<LREG 0 GPR [6]>  
262143 (#<CCL::VAR #x3000416A1CBD>) NIL NIL NIL (NIL NIL) (117 NIL  
NIL ..)))))
  32: (CCL::X862-COMPILE #<CCL::AFUNC #x30004169AB9D> NIL T)
  33: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA (CCL::&METHOD #:NEXT-METHOD- 
CONTEXT CLEM::M) ..)
  34: (CCL::FCOMP-NAMED-FUNCTION (LAMBDA (CCL::&METHOD #:NEXT-METHOD- 
CONTEXT CLEM::M) ..)
  35: (CCL::FCOMP-RANDOM-TOPLEVEL-FORM (CCL::ENSURE-METHOD ..))
  36: (CCL::FCOMP-FORM (CCL::ENSURE-METHOD ..)
  37: (CCL::FCOMP-FORM-LIST ((CCL::ENSURE-METHOD ..))
  38: (CCL::FCOMP-COMPILER-LET (COMPILER-LET ((CCL::*NX-METHOD-WARNING- 
NAME* '(CLEM:TRANSPOSE #))) ..)
  39: (CCL::FCOMP-FORM (COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME*  
'(CLEM:TRANSPOSE #))) ..)
  40: (CCL::FCOMP-FORM-LIST ((EVAL-WHEN (:COMPILE-TOPLEVEL) ..)))
  41: (CCL::FCOMP-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) ..))
  42: (CCL::FCOMP-FORM (DEFMETHOD CLEM:TRANSPOSE ((CLEM::M CLEM:DOUBLE- 
FLOAT-MATRIX)) ..)
  43: (CCL::FCOMP-READ-LOOP "/Users/sly/projects/git.cyrusharmon.org/ 
clem/src/matrix.lisp"  
#P"home:projects;git.cyrusharmon.org;clem;src;matrix.lisp.newest" 0  
#<CCL::LEXICAL-ENVIRONMENT #x300041659FAD> :NOT..
  44: (CCL::FCOMP-FILE "/Users/sly/projects/git.cyrusharmon.org/clem/ 
src/matrix.lisp"  
#P"home:projects;git.cyrusharmon.org;clem;src;matrix.lisp.newest" 0  
#<CCL::LEXICAL-ENVIRONMENT #x300041659FAD>)
  45: (CCL::%COMPILE-FILE "/Users/sly/projects/git.cyrusharmon.org/ 
clem/src/matrix.lisp" "/Users/sly/projects/git.cyrusharmon.org/clem/ 
src/ccl-1.3-darwin-x86-64/matrix.dx64fsl" NIL NIL NIL NIL T T NIL :NO- 
T..
  46: (COMPILE-FILE #P"/Users/sly/projects/git.cyrusharmon.org/clem/ 
src/matrix.lisp" :OUTPUT-FILE #P"/Users/sly/projects/ 
git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86-64/ 
matrix.dx64fsl" :VERBOSE NIL :PRIN..
  47: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE- 
FILE)> #<COMPILE-OP NIL #x3000415CB7DD> #<CL-SOURCE-FILE "matrix"  
#x3000415BA4DD>)
  48: (#<STANDARD-METHOD NIL NIL> #<COMPILE-OP NIL #x3000415CB7DD>  
#<CL-SOURCE-FILE "matrix" #x3000415BA4DD>)
  49: (CCL::%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD NIL NIL>  
#<COMPILE-OP NIL #x3000415CB7DD> #<CL-SOURCE-FILE "matrix"  
#x3000415BA4DD>))
  50: (#<STANDARD-METHOD ASDF:PERFORM ASDF:AROUND (ASDF:COMPILE-OP  
ASDF:CL-SOURCE-FILE)> #<COMPILE-OP NIL #x3000415CB7DD> #<CL-SOURCE- 
FILE "matrix" #x3000415BA4DD>)
  51: (CCL::%%CALL-METHOD* #<STANDARD-METHOD ASDF:PERFORM ASDF:AROUND  
(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)> (#<STANDARD-METHOD NIL NIL>)  
(#<COMPILE-OP NIL #x3000415CB7DD> ..))
  52: (#<Anonymous Function #x30004165A7EF> #<COMPILE-OP NIL  
#x3000415CB7DD> #<CL-SOURCE-FILE "matrix" #x3000415BA4DD>)
  53: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE))
  54: (CCL::CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE)  
#x13212BF> :OVERRIDE NIL)
  55: (ASDF:OPERATE ASDF:LOAD-OP #:CLEM)
  56: (CCL::CALL-CHECK-REGS ASDF:OOS ASDF:LOAD-OP #:CLEM)
  57: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op '#:clem)\n")
  58: ((:INTERNAL SWANK::REPL-EVAL))
  59: (SWANK::TRACK-PACKAGE #<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
SWANK::REPL-EVAL) #x3000415ADA3F>)
  60: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation  
request." #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL)  
#x3000415ADABF>)
  61: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::REPL-EVAL) #x3000415ADAFF>)
  62: (SWANK::REPL-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n")
  63: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load- 
op '#:clem)\n")
  64: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(asdf:oos  
'asdf:load-op '#:clem)\n") "COMMON-LISP-USER" 10)
  65: (SWANK::PROCESS-REQUESTS NIL)
  66: ((:INTERNAL SWANK::HANDLE-REQUESTS))
  67: (#<Anonymous Function #x30004101EA0F> #<Compiled-function  
SWANK:SWANK-DEBUGGER-HOOK #x30004133C19F> #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::HANDLE-REQUESTS) #x3000414C895F>)
  68: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x3000414B429D>  
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION)  
#x3000414C891F>)
  69: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x3000414B429D>  
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS)  
#x3000414C895F>)
  70: (SWANK::HANDLE-REQUESTS #<CONNECTION #x3000414B429D> NIL)
  71: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::SPAWN-REPL-THREAD) #x3000414C89AF>)
  72: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(5) [Active]  
#x3000414C7D4D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS- 
RUN-FUNCTION) #x3000414C7CBF>))
  73: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS repl- 
thread(5) [Active] #x3000414C7D4D> (#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x3000414C7CBF>))
  74: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))




More information about the Openmcl-devel mailing list