[movitz-devel] Error running movitz::create-image under sbcl
jjorgens at 2gn.com
jjorgens at 2gn.com
Sun Jun 20 00:33:17 UTC 2004
First, this is a really neat project. I can get the pre-packaged los0.img to
load up in bochs and it's fun to play with.
Wanting to track development a little closer, I tried to create an image in
sbcl (sbcl 0.8.10 and CVS versions). The commands I'm using are;
(load "load")
(setq movitz::*compiler-compile-eval-whens* nil
movitz::*compiler-compile-macro-expanders* nil)
(movitz::create-image)
and I get the following error message and backtrace. Am I doing something wrong
or is this a bug or is more info needed?
---Begin error message---
While Movitz compiling MEMCOPY in losp/muerte/memref.lisp:
The bounding indices 0 and 15 are bad for a sequence of length 14.
[Condition of type SB-KERNEL:BOUNDING-INDICES-BAD-ERROR]
Restarts:
0: [RETRY-FUNOBJ] Retry compilation of MUERTE:MEMCOPY.
1: [SKIP-TOPLEVEL-FORM] Skip the compilation of top-level form DEFUN.
2: [RETRY] Restart Movitz compilation of "losp/muerte/memref.lisp".
3: [CONTINUE] Skip Movitz compilation of "losp/muerte/memref.lisp".
4: [SKIP-TOPLEVEL-FORM] Skip the compilation of top-level form REQUIRE.
5: [RETRY] Restart Movitz compilation of "losp/muerte/common-lisp.lisp".
6: [CONTINUE] Skip Movitz compilation of "losp/muerte/common-lisp.lisp".
7: [SKIP-TOPLEVEL-FORM] Skip the compilation of top-level form REQUIRE.
8: [RETRY] Restart Movitz compilation of "losp/common-lisp.lisp".
9: [CONTINUE] Skip Movitz compilation of "losp/common-lisp.lisp".
10: [SKIP-TOPLEVEL-FORM] Skip the compilation of top-level form REQUIRE.
11: [RETRY] Restart Movitz compilation of #P"losp/los0.lisp".
12: [CONTINUE] Skip Movitz compilation of #P"losp/los0.lisp".
13: [ABORT] Abort handling SLIME request.
14: [ABORT] Reduce debugger level (leaving debugger, returning to toplevel).
15: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.
Backtrace:
0: (SB-IMPL::SIGNAL-BOUNDING-INDICES-BAD-ERROR 3 ((:INIT-LEXVAR #1=#<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-2 {AFE39E1}> :INIT-WITH-REGISTER :EBX :INIT-WITH-TYPE T) (:LOAD-LEXICAL #2=#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:TYPE {AFE3B69}> :EAX) (:LOAD-CONSTANT :UNSIGNED-BYTE8 :EAX . #3=(:OP :CMPL)) (:JE (QUOTE (:SUB-PROGRAM (#4=#:|case-then-61575|) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OFFSET {AFE3A29}> :EDX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-1 {AFE3A79}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-1 {AFE3999}> :EAX) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-2 {AFE3AC9}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #1# :EBX) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:COUNT {AFE3B19}> :ECX) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE (:MOVL :EDI :EAX) (:CLC) (:JMP (QUOTE #5=#:|case-exit-61574|))))) (:LOAD-CONSTANT :CHARACTER :EAX . #3#) (:JE (QUOTE #4#)) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61577| %(MEMBER #&(#&(#<MOVITZ-SYMBOL |UNSIGNED-BYTE8|> #<MOVITZ-SYMBOL |CHARACTER|>))) {C2C2E49}> :PUSH) (:LOAD-LEXICAL #2# :EBX) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61578| %(MEMBER #<<"~S fell through an ecase where the legal cases were ~S"> {CC75B69}>) {C2C2F81}> :EAX :PROTECT-REGISTERS (:EBX)) (:LOAD-CONSTANT #<MOVITZ:MOVITZ-SYMBOL |ERROR|> :EDX) (:MOVL (:EDX -3) :ESI) (:CALL (:ESI 10)) #5# #:|exit-block-MEMCOPY-61571|) 0 15)[:EXTERNAL]
1: (SB-KERNEL:%FIND-POSITION-IF 6 #<FUNCTION "CLOSURE" {C2C6CCD}> ((:INIT-LEXVAR #1=#<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-2 {AFE39E1}> :INIT-WITH-REGISTER :EBX :INIT-WITH-TYPE T) (:LOAD-LEXICAL #2=#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:TYPE {AFE3B69}> :EAX) (:LOAD-CONSTANT :UNSIGNED-BYTE8 :EAX . #3=(:OP :CMPL)) (:JE (QUOTE (:SUB-PROGRAM (#4=#:|case-then-61575|) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OFFSET {AFE3A29}> :EDX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-1 {AFE3A79}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-1 {AFE3999}> :EAX) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-2 {AFE3AC9}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #1# :EBX) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:COUNT {AFE3B19}> :ECX) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE (:MOVL :EDI :EAX) (:CLC) (:JMP (QUOTE #5=#:|case-exit-61574|))))) (:LOAD-CONSTANT :CHARACTER :EAX . #3#) (:JE (QUOTE #4#)) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61577| %(MEMBER #&(#&(#<MOVITZ-SYMBOL |UNSIGNED-BYTE8|> #<MOVITZ-SYMBOL |CHARACTER|>))) {C2C2E49}> :PUSH) (:LOAD-LEXICAL #2# :EBX) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61578| %(MEMBER #<<"~S fell through an ecase where the legal cases were ~S"> {CC75B69}>) {C2C2F81}> :EAX :PROTECT-REGISTERS (:EBX)) (:LOAD-CONSTANT #<MOVITZ:MOVITZ-SYMBOL |ERROR|> :EDX) (:MOVL (:EDX -3) :ESI) (:CALL (:ESI 10)) #5# #:|exit-block-MEMCOPY-61571|) NIL 0 15 #<FUNCTION "top level local call IDENTITY" {107F17D}>)[:EXTERNAL]
2: (MOVITZ::TRY-LOCATE-IN-REGISTER #<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-1 {AFE3999}> #<HASH-TABLE :TEST EQ :COUNT 9 {C2C6789}> #<MOVITZ:MOVITZ-FUNOBJ MUERTE:MEMCOPY {AFDBE91}> ((#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OFFSET {AFE3A29}> . :ARGUMENT-STACK) (#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-1 {AFE3A79}> . :ARGUMENT-STACK) (#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-2 {AFE3AC9}> . :ARGUMENT-STACK) (#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:COUNT {AFE3B19}> . :ARGUMENT-STACK) (#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:TYPE {AFE3B69}> . :ARGUMENT-STACK)))
3: ("LABELS MOVITZ::ASSIGN-ENV-BINDINGS" #<MOVITZ::FUNCTION-ENV {AFE37E1}>)
4: ("hairy arg processor for MOVITZ::ASSIGN-BINDINGS" ((:INIT-LEXVAR #1=#<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-1 {AFE3999}> :INIT-WITH-REGISTER :EAX :INIT-WITH-TYPE T) (:INIT-LEXVAR #2=#<MOVITZ::REGISTER-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OBJECT-2 {AFE39E1}> :INIT-WITH-REGISTER :EBX :INIT-WITH-TYPE T) (:LOAD-LEXICAL #3=#<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:TYPE {AFE3B69}> :EAX) (:LOAD-CONSTANT :UNSIGNED-BYTE8 :EAX . #4=(:OP :CMPL)) (:JE (QUOTE (:SUB-PROGRAM (#5=#:|case-then-61575|) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::OFFSET {AFE3A29}> :EDX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-1 {AFE3A79}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #1# :EAX) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE::INDEX-2 {AFE3AC9}> :ECX) (:ADDL :EDX :ECX) (:LOAD-LEXICAL #2# :EBX) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:LOAD-LEXICAL #<MOVITZ::FIXED-REQUIRED-FUNCTION-ARGUMENT name: MUERTE.COMMON-LISP:COUNT {AFE3B19}> :ECX) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE (:MOVL :EDI :EAX) (:CLC) (:JMP (QUOTE #6=#:|case-exit-61574|))))) (:LOAD-CONSTANT :CHARACTER :EAX . #4#) (:JE (QUOTE #5#)) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61577| %(MEMBER #&(#&(#<MOVITZ-SYMBOL |UNSIGNED-BYTE8|> #<MOVITZ-SYMBOL |CHARACTER|>))) {C2C2E49}> :PUSH) (:LOAD-LEXICAL #3# :EBX) (:LOAD-LEXICAL #<MOVITZ::CONSTANT-OBJECT-BINDING name: #:|self-eval-61578| %(MEMBER #<<"~S fell through an ecase where the legal cases were ~S"> {CC75B69}>) {C2C2F81}> :EAX :PROTECT-REGISTERS (:EBX)) (:LOAD-CONSTANT #<MOVITZ:MOVITZ-SYMBOL |ERROR|> :EDX) (:MOVL (:EDX -3) :ESI) (:CALL (:ESI 10)) #6# #:|exit-block-MEMCOPY-61571|) #<unavailable argument> 1 #<unavailable argument>)
5: (MOVITZ::LAYOUT-STACK-FRAMES #<MOVITZ:MOVITZ-FUNOBJ MUERTE:MEMCOPY {AFDBE91}>)
6: (MOVITZ::MAKE-COMPILED-FUNOBJ-PASS2 #<unavailable argument>)
7: ("varargs entry for MOVITZ::MAKE-COMPILED-FUNOBJ" MUERTE:MEMCOPY (MUERTE::OBJECT-1 MUERTE::OBJECT-2 MUERTE::OFFSET MUERTE::INDEX-1 MUERTE::INDEX-2 MUERTE.COMMON-LISP:COUNT MUERTE.COMMON-LISP:TYPE) NIL (MUERTE.COMMON-LISP:BLOCK MUERTE:MEMCOPY (MUERTE.COMMON-LISP:ECASE MUERTE.COMMON-LISP:TYPE ((:UNSIGNED-BYTE8 :CHARACTER) (MUERTE:WITH-INLINE-ASSEMBLY (:RETURNS :NOTHING) (:COMPILE-FORM (:RESULT-MODE :EDX) MUERTE::OFFSET) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-1) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EAX) MUERTE::OBJECT-1) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-2) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EBX) MUERTE::OBJECT-2) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE.COMMON-LISP:COUNT) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE)))) #<MOVITZ::FUNCTION-ENV {C7BA5B9}> NIL :FUNOBJ NIL)
8: (MOVITZ::SPECIAL-OPERATOR-MAKE-NAMED-FUNCTION (MUERTE:MAKE-NAMED-FUNCTION MUERTE:MEMCOPY (MUERTE::OBJECT-1 MUERTE::OBJECT-2 MUERTE::OFFSET MUERTE::INDEX-1 MUERTE::INDEX-2 MUERTE.COMMON-LISP:COUNT MUERTE.COMMON-LISP:TYPE) NIL NIL (MUERTE.COMMON-LISP:BLOCK MUERTE:MEMCOPY (MUERTE.COMMON-LISP:ECASE MUERTE.COMMON-LISP:TYPE ((:UNSIGNED-BYTE8 :CHARACTER) (MUERTE:WITH-INLINE-ASSEMBLY (:RETURNS :NOTHING) (:COMPILE-FORM (:RESULT-MODE :EDX) MUERTE::OFFSET) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-1) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EAX) MUERTE::OBJECT-1) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-2) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EBX) MUERTE::OBJECT-2) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE.COMMON-LISP:COUNT) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE))))) #<unavailable argument> #<MOVITZ::FUNCTION-ENV {C7BA5B9}> #<unavailable argument> #<unavailable argument>)
9: (MOVITZ::COMPILE-FORM (MUERTE:MAKE-NAMED-FUNCTION MUERTE:MEMCOPY (MUERTE::OBJECT-1 MUERTE::OBJECT-2 MUERTE::OFFSET MUERTE::INDEX-1 MUERTE::INDEX-2 MUERTE.COMMON-LISP:COUNT MUERTE.COMMON-LISP:TYPE) NIL NIL (MUERTE.COMMON-LISP:BLOCK MUERTE:MEMCOPY (MUERTE.COMMON-LISP:ECASE MUERTE.COMMON-LISP:TYPE ((:UNSIGNED-BYTE8 :CHARACTER) (MUERTE:WITH-INLINE-ASSEMBLY (:RETURNS :NOTHING) (:COMPILE-FORM (:RESULT-MODE :EDX) MUERTE::OFFSET) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-1) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EAX) MUERTE::OBJECT-1) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-2) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EBX) MUERTE::OBJECT-2) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE.COMMON-LISP:COUNT) (:SHRL 2 :ECX) (:JZ (MUERTE.COMMON-LISP:QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (MUERTE.COMMON-LISP:QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE))))) #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-losp/muerte/memref.lisp| {C7B9D11}> #<MOVITZ::FUNCTION-ENV {C7BA5B9}> T :IGNORE)
10: (MOVITZ::COMPILE-IMPLICIT-PROGN #<unavailable argument> #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-losp/muerte/memref.lisp| {C7B9D11}> #<MOVITZ::FUNCTION-ENV {C7BA5B9}> T :IGNORE)
11: (MOVITZ::COMPILE-FORM (MUERTE.COMMON-LISP:DEFUN MUERTE:MEMCOPY (MUERTE::OBJECT-1 MUERTE::OBJECT-2 MUERTE::OFFSET MUERTE::INDEX-1 MUERTE::INDEX-2 MUERTE.COMMON-LISP:COUNT MUERTE.COMMON-LISP:TYPE) (MUERTE.COMMON-LISP:ECASE MUERTE.COMMON-LISP:TYPE ((:UNSIGNED-BYTE8 :CHARACTER) (MUERTE:WITH-INLINE-ASSEMBLY (:RETURNS :NOTHING) (:COMPILE-FORM (:RESULT-MODE :EDX) MUERTE::OFFSET) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-1) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EAX) MUERTE::OBJECT-1) (:SARL 2 :ECX) (:ADDL :ECX :EAX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE::INDEX-2) (:ADDL :EDX :ECX) (:COMPILE-FORM (:RESULT-MODE :EBX) MUERTE::OBJECT-2) (:SARL 2 :ECX) (:ADDL :ECX :EBX) (:COMPILE-FORM (:RESULT-MODE :ECX) MUERTE.COMMON-LISP:COUNT) (:SHRL 2 :ECX) (:JZ (QUOTE MUERTE::DONE)) (:DECL :EAX) (:DECL :EBX) MUERTE.COMMON-LISP:LOOP (:MOVB (:EBX :ECX) :DL) (:MOVB :DL (:EAX :ECX)) (:DECL :ECX) (:JNZ (QUOTE MUERTE.COMMON-LISP:LOOP)) MUERTE::DONE)))) #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-losp/muerte/memref.lisp| {C7B9D11}> #<MOVITZ::FUNCTION-ENV {C7BA5B9}> T :IGNORE)
12: ("#'(LAMBDA NIL (MOVITZ::ADD-BINDINGS-FROM-LAMBDA-LIST NIL MOVITZ::FUNCTION-ENV) ...)")
13: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {C7BA725}>)[:EXTERNAL]
14: ("hairy arg processor for MOVITZ::MOVITZ-COMPILE-FILE-INTERNAL" "losp/muerte/memref.lisp" 3)
15: (MOVITZ::SPECIAL-OPERATOR-REQUIRE (MUERTE.COMMON-LISP:REQUIRE :MUERTE/MEMREF) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
16: (MOVITZ::COMPILE-FORM (MUERTE.COMMON-LISP:REQUIRE :MUERTE/MEMREF) #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-losp/muerte/common-lisp.lisp| {C3D8291}> #<MOVITZ::FUNCTION-ENV {C3D8B39}> T :IGNORE)
17: ("#'(LAMBDA NIL (MOVITZ::ADD-BINDINGS-FROM-LAMBDA-LIST NIL MOVITZ::FUNCTION-ENV) ...)")
18: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {C3D8CA5}>)[:EXTERNAL]
19: ("hairy arg processor for MOVITZ::MOVITZ-COMPILE-FILE-INTERNAL" "losp/muerte/common-lisp.lisp" 2)
20: (MOVITZ::SPECIAL-OPERATOR-REQUIRE (MUERTE.COMMON-LISP:REQUIRE :MUERTE/COMMON-LISP) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
21: (MOVITZ::COMPILE-FORM (MUERTE.COMMON-LISP:REQUIRE :MUERTE/COMMON-LISP) #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-losp/common-lisp.lisp| {C3D5EC9}> #<MOVITZ::FUNCTION-ENV {C3D6779}> T :IGNORE)
22: ("#'(LAMBDA NIL (MOVITZ::ADD-BINDINGS-FROM-LAMBDA-LIST NIL MOVITZ::FUNCTION-ENV) ...)")
23: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {C3D68E5}>)[:EXTERNAL]
24: ("hairy arg processor for MOVITZ::MOVITZ-COMPILE-FILE-INTERNAL" "losp/common-lisp.lisp" 1)
25: (MOVITZ::SPECIAL-OPERATOR-REQUIRE (MUERTE.COMMON-LISP:REQUIRE :COMMON-LISP) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
26: (MOVITZ::COMPILE-FORM (MUERTE.COMMON-LISP:REQUIRE :COMMON-LISP) #<MOVITZ::MOVITZ-FUNOBJ-PASS1 MUERTE::|file-#P"losp/los0.lisp"| {C3D31C9}> #<MOVITZ::FUNCTION-ENV {C3D3A71}> T :IGNORE)
27: ("#'(LAMBDA NIL (MOVITZ::ADD-BINDINGS-FROM-LAMBDA-LIST NIL MOVITZ::FUNCTION-ENV) ...)")
28: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {C3D3BDD}>)[:EXTERNAL]
29: ("hairy arg processor for MOVITZ::MOVITZ-COMPILE-FILE-INTERNAL" #P"losp/los0.lisp" NIL)
30: ("varargs entry for MOVITZ:MOVITZ-COMPILE-FILE" #P"losp/los0.lisp" :IMAGE NIL :LOAD-PRIORITY NIL :DELETE-FILE-P NIL)
31: ("varargs entry for MOVITZ:CREATE-IMAGE" :INIT-FILE NIL :START-ADDRESS 1048576)
32: (SB-INT:EVAL-IN-LEXENV 2 (MOVITZ:CREATE-IMAGE) #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :HANDLED-CONDITIONS NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1))))[:EXTERNAL]
33: ("hairy arg processor for SWANK::EVAL-REGION" "(movitz::create-image)" T)
34: ("#'(LAMBDA NIL (MULTIPLE-VALUE-BIND # # ...))")
35: ((SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<FUNCTION "CLOSURE" {C3CE4BD}>)
36: (SWANK:LISTENER-EVAL "(movitz::create-image)")
37: (SB-INT:EVAL-IN-LEXENV 2 (SWANK:LISTENER-EVAL "(movitz::create-image)") #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :HANDLED-CONDITIONS NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1))))[:EXTERNAL]
38: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(movitz::create-image)") "CL-USER" 11)
39: ("#'(LAMBDA NIL (LET # #))")
40: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {99C0F99}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {90026D9}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {93B2929}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :CONTROL-THREAD NIL :READER-THREAD NIL :REPL-THREAD NIL :READ #<FUNCTION SWANK::READ-FROM-SOCKET-IO> :SEND #<FUNCTION SWANK::SEND-TO-SOCKET-IO> :SERVE-REQUESTS #<FUNCTION SWANK::INSTALL-SIGIO-HANDLER> :CLEANUP #<FUNCTION SWANK::DEINSTALL-SIGIO-HANDLER> :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 56 {99C6BD1}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "MOVITZ"> #<PACKAGE "MUERTE"> #<PACKAGE "MUERTE.COMMON-LISP"> #<PACKAGE "MUERTE.MOP"> #<PACKAGE "IA-X86-INSTR"> #<PACKAGE "IA-X86"> #<PACKAGE "BINARY-TYPES"> #<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3989"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3768"> #<PACKAGE "ASDF3767"> #<PACKAGE "ASDF"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">)) #<FUNCTION "#'(LAMBDA NIL (LET # #))" {922FF05}>)
41: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {99C0F99}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {90026D9}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {93B2929}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :CONTROL-THREAD NIL :READER-THREAD NIL :REPL-THREAD NIL :READ #<FUNCTION SWANK::READ-FROM-SOCKET-IO> :SEND #<FUNCTION SWANK::SEND-TO-SOCKET-IO> :SERVE-REQUESTS #<FUNCTION SWANK::INSTALL-SIGIO-HANDLER> :CLEANUP #<FUNCTION SWANK::DEINSTALL-SIGIO-HANDLER> :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 56 {99C6BD1}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "MOVITZ"> #<PACKAGE "MUERTE"> #<PACKAGE "MUERTE.COMMON-LISP"> #<PACKAGE "MUERTE.MOP"> #<PACKAGE "IA-X86-INSTR"> #<PACKAGE "IA-X86"> #<PACKAGE "BINARY-TYPES"> #<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3989"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3768"> #<PACKAGE "ASDF3767"> #<PACKAGE "ASDF"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">)))
42: (SWANK::PROCESS-AVAILABLE-INPUT #<FILE-STREAM for "a constant string" {99C0F99}> #<FUNCTION "CLOSURE" {C3CE0F5}>)
43: ("FLET SWANK::HANDLER")
44: (SWANK-BACKEND::SIGIO-HANDLER #<unused argument> #<unused argument> #<unused argument>)
45: ("#'(LAMBDA (SIGNAL SWANK-BACKEND::CODE SWANK-BACKEND::SCP) (SWANK-BACKEND::SIGIO-HANDLER SIGNAL SWANK-BACKEND::CODE ...))" 29 #.(SB-SYS:INT-SAP #X402205E0) #.(SB-SYS:INT-SAP #X40220660))
46: ("foreign function call land: ra=#x8055D31")
47: ("foreign function call land: ra=#x8055C12")
48: ("foreign function call land: ra=#x8050907")
49: ("foreign function call land: ra=#x80523DB")
50: ("foreign function call land: ra=#xFFFFE440")
51: ("hairy arg processor for top level local call SB!SYS:WAIT-UNTIL-FD-USABLE" 0 :INPUT NIL)
52: (SB-IMPL::FROB-INPUT 1 #<FILE-STREAM for "standard input" {90032D9}>)[:EXTERNAL]
53: (SB-IMPL::INPUT-CHARACTER 3 #<FILE-STREAM for "standard input" {90032D9}> NIL #:EOF-OBJECT)[:EXTERNAL]
54: ("hairy arg processor for top level local call READ-CHAR" #<FILE-STREAM for "standard input" {90032D9}> NIL #:EOF-OBJECT #<unused argument>)
55: ("hairy arg processor for top level local call READ-CHAR" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {50288E9}> NIL #:EOF-OBJECT #<unused argument>)
56: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {50288E9}> NIL (NIL) T)
57: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {50288E9}> NIL (NIL) NIL)
58: ("hairy arg processor for top level local call READ" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {50288E9}> NIL (NIL) NIL)
59: (SB-IMPL::REPL-READ-FORM-FUN 2 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {50288E9}> #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {500F851}>)[:EXTERNAL]
60: (SB-IMPL::REPL-FUN 1 NIL)[:EXTERNAL]
61: ("#'(LAMBDA NIL (LOOP # #))")
62: ("XEP for #'(LAMBDA NIL (LOOP # #))" 0)[:EXTERNAL]
63: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {900864D}>)[:EXTERNAL]
64: (SB-IMPL::TOPLEVEL-REPL 1 NIL)[:EXTERNAL]
65: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
66: ("FLET SB!IMPL::RESTART-LISP")
---end error message---
I'm going to try cmucl next to see if I have better luck.
J*
More information about the movitz-devel
mailing list