[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