[Sbcl-devel] Bug compiling elephant on SBCL 1.0.16.11

[Leonardo V. <va...@gm...>]

I discovered a problem compiling the latest version (Thu Apr 10
04:08:05 BRT 2008) of elephant on SBCL 1.0.16.11, Athlon X2 6000 on
Ubuntu 8.04 x86-64.

(To make easier, it's the command to get elephant: darcs get
http://www.common-lisp.net/project/elephant/darcs/elephant)

In 1.0.16 everything compiles right.

The error is:

no :MOVE-ARG VOP defined to move #<SB-C:TN t1> (SC SB-VM::SINGLE-REG)
to #<SB-C:TN t2> (SC SB-VM::ANY-REG)
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {100366EB71}> on
#<ASDF:CL-SOURCE-FILE "serializer1" {10033A4681}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {100366EB71}>
on #<ASDF:CL-SOURCE-FILE "serializer1" {10033A4681}> as having been
successful.
  2: [ABORT] Abort SLIME compilation.
  3: [ABORT-REQUEST] Abort handling SLIME request.
  4: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
{10036495E1}>)

Backtrace:
  0: (SB-C::BAD-MOVE-ARG-ERROR #<SB-C:TN t1> #<SB-C:TN t2>)
  1: (SB-C::BAD-MOVE-ARG-ERROR #<SB-C:TN t1> #<SB-C:TN t2>)[:EXTERNAL]
  2: (SB-C::EMIT-ARG-MOVES #<SB-C::VOP :INFO SB-C:CALL-LOCAL :ARGS
#<SB-C:TN-REF :TN #<SB-C:TN t3> :WRITE-P NIL :VOP SB-C:CALL-LOCAL>
:RESULTS NIL :CODEGEN-INFO ((#<SB-C:TN t2> #<SB-C:TN t4> #<SB-C:TN
t5>) #<SB-C::IR2-PHYSENV :CLOSURE # :OLD-FP #<SB-C:TN t6[S0]>
:RETURN-PC #<SB-C:TN t7[S1]> :RETURN-PC-PASS #<SB-C:TN t8[S1]>>
#<SB-ASSEM:LABEL 1> 0)>)
  3: (SB-C::EMIT-MOVES-AND-COERCIONS #<SB-C::IR2-BLOCK  :START-VOP
#<SB-C::VOP :INFO SYMBOL-VALUE :ARGS #<SB-C:TN-REF :TN #<SB-C:TN
'ELEPHANT-SERIALIZER1::*LISP-OBJ-ID*!9[Const6]> :WRITE-P NIL :VOP
SYMBOL-VALUE> :RESULTS #<SB-C:TN-REF :TN #<SB-C:TN t10> :WRITE-P T
:VOP SYMBOL-VALUE>> :LAST-VOP #<SB-C::VOP :INFO SB-C:CALL-LOCAL :ARGS
#<SB-C:TN-REF :TN #<SB-C:TN t11> :WRITE-P NIL :VOP SB-C:CALL-LOCAL>
:RESULTS NIL :CODEGEN-INFO (# # #<SB-ASSEM:LABEL 1> 0)>>)
  4: (SB-C::SELECT-REPRESENTATIONS #<SB-C:COMPONENT :NAME
ELEPHANT-MEMUTIL::COPY-STR-TO-BUF {10053BC421}>)
  5: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME
ELEPHANT-MEMUTIL::COPY-STR-TO-BUF {10053BC421}>)
  6: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME
ELEPHANT-MEMUTIL::COPY-STR-TO-BUF {10053BC421}>)
  7: (SB-C::%COMPILE (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE (ELEPHANT-SERIALIZER1::FROB
ELEPHANT-SERIALIZER1::BS ELEPHANT-SERIALIZER1::SC) (DECLARE (OPTIMIZE
# #) (TYPE ELEPHANT-MEMUTIL:BUFFER-STREAM ELEPHANT-SERIALIZER1::BS)
(IGNORE ELEPHANT-SERIALIZER1::SC)) (BLOCK
ELEPHANT-SERIALIZER1::SERIALIZE (SETQ
ELEPHANT-SERIALIZER1::*LISP-OBJ-ID* 0)
(ELEPHANT-SERIALIZER1::CLEAR-CIRCULARITY-HASH) (LABELS # #
ELEPHANT-SERIALIZER1::BS))) #<SB-FASL:FASL-OUTPUT
"/home/varuzza/lisp/prog/elephant/src/elephant/serializer1.fasl">)[:EXTERNAL]
  8: (SB-C::FOPCOMPILE-FUNCTION (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE (ELEPHANT-SERIALIZER1::FROB
ELEPHANT-SERIALIZER1::BS ELEPHANT-SERIALIZER1::SC) (DECLARE (OPTIMIZE
# #) (TYPE ELEPHANT-MEMUTIL:BUFFER-STREAM ELEPHANT-SERIALIZER1::BS)
(IGNORE ELEPHANT-SERIALIZER1::SC)) (BLOCK
ELEPHANT-SERIALIZER1::SERIALIZE (SETQ
ELEPHANT-SERIALIZER1::*LISP-OBJ-ID* 0)
(ELEPHANT-SERIALIZER1::CLEAR-CIRCULARITY-HASH) (LABELS # #
ELEPHANT-SERIALIZER1::BS))) (#1=(SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE # # #) "Serialize a lisp value into a
buffer-stream." (QUOTE #) (SB-C:SOURCE-LOCATION)) #2=(EVAL-WHEN
(:LOAD-TOPLEVEL :EXECUTE) #1#) (PROGN (EVAL-WHEN # #) #2#)
SB-C::ORIGINAL-SOURCE-START 0 33) T)
  9: (SB-C::FOPCOMPILE (SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE . #1=(# # #)) "Serialize a lisp value
into a buffer-stream." (QUOTE (SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL .
#1#)) (SB-C:SOURCE-LOCATION)) (#1=(SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE # # #) "Serialize a lisp value into a
buffer-stream." (QUOTE #) (SB-C:SOURCE-LOCATION)) #2=(EVAL-WHEN
(:LOAD-TOPLEVEL :EXECUTE) #1#) (PROGN (EVAL-WHEN # #) #2#)
SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 10: (SB-C::CONVERT-AND-MAYBE-COMPILE (SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE . #1=(# # #)) "Serialize a lisp value
into a buffer-stream." (QUOTE (SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL .
#1#)) (SB-C:SOURCE-LOCATION)) (#1=(SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE # # #) "Serialize a lisp value into a
buffer-stream." (QUOTE #) (SB-C:SOURCE-LOCATION)) #2=(EVAL-WHEN
(:LOAD-TOPLEVEL :EXECUTE) #1#) (PROGN (EVAL-WHEN # #) #2#)
SB-C::ORIGINAL-SOURCE-START 0 33))
 11: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE . #1=(# # #)) "Serialize a lisp value
into a buffer-stream." (QUOTE (SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL .
#1#)) (SB-C:SOURCE-LOCATION)))
 12: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE . #1=(# # #)) "Serialize a lisp value
into a buffer-stream." (QUOTE (SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL .
#1#)) (SB-C:SOURCE-LOCATION)) (#1=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN # # "Serialize a lisp value into a buffer-stream." #
#)) (PROGN (EVAL-WHEN # #) #1#) SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 13: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFUN (QUOTE
ELEPHANT-SERIALIZER1::SERIALIZE) (SB-INT:NAMED-LAMBDA
ELEPHANT-SERIALIZER1::SERIALIZE # # #) "Serialize a lisp value into a
buffer-stream." (QUOTE #) (SB-C:SOURCE-LOCATION))) (#1=(EVAL-WHEN
(:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # "Serialize a lisp value
into a buffer-stream." # #)) (PROGN (EVAL-WHEN # #) #1#)
SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 14: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN (QUOTE ELEPHANT-SERIALIZER1::SERIALIZE)
(SB-INT:NAMED-LAMBDA ELEPHANT-SERIALIZER1::SERIALIZE # # #) "Serialize
a lisp value into a buffer-stream." (QUOTE #) (SB-C:SOURCE-LOCATION)))
((PROGN (EVAL-WHEN # #) (EVAL-WHEN # #)) SB-C::ORIGINAL-SOURCE-START 0
33) NIL)
 15: (SB-C::PROCESS-TOPLEVEL-PROGN ((EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN # # T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN # # "Serialize a lisp value into a buffer-stream." #
#))) ((PROGN (EVAL-WHEN # #) (EVAL-WHEN # #))
SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 16: (SB-C::PROCESS-TOPLEVEL-FORM (PROGN (EVAL-WHEN
(:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN # # T)) (EVAL-WHEN
(:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # "Serialize a lisp value
into a buffer-stream." # #))) (SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 17: ((FLET SB-C::DEFAULT-PROCESSOR) (DEFUN
ELEPHANT-SERIALIZER1::SERIALIZE (ELEPHANT-SERIALIZER1::FROB
ELEPHANT-SERIALIZER1::BS ELEPHANT-SERIALIZER1::SC) "Serialize a lisp
value into a buffer-stream." (DECLARE (OPTIMIZE # #) (TYPE
ELEPHANT-MEMUTIL:BUFFER-STREAM ELEPHANT-SERIALIZER1::BS) (IGNORE
ELEPHANT-SERIALIZER1::SC)) (SETQ ELEPHANT-SERIALIZER1::*LISP-OBJ-ID*
0) (ELEPHANT-SERIALIZER1::CLEAR-CIRCULARITY-HASH) (LABELS (#)
(ELEPHANT-SERIALIZER1::%SERIALIZE ELEPHANT-SERIALIZER1::FROB)
ELEPHANT-SERIALIZER1::BS)))
 18: (SB-C::PROCESS-TOPLEVEL-FORM (DEFUN
ELEPHANT-SERIALIZER1::SERIALIZE (ELEPHANT-SERIALIZER1::FROB
ELEPHANT-SERIALIZER1::BS ELEPHANT-SERIALIZER1::SC) "Serialize a lisp
value into a buffer-stream." (DECLARE (OPTIMIZE # #) (TYPE
ELEPHANT-MEMUTIL:BUFFER-STREAM ELEPHANT-SERIALIZER1::BS) (IGNORE
ELEPHANT-SERIALIZER1::SC)) (SETQ ELEPHANT-SERIALIZER1::*LISP-OBJ-ID*
0) (ELEPHANT-SERIALIZER1::CLEAR-CIRCULARITY-HASH) (LABELS (#)
(ELEPHANT-SERIALIZER1::%SERIALIZE ELEPHANT-SERIALIZER1::FROB)
ELEPHANT-SERIALIZER1::BS)) (SB-C::ORIGINAL-SOURCE-START 0 33) NIL)
 19: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
 20: ((LAMBDA NIL))
 21: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL)
{1004E55579}>)[:EXTERNAL]
 22: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
 23: (COMPILE-FILE
#P"/home/varuzza/lisp/prog/elephant/src/elephant/serializer1.lisp")[:EXTERNAL]
 24: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)) #<unavailable argument> #<unavailable argument>
#<ASDF:COMPILE-OP NIL {100366EB71}> #<ASDF:CL-SOURCE-FILE
"serializer1" {10033A4681}>)
 25: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>
#<ASDF:COMPILE-OP NIL {100366EB71}> #<ASDF:CL-SOURCE-FILE
"serializer1" {10033A4681}>)
 26: ((LAMBDA NIL))
 27: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
 28: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]520))
 29: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET
SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFBD7D99249}>
#S(SB-THREAD:MUTEX :NAME "big compiler lock" :%OWNER
#<SB-THREAD:THREAD "repl-thread" {10036495E1}> :STATE 1))
 30: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL)
{10031CEAE9}>)[:EXTERNAL]
 31: (ASDF:OPERATE ASDF:COMPILE-OP "elephant")[:EXTERNAL]
 32: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-COMPILATION-HOOKS
(T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL)
{100366DFD9}>)
 33: (SWANK::MEASURE-TIME-INTERVAL #<CLOSURE (LAMBDA NIL) {100366DEB9}>)
 34: (SWANK::SWANK-COMPILER #<CLOSURE (LAMBDA NIL) {100366DEB9}>)
 35: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS
"elephant" "COMPILE-OP") #<NULL-LEXENV>)
 36: ((LAMBDA NIL))
 37: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {1003658B39}>)
 38: ((LAMBDA NIL))
 39: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {10029CAFD9}>)
 40: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {1003336201}>
#<CLOSURE (LAMBDA NIL) {1003658A29}>)
 41: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {1003336201}>
#<FUNCTION (LAMBDA NIL) {10029CAFD9}>)
 42: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {1003336201}>)
 43: ((LAMBDA NIL))
 44: ((LAMBDA NIL))[:EXTERNAL]
 45: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {1003663119}>)
 46: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {1003336201}>
#<CLOSURE (LAMBDA NIL) {1003663139}>)
 47: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {1003336201}>
#<CLOSURE (LAMBDA NIL) {1003663119}>)
 48: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {10036630D9}>)
 49: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
 50: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]489))
 51: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET
SB-THREAD::WITH-MUTEX-THUNK) {7FFBD7D99EF9}> #S(SB-THREAD:MUTEX :NAME
"thread result lock" :%OWNER #<SB-THREAD:THREAD "repl-thread"
{10036495E1}> :STATE 1) #<SB-THREAD:THREAD "repl-thread" {10036495E1}>
T)
 52: ((LAMBDA NIL))
 53: ("foreign function: #x41DEC2")
 54: ("foreign function: #x415B94")

-- 
The most fundamental particles in this product are held together by a
"gluing" force about which little is currently known and whose
adhesive power can therefore not be permanently guaranteed.