installation fails

Hi;

Have installed/used powerloom on several older versions of SBCL
without incident.  Installation on latest version of SBCL (via CVS)
fails with following error.  Am presuming this is related to some
operand type (double-float) / operator mismatch in the
decoded-time-duration structure/class.  I have not tried to tackle
this kind of installation error before, so I would appreciate any
hints before I hurl myself into the deep end.

I have NOT changed speed/safety advice to the compiler.

Unfortunately, I need some bugfixes in later SBCLs, so downgrading
SBCL would be problematic.

Thanks in advance,

-jm

--- cut here ---

[jm@jm5 powerloom-3.2.0]$ sbcl --load "load-powerloom.lisp"  
This is SBCL 1.0.18.17, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
; loading system definition from
; /usr/local/lib/sbcl/sb-bsd-sockets/sb-bsd-sockets.asd into 
#<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {B124909}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {B28E1C1}> as SB-BSD-SOCKETS-TESTS
; loading system definition from /usr/local/lib/sbcl/sb-posix/sb-posix.asd 
into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-POSIX {A9490C1}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {AA5A751}> as SB-POSIX-TESTS
COMMON-LISP:STYLE-WARNING: redefining CLSYS-FAST-SLOT-LOOKUP in DEFUN
; compiling (IN-PACKAGE "STELLA")
; compiling (COMMON-LISP:DEFSTRUCT (LISP-CODE # ...) ...)
; compiling (COMMON-LISP:DEFINE-CONDITION STELLA-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION INCOMPATIBLE-QUANTITY-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION BAD-ARGUMENT-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION OBJECT-NOT-CLASS-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION NO-SUCH-OBJECT-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION UNDEFINED-CLASS-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION NO-SUCH-CONTEXT-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION EVALUATION-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION UNHANDLED-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION INPUT-OUTPUT-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION FILE-ALREADY-EXISTS-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION NO-SUCH-FILE-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION END-OF-FILE-EXCEPTION ...)
; compiling (COMMON-LISP:DEFINE-CONDITION READ-EXCEPTION ...)
; compiling (COMMON-LISP:DEFSTRUCT (UNKNOWN # ...))
; compiling (COMMON-LISP:DEFSTRUCT (VOID # ...))
; compiling (COMMON-LISP:DEFSTRUCT (OBJECT # ...) ...)
; compiling (COMMON-LISP:DEFSTRUCT (QUANTITY # ...) ...)
; compiling (COMMON-LISP:DEFSTRUCT (DATE-TIME-OBJECT # ...))
; compiling (COMMON-LISP:DEFSTRUCT (TIME-DURATION # ...) ...)
; compiling (COMMON-LISP:DEFSTRUCT (CALENDAR-DATE # ...) ...)
; compiling (COMMON-LISP:DEFSTRUCT (STANDARD-OBJECT # ...) ...)
; compiling (COMMON-LISP:DEFSTRUCT (DECODED-TIME-DURATION # ...) ...)
debugger invoked on a COMMON-LISP:SIMPLE-ERROR in thread #<THREAD "initial 
thread" RUNNING {A6BA7D1}>:
  Error during processing of --eval option (COMMON-LISP:LOAD
                                            #P"load-powerloom.lisp"):

  #<SB-C:TN t1> is not valid as the second argument to VOP:
  SB-VM::RAW-INSTANCE-INIT/DOUBLE
Primitive type: COMMON-LISP:T
SC restrictions:
  (SB-VM::DOUBLE-REG)
The primitive type disallows these loadable SCs:
  (SB-VM::DOUBLE-REG)


Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Ignore and continue with next --eval option.
  1: [ABORT   ] Skip rest of --eval options.
  2:            Skip to toplevel READ/EVAL/PRINT loop.
  3: [QUIT    ] Quit SBCL (calling #'QUIT, killing the process).

((COMMON-LISP:FLET #:LAMBDA139) #<COMMON-LISP:SIMPLE-ERROR {B24DDB9}>)
0] :back     

0: ((COMMON-LISP:FLET #:LAMBDA139) #<COMMON-LISP:SIMPLE-ERROR {B24DDB9}>)
1: ((COMMON-LISP:FLET #:LAMBDA139) #<COMMON-LISP:SIMPLE-ERROR {B24DDB9}>)
[:EXTERNAL]
2: (COMMON-LISP:SIGNAL #<COMMON-LISP:SIMPLE-ERROR {B24DDB9}>)[:EXTERNAL]
3: (COMMON-LISP:ERROR
    "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~
                ~%  ~S~%Primitive type: ~S~@
                SC restrictions:~%  ~S~@
                ~@[The primitive type disallows these loadable SCs:~%  ~S~%~]~
                ~@[No move VOPs are defined to coerce to these allowed SCs:~
                ~%  ~S~%~]~
                ~@[These move VOPs couldn't be used due to operand type ~
                restrictions:~%  ~S~%~]~
                ~:[~;~@
                Current cost info inconsistent with that in effect at compile 
~
                time. Recompile.~%Compilation order may be incorrect.~]")
[:EXTERNAL]
4: (SB-C::BAD-COERCE-ERROR
    #<SB-C:TN-REF
      :TN #<SB-C:TN t1>
      :WRITE-P COMMON-LISP:NIL
      :VOP SB-VM::RAW-INSTANCE-INIT/DOUBLE>)
5: (SB-C::BAD-COERCE-ERROR
    #<SB-C:TN-REF
      :TN #<SB-C:TN t1>
      :WRITE-P COMMON-LISP:NIL
      :VOP SB-VM::RAW-INSTANCE-INIT/DOUBLE>)[:EXTERNAL]
6: (SB-C::EMIT-COERCE-VOP
    #<SB-C:TN-REF
      :TN #<SB-C:TN t1>
      :WRITE-P COMMON-LISP:NIL
      :VOP SB-VM::RAW-INSTANCE-INIT/DOUBLE>
    COMMON-LISP:NIL
    #(COMMON-LISP:NIL (22) COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL
      COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL (22)
      COMMON-LISP:NIL COMMON-LISP:NIL ...)
    #<SB-C::VOP
      :INFO SB-VM::RAW-INSTANCE-INIT/DOUBLE
      :ARGS #<SB-C:TN-REF
              :TN #<SB-C:TN t2>
              :WRITE-P COMMON-LISP:NIL
              :VOP SB-VM::RAW-INSTANCE-INIT/DOUBLE>
      :RESULTS COMMON-LISP:NIL
      :CODEGEN-INFO (10 0)>)
7: (SB-C::COERCE-VOP-OPERANDS
    #<SB-C::VOP
      :INFO SB-VM::RAW-INSTANCE-INIT/DOUBLE
      :ARGS #<SB-C:TN-REF
              :TN #<SB-C:TN t2>
              :WRITE-P COMMON-LISP:NIL
              :VOP SB-VM::RAW-INSTANCE-INIT/DOUBLE>
      :RESULTS COMMON-LISP:NIL
      :CODEGEN-INFO (10 0)>)
8: (SB-C::EMIT-MOVES-AND-COERCIONS
    #<SB-C::IR2-BLOCK
      :START-VOP #<SB-C::VOP :INFO COMMON-LISP:SYMBOL-VALUE :ARGS # :RESULTS 
#>
      :LAST-VOP #<SB-C::VOP
                  :INFO SB-C:SET-SLOT
                  :ARGS #
                  :RESULTS COMMON-LISP:NIL
                  :CODEGEN-INFO (SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 6 1)>>)
9: (SB-C::SELECT-REPRESENTATIONS
    #<SB-C:COMPONENT :NAME %MAKE-DECODED-TIME-DURATION {B249609}>)
10: (SB-C::%COMPILE-COMPONENT
     #<SB-C:COMPONENT :NAME %MAKE-DECODED-TIME-DURATION {B249609}>)
11: (SB-C::COMPILE-COMPONENT
     #<SB-C:COMPONENT :NAME %MAKE-DECODED-TIME-DURATION {B249609}>)
12: (SB-C::%COMPILE
     (SB-INT:NAMED-LAMBDA %MAKE-DECODED-TIME-DURATION COMMON-LISP:NIL
                          (COMMON-LISP:DECLARE)
                          (COMMON-LISP:BLOCK %MAKE-DECODED-TIME-DURATION
                            (SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO
                             #<SB-KERNEL:DEFSTRUCT-DESCRIPTION 
DECODED-TIME-DURATION>
                             '((:SLOT COMMON-LISP:T . 1)
                               (:SLOT COMMON-LISP:DOUBLE-FLOAT . 0)
                               (:SLOT COMMON-LISP:T . 2)
                               (:SLOT COMMON-LISP:T . 3)
                               (:SLOT COMMON-LISP:T . 4)
                               (:SLOT COMMON-LISP:T . 5))
                             -1 NULL-FLOAT NULL-INTEGER NULL-INTEGER
                             NULL-INTEGER NULL-INTEGER)))
     
#<SB-FASL:FASL-OUTPUT "/home/disk1/powerloom-3.2.0/native/lisp/bin/sbcl/stella/stella-system-structs.sfasl">)
[:EXTERNAL]
13: (SB-C::FOPCOMPILE-FUNCTION

--- cut here ---


-- 
==== John Morrison
==== MAK Technologies Inc.
==== 68 Moulton Street, Cambridge, MA 02138
==== http://www.mak.com/
==== vox:617-876-8085 x115
==== fax:617-876-9208
==== [email protected]