[Openmcl-devel] Fwd: Freeze

Gary Byers gb at clozure.com
Tue Jun 3 09:04:35 UTC 2008


It's a bug.  One simple way of provoking it is to compile a file
that contains something like:

(defun foo (x)
   (cdr)) ; <<- missing argument

I think that it's likely related to something that's in our bug tracking
system

<http://trac.clozure.com/openmcl/ticket/294>

I'd thought that that was all limited to a particular branch and didn't
realize that these changes went into 1.2.

While waiting for this to be fixed ... it's likely that there's some
warning or handled error reported before this dies trying to save
a condition object as a constant; addressing that problem might avoid
the subsequent usability-challenged behavior.


On Tue, 3 Jun 2008, 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