[Openmcl-devel] Fwd: Freeze
Gail Zacharias
gz at clozure.com
Tue Jun 3 10:55:35 PDT 2008
The ccl bug is now fixed in subversion.
At 6/3/2008 04:13 AM, Marko Tapio Manninen wrote:
>Hi,
>
>im getting error when trying to compile series package with ccl intel
>64bit. is it a bug or has my ccl broken in some point?
>
>No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR
>#x3000410DCFED>
> [Condition of type SIMPLE-ERROR]
>
>Backtrace:
> 0: (CCL::NO-MAKE-LOAD-FORM-FOR #<CCL::SIMPLE-PROGRAM-ERROR
>#x3000410DCFED>)
> Locals:
> CCL::OBJECT = #<CCL::SIMPLE-PROGRAM-ERROR #x3000410DCFED>
> 1: (CCL::FASL-SCAN-USER-FORM #<CCL::SIMPLE-PROGRAM-ERROR
>#x3000410DCFED>)
> [No Locals]
> 2: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000410DCF5F>)
> Locals:
> CCL::F = #<Anonymous Function #x3000410DCF5F>
> CCL::NCODE-WORDS = 9
> 3: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000410DBFBF>)
> Locals:
> CCL::F = #<Anonymous Function #x3000410DBFBF>
> CCL::NCODE-WORDS = 18
> 4: (CCL::FASL-SCAN '((23 83) (47 "home:lisp;libs;series;s-
>code.lisp.newest")
> (4 #<Anonymous Function #x300040F8F47F>)
> (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL
> "Suppress warnings when the restrictions are violated.")
> (41 SERIES:*SERIES-EXPRESSION-CACHE* T
> "Avoids multiple expansions")
> (41 SERIES:*LAST-SERIES-LOOP* NIL
> "Loop most recently created by SERIES.")
> (41 SERIES:*LAST-SERIES-ERROR* NIL
> "Info about error found most recently by SERIES.") ..))))
> 5: (CCL::FASL-SCAN-FORMS-AND-DUMP-FILE '((23 83) (47
>"home:lisp;libs;series;s-code.lisp.newest")
> (4 #<Anonymous Function #x300040F8F47F>)
> (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL
> "Suppress warnings when the restrictions are violated.")
> (41 SERIES:*SERIES-EXPRESSION-CACHE* T
> "Avoids multiple expansions")
> (41 SERIES:*LAST-SERIES-LOOP* NIL
> "Loop most recently created by SERIES.")
> (41 SERIES:*LAST-SERIES-ERROR* NIL
> "Info about error found most recently by SERIES.") ..))) "/
>Users/mmstud/lisp/libs/series/s-code.dx64fsl" #<LEXICAL-ENVIRONMENT
>#x300040F8F9AD>)
> 6: (CCL::%COMPILE-FILE "/Users/mmstud/lisp/libs/series/s-code.lisp"
>"/Users/mmstud/lisp/libs/series/s-code.dx64fsl" 'T 'NIL 'NIL 'NIL 'T
>'T 'NIL 'NIL #<BACKEND DARWINX8664 #x30004071783D> ':DEFAULT)
> Locals:
> CCL::SRC = "/Users/mmstud/lisp/libs/series/s-code.lisp"
> CCL::VERBOSE = T
> PRINT = NIL
> LOAD = NIL
> CCL::FEATURES = NIL
> CCL::SAVE-LOCAL-SYMBOLS = T
> CCL::SAVE-DOC-STRINGS = T
> CCL::SAVE-DEFINITIONS = NIL
> CCL::FORCE = NIL
> EXTERNAL-FORMAT = :DEFAULT
> CCL::OUTPUT-DEFAULT-TYPE = #P".dx64fsl"
> CCL::*FASL-NON-STYLE-WARNINGS-SIGNALLED-P* = NIL
> CCL::*FASL-WARNINGS-SIGNALLED-P* = NIL
> *FEATURES* = (:SERIES-ANSI :ASDF-INSTALL :ASDF :PRIMARY-
>CLASSES :COMMON-LISP :OPENMCL ...)
> CCL::*FASL-DEFERRED-WARNINGS* = NIL
> *FASL-SAVE-LOCAL-SYMBOLS* = T
> *FASL-SAVE-DOC-STRINGS* = T
> *FASL-SAVE-DEFINITIONS* = NIL
> CCL::*FCOMP-WARNINGS-HEADER* = #<Unbound>
> *COMPILE-FILE-PATHNAME* = NIL
> *COMPILE-FILE-TRUENAME* = NIL
> *PACKAGE* = #<Package "COMMON-LISP-USER">
> *READTABLE* = #<READTABLE #x30004047C7DD>
> *COMPILE-PRINT* = NIL
> *COMPILE-VERBOSE* = T
> CCL::*FASL-TARGET* = :DARWINX8664
> CCL::*FASL-BACKEND* = #<BACKEND DARWINX8664 #x30004071783D>
> CCL::*FASL-TARGET-BIG-ENDIAN* = NIL
> CCL::*TARGET-FTD* = #S(CCL::FOREIGN-TYPE-DATA :TRANSLATORS
>#<HASH-TABLE :TEST EQ size 16/60 #x300040A5F07D> :KIND-INFO #<HASH-
>TABLE :TEST EQ size 29/60 #x300040A5EA9D> :DEFINITIONS ...)
> CCL::DEFENV = #<DEFINITION-ENVIRONMENT #x300040F8F9FD>
> CCL::LEXENV = #<LEXICAL-ENVIRONMENT #x300040F8F9AD>
> CCL::*FCOMP-EXTERNAL-FORMAT* = :DEFAULT
> CCL::FORMS = ((23 83) (47 "home:lisp;libs;series;s-
>code.lisp.newest") (4 #<Anonymous Function #x300040F8F47F>) (41
>SERIES:*SUPPRESS-SERIES-WARNINGS* NIL "Suppress warnings when the
>restrictions are violated.") (41 SERIES:*SERIES-EXPRESSION-CACHE* T
>"Avoids multiple expansions") (41 SERIES:*LAST-SERIES-LOOP* NIL "Loop
>most recently created by SERIES.") ...)
> 7: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/series/s-code.lisp"
>':OUTPUT-FILE #P"/Users/mmstud/lisp/libs/series/s-code.dx64fsl"
>':VERBOSE 'T ':PRINT 'NIL ':LOAD 'NIL ':FEATURES 'NIL ':TARGET
>':DARWINX8664 ':SAVE-LOCAL-SYMBOLS 'NIL ':SAVE-DOC-STRINGS 'T ':SAVE-
>DEFINITIONS 'T ':EXTERNAL-FORMAT 'NIL ':FORCE ':DEFAULT)
> Locals:
> CCL::SRC = #P"/Users/mmstud/lisp/libs/series/s-code.lisp"
> CCL::OUTPUT-FILE = #P"/Users/mmstud/lisp/libs/series/s-
>code.dx64fsl"
> CCL::VERBOSE = T
> PRINT = NIL
> LOAD = NIL
> CCL::FEATURES = NIL
> CCL::TARGET = :DARWINX8664
> CCL::TARGET-P = NIL
> CCL::SAVE-LOCAL-SYMBOLS = T
> CCL::SAVE-DOC-STRINGS = T
> CCL::SAVE-DEFINITIONS = NIL
> EXTERNAL-FORMAT = :DEFAULT
> CCL::FORCE = NIL
> CCL::BACKEND = #<BACKEND DARWINX8664 #x30004071783D>
> CCL::%RESTARTS% = ((#<RESTART ASDF:RETRY #x229B53D> #<RESTART
>ASDF:ACCEPT #x229B58D>) (#<RESTART ABORT #x229B94D>) (#<RESTART ABORT-
>BREAK #x229BB0D> #<RESTART ABORT #x229BB5D>))
> Catch-tags:
> (:RESTART CCL::RETRY-COMPILE-FILE)
> 8: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
> ASDF:CL-SOURCE-FILE)> #<COMPILE-
>OP NIL #x300040F8995D> #<CL-SOURCE-FILE "s-code" #x300040F8699D>)
> Locals:
> ASDF:SOURCE-FILE = #P"/Users/mmstud/lisp/libs/series/s-
>code.lisp"
> ASDF::OUTPUT-FILE = #P"/Users/mmstud/lisp/libs/series/s-
>code.dx64fsl"
> 9: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
> #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
> ASDF:CL-SOURCE-FILE)>
> . 4265217))
> Locals:
> CCL::METHODS = ((#<STANDARD-METHOD ASDF:PERFORM :BEFORE
>(ASDF:COMPILE-OP ASDF:SOURCE-FILE)>) (#<STANDARD-METHOD
>ASDF:PERFORM :AFTER (ASDF:OPERATION ASDF:COMPONENT)>) #<STANDARD-
>METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>)
> CCL::BEFORES = (#<STANDARD-METHOD ASDF:PERFORM :BEFORE
>(ASDF:COMPILE-OP ASDF:SOURCE-FILE)>)
> CCL::CDR-METHS = ((#<STANDARD-METHOD ASDF:PERFORM :AFTER
>(ASDF:OPERATION ASDF:COMPONENT)>) #<STANDARD-METHOD ASDF:PERFORM
>(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>)
> CCL::PRIMARIES = (#<STANDARD-METHOD ASDF:PERFORM
>(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>)
> CCL::AFTERS = (#<STANDARD-METHOD ASDF:PERFORM :AFTER
>(ASDF:OPERATION ASDF:COMPONENT)>)
> CDR = NIL
> METHOD-FUNCTION = #<METHOD-FUNCTION ASDF:PERFORM
>(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>
> 10: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '((#<STANDARD-METHOD
>ASDF:PERFORM :BEFORE (ASDF:COMPILE-OP
> ASDF:SOURCE-FILE)>)
> (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION
> ASDF:COMPONENT)>)
> #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
> ASDF:CL-SOURCE-FILE)>) 4265217)
> Locals:
> CCL::CELL-2 = (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-
>OP ASDF:CL-SOURCE-FILE)> . 4265217)
> 11: (ASDF:OPERATE 'ASDF:LOAD-OP ':SERIES)
> Locals:
> ASDF::OPERATION-CLASS = ASDF:LOAD-OP
> ASDF:SYSTEM = :SERIES
> ASDF::VERBOSE = T
> ASDF:VERSION = NIL
> ASDF::ARGS = NIL
> ASDF::OP = #<LOAD-OP NIL #x300040F899CD>
> ASDF::*VERBOSE-OUT* = NIL
> ASDF:SYSTEM = #<SYSTEM "series" #x300040F87B0D>
> ASDF::STEPS = ((#2=#<COMPILE-OP NIL #x300040F8995D> . #1= .
>#<CL-SOURCE-FILE "s-package" #x300040F8707D>) (#<LOAD-OP NIL
>#x300040F898BD> . #1#) (#2# . #3= . #<CL-SOURCE-FILE "s-code"
>#x300040F8699D>) (#2# . #5= . #<SYSTEM "series" #x300040F87B0D>)
>(#4=#<LOAD-OP NIL #x300040F899CD> . #3#) (#4# . #5#))
> CCL::*OUTSTANDING-DEFERRED-WARNINGS* = NIL
> ASDF::OP = #<COMPILE-OP NIL #x300040F8995D>
> ASDF:COMPONENT = #<CL-SOURCE-FILE "s-code" #x300040F8699D>
> #:LOOP-LIST-401 = ((#<COMPILE-OP NIL #x300040F8995D> . #2= .
>#<SYSTEM "series" #x300040F87B0D>) (#1=#<LOAD-OP NIL #x300040F899CD> .
>#<CL-SOURCE-FILE "s-code" #x300040F8699D>) (#1# . #2#))
> CCL::%RESTARTS% = ((#<RESTART ABORT #x229B94D>) (#<RESTART
>ABORT-BREAK #x229BB0D> #<RESTART ABORT #x229BB5D>))
> Catch-tags:
> (:RESTART ASDF:RETRY)
> 12: (CCL::CALL-CHECK-REGS 'ASDF:OOS 'ASDF:LOAD-OP ':SERIES)
> Locals:
> CCL::FN = ASDF:OOS
> CCL::ARGS = (ASDF:LOAD-OP :SERIES)
> CCL::OLD-REGS = (#<STRING-INPUT-STREAM #x300040F89C2D>
>(ASDF:OOS 'ASDF:LOAD-OP :SERIES) - NIL)
> 13: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :series)
> ")
> 14: ((:INTERNAL SWANK::REPL-EVAL))
> 15: (SWANK::TRACK-PACKAGE #<COMPILED-LEXICAL-CLOSURE (:INTERNAL
> SWANK::REPL-EVAL) #x300040F89C5F>)
> 16: (SWANK::CALL-WITH-BUFFER-SYNTAX #<COMPILED-LEXICAL-CLOSURE
>(:INTERNAL
> SWANK::REPL-EVAL) #x300040F89C9F>)
> 17: (SWANK::REPL-EVAL "(asdf:oos 'asdf:load-op :series)
> ")
> 18: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load-
>op :series)
> ")
> 19: ((:INTERNAL SWANK::EVAL-FOR-EMACS))
> 20: (#<Anonymous Function #x300040DA6E9F> #<Compiled-function
>SWANK:SWANK-DEBUGGER-HOOK #x300040E96C2F> #<COMPILED-LEXICAL-CLOSURE
>(:INTERNAL
> SWANK::EVAL-FOR-EMACS)
>#x300040F89CEF>)
> 21: (FUNCALL 'SWANK::EVAL-FOR-EMACS '(SWANK:LISTENER-EVAL
> "(asdf:oos 'asdf:load-op :series)
> ") "COMMON-LISP-USER" 17)
> 22: ((:INTERNAL SWANK::HANDLE-REQUEST))
> 23: (#<Anonymous Function #x300040DA6E9F> #<Compiled-function
>SWANK:SWANK-DEBUGGER-HOOK #x300040E96C2F> #<Compiled-function (:INTERNAL
> SWANK::HANDLE-REQUEST) (Non-Global)
>#x300040E81E4F>)
> 24: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040EDE09D>
>#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
> SWANK::CALL-WITH-CONNECTION)
>#x300040F89D3F>)
> 25: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040EDE09D>
>#<Compiled-function (:INTERNAL
> SWANK::HANDLE-REQUEST) (Non-Global)
>#x300040E81E4F>)
> 26: (SWANK::HANDLE-REQUEST #<CONNECTION #x300040EDE09D>)
> Locals:
> SWANK::CONNECTION = #<CONNECTION #x300040EDE09D>
> SWANK::*SWANK-STATE-STACK* = NIL
> 27: (SWANK::REPL-LOOP #<CONNECTION #x300040EDE09D>)
> [No Locals]
> 28: (SWANK::CALL-WITH-BINDINGS 'NIL #<COMPILED-LEXICAL-CLOSURE
>(:INTERNAL
> SWANK::SPAWN-REPL-THREAD)
>#x300040EF645F>)
> Locals:
> SWANK::ALIST = NIL
> SWANK::FUN = #<COMPILED-LEXICAL-CLOSURE (:INTERNAL
>SWANK::SPAWN-REPL-THREAD) #x300040EF645F>
> SWANK::RLIST = NIL
> SWANK::VARS = NIL
> Catch-tags:
> NIL
> 29: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(5) [Active]
>#x300040ECC26D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
> CCL::%PROCESS-RUN-FUNCTION)
>#x300040ECC1DF>))
> Locals:
> CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
>CCL::%PROCESS-RUN-FUNCTION) #x300040ECC1DF>)
> CCL::EXITED = NIL
> #:G59185 = (PROCESS-RESET)
> CCL::%HANDLERS% = NIL
> #:ABORT = #<RESTART ABORT #x229BB5D>
> #:ABORT-BREAK = #<RESTART ABORT-BREAK #x229BB0D>
> CCL::%RESTARTS% = NIL
> Catch-tags:
> (:RESTART ABORT-BREAK)
> NIL
> 30: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS repl-
>thread(5) [Active] #x300040ECC26D> '(#<COMPILED-LEXICAL-CLOSURE
>(:INTERNAL
> CCL::%PROCESS-RUN-FUNCTION)
>#x300040ECC1DF>))
> Locals:
> CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
>CCL::%PROCESS-RUN-FUNCTION) #x300040ECC1DF>)
> *CURRENT-PROCESS* = #<PROCESS Initial(0) [Active]
>#x300040434EAD>
> CCL::SYMS = (CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-
>TABLES* CCL::*VINSN-VARPARTS* CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN-
>FREELIST* CCL::*LCELL-FREELIST* ...)
> VALUES = (NIL NIL #<POOL #x300040EF686D> #<POOL
>#x300040EF683D> #<POOL #x300040EF680D> #<POOL #x300040EF67DD> ...)
> Catch-tags:
> NIL
> 31: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
>
>_______________________________________________
>Openmcl-devel mailing list
>Openmcl-devel at clozure.com
>http://clozure.com/mailman/listinfo/openmcl-devel
More information about the Openmcl-devel
mailing list