[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