[movitz-devel] Build problem

[rjs at fdy2.demon.co.uk]

I am having problems building a Movitz image, with SBCL (and CMUCL) I
get the following error when compiling memref.lisp.

I can't see anything wrong with the code itself but it looks as if
an 'ECASE form within another one isn't being expanded properly.

There was a change to basic-macros.lisp in July, are there some other
diffs waiting to be committed ?

Robert Swindells

;; While Movitz compiling MEMREF in losp/muerte/memref.lisp:

debugger invoked on a COMMON-LISP:SIMPLE-ERROR:
  Don't know how to compile compound form ((HOST LITTLE)
                                           (MEMREF OBJECT OFFSET INDEX INDEX
                                            TYPE UNSIGNED-BYTE16 ENDIAN LITTLE
                                            PHYSICALP T))

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

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY-FUNOBJ      ] Retry compilation of MEMREF.
  1: [SKIP-TOPLEVEL-FORM] Skip the compilation of top-level form DEFUN MEMREF.
  2: [RETRY             ] Restart Movitz compilation of "losp/muerte/memref.lisp".
  3: [CONTINUE          ] Skip Movitz compilation of "losp/muerte/memref.lisp".
  4:                      Skip the compilation of top-level form REQUIRE MUERTE/MEMREF.
  5:                      Restart Movitz compilation of "losp/muerte/common-lisp.lisp".
  6:                      Skip Movitz compilation of "losp/muerte/common-lisp.lisp".
  7:                      Skip the compilation of top-level form REQUIRE MUERTE/COMMON-LISP.
  8:                      Restart Movitz compilation of "losp/common-lisp.lisp".
  9:                      Skip Movitz compilation of "losp/common-lisp.lisp".
 10:                      Skip the compilation of top-level form REQUIRE COMMON-LISP.
 11:                      Restart Movitz compilation of #P"losp/los0.lisp".
 12:                      Skip Movitz compilation of #P"losp/los0.lisp".
 13: [ABORT             ] Exit debugger, returning to top level.

(MOVITZ::COMPILE-CONS
 ((:HOST :LITTLE)
  (MEMREF OBJECT OFFSET :INDEX INDEX :TYPE :UNSIGNED-BYTE16 :ENDIAN :LITTLE
   :PHYSICALP T))
 #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MEMREF {61A6F169}>
 #<MOVITZ::WITH-THINGS-ON-STACK-ENV {61BB04A9}>
 NIL
 :EBX
 NIL)
0]