[elephant-devel] error at delivery on LispWorks
Ian Eslick
eslick at csail.mit.edu
Wed Nov 7 22:28:51 UTC 2007
I don't have a full lispworks implementation so I probably can't debug
this myself. However its choking on btree-index which is a class
instance of the persistent-metaclass. This may be due to something
missing in the mop support for lispworks.
It looks like a persistent slot record is providing a representation
(slotname value initarg) whereas the delivery procedure compute-class-
shared-initialize is expecting the computed (effective?)
representation which is (offset-integer value initarg).
I would look at what the lispworks mop expects as values from some of
the slot metaclass functions. You might start by figuring out where
in metaclass.lisp or classes.lisp the data structure (ELEPHANT:PRIMARY
#<unbound> (:PRIMARY)) is generated.
Good luck!
Ian
What I think is happening is that the procedure which
On Nov 4, 2007, at 12:01 PM, Frank Schorr wrote:
> When delivering my application
> with Lispworks on win32 at delivery level 2, the
> delivery process produces an error. For example:
>
> Error: An error of type CONDITIONS:ARITHMETIC-TYPE-ERROR occured,
> arguments : (:EXPECTED-TYPE REAL :DATUM ELEPHANT:PRIMARY :OPERATION
> < :OPERANDS (2 ELEPHANT:PRIMARY))
>
> This error is not exactly reproducible. "ELEPHANT:PRIMARY" can be
> replaced by one or the other
> slot name of my persistent class. But it generates always a
> CONDITIONS:ARITHMETIC-TYPE-ERROR.
> Complete output is reproduced below.
>
> Do you have an idea where to start solving this ?
>
> At delivery levels 0 and 1, a perfectly working executable file is
> produced,
> having a size of 40MB. It should be possible to reduce this size at
> higher levels.
>
> Best regards,
>
> Frank Schorr
>
> Shaking stage : Shaking (1)
> Generation 0: Total Size 4358K, Allocated 349K, Free 4000K
> Generation 1: Total Size 4982K, Allocated 2196K, Free 2765K
> Generation 2: Total Size 25604K, Allocated 12112K, Free 13475K
> Generation 3: Total Size 18263K, Allocated 8611K, Free 9643K
>
> Total Size 53504K, Allocated 23269K, Free 29885K
> Broke pointers from 2982 gfs
>
> Number of symbols 29616 (keywords 2742 fbound 15687 bound 4070
> uninterned 677)
>
> Number of classes 966
>
>
> Unwinding shaking-action "?SYSTEM::ACTION-TUPLE-SYM"
>
> Unwinding shaking-action "?SYSTEM::ACTION-ITEM-OWNER"
>
> Unwinding shaking-action "?TYPE::CLEAR-TYPE-EXPANSION-CACHE"
>
> Unwinding shaking-action "?SYSTEM::*LINE-ARGUMENT-ACTIONS*"
>
> Unwinding shaking-action "?CLOS::*ISL-TABLE*"
>
> Unwinding shaking-action "?CLOS::CLASS-SHARED-INITIALIZE"
> Error: An error of type CONDITIONS:ARITHMETIC-TYPE-ERROR occured,
> arguments : (:EXPECTED-TYPE REAL :DATUM ELEPHANT:PRIMARY :OPERATION
> < :OPERANDS (2 ELEPHANT:PRIMARY))
>
> Backtrace:
> #<The COMMON-LISP-USER package, 6/128 internal, 0/4 external>
>
>
> Call to "GET-CALL-FRAME"
> "FRAME-POINTER" : NIL
> "PREV-FRAME" : NIL
>
> Binding frame:
> *DEBUGGER-HOOK* : NIL
> SYSTEM::*INSIDE-RUN-BUILD-SCRIPT-DEBUGGER-HOOK* : NIL
>
> Call to "RUN-BUILD-SCRIPT-DEBUGGER-HOOK" (offset 145)
> "CC" : #<SIMPLE-ERROR 200D929F>
>
> Catch frame: CONDITIONS::NEW-IGNORE-ERRORS-HANDLER
>
> Binding frame:
> MP:*CURRENT-PROCESS* : NIL
>
> Call to "DEBUG2" (offset 3141)
> "CONDITION" : #<SIMPLE-ERROR 200D929F>
> "PROCESS" : NIL
> "SKIP-TO" : NIL
>
> Tag environment contour:
> Function environment contour
> Block environment contour:
> Variable environment contour: ()
> Call to "DEBUG1" (offset 215)
> "(DATUM NIL)" : #<SIMPLE-ERROR 200D929F>
> "ARGUMENTS" : NIL
>
> Binding frame:
> MP::*PROCESSING-INTERRUPTS* : NIL
> *EVALHOOK* : NIL
>
> Call to "INVOKE-DEBUGGER" (offset 111)
> "CONDITION" : #<SIMPLE-ERROR 200D929F>
>
> Binding frame:
> CONDITIONS::*BROKEN-ON-SIGNALS* : NIL
>
> Call to "CONDITIONS-ERROR" (offset 356)
> "DATUM" : CONDITIONS:ARITHMETIC-TYPE-ERROR
> "ARGUMENTS" : (:EXPECTED-TYPE REAL :DATUM
> ELEPHANT:PRIMARY :OPERATION < :OPERANDS (2 ELEPHANT:PRIMARY))
>
> Catch frame: (NIL)
>
> Catch frame: (NIL)
>
> Call to "REPORT-THE-BINARY-FN-ERROR" (offset 329)
> "FN-NAME" : <
> "ARG1" : 2
> "ARG2" : ELEPHANT:PRIMARY
> "TYPE" : REAL
> "ARG1-IS-BAD" : NIL
> "PROMPT" : "Supply a new second argument."
>
> Call to "ARGS-TO-BINARY-ARITHMETIC-FN-NOT-OF-TYPE" (offset 197)
> "FN-NAME" : <
> "ARG1" : 2
> "ARG2" : ELEPHANT:PRIMARY
> "TYPE" : REAL
>
> Call to "MERGE-LISTS*" (offset 87)
> "LIST-1" : ((ELEPHANT:PRIMARY #<Slot Unbound Marker> (:PRIMARY)))
> "LIST-2" : ((2 #<Slot Unbound Marker> NIL))
> "PRED" : #<Function "<$ANY" 209A4702>
> "KEY" : #<Function "CAR" 201C7C72>
>
> Call to "SORT-LIST" (offset 279)
> "LIST" : ((1 #<Slot Unbound Marker> (:DBCONNECTION-SPEC-PST)) (0
> #<Slot Unbound Marker> (:FROM-OID)))
> "PRED" : #<Function "<$ANY" 209A4702>
> "KEY" : #<Function "CAR" 201C7C72>
>
> Call to "(METHOD COMPUTE-CLASS-SHARED-INITIALIZE-INFO (T
> T))" (offset 258)
> "CLASS" : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-BTREE-
> INDEX 21D0254B>
> "JUST-SLOTS-P" : T
>
> Call to "(METHOD COMPUTE-CLASS-SHARED-INITIALIZE T . NIL)" (offset
> 56)
> "CLASS" : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-BTREE-INDEX
> 21D0254B>
>
> Call to "INSTALL-ALL-CLASS-SHARED-INITIALIZE" (offset 138)
> "NAME" : DB-BDB::BDB-BTREE-INDEX
> "CLASS" : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-
> BTREE-INDEX 21D0254B>
> "METACLASSES-KEEP" : :DONT-KNOW
> "KEEP" : :DONT-KNOW
>
> Catch frame: #<Unbound Marker>
>
> Call to "MAPHASH" (offset 356)
> "FUNCTION" : #<Closure "INSTALL-ALL-CLASS-SHARED-INITIALIZE"
> 20269642>
> "HASH-TABLE" : #<EQ Hash Table{966} 2023B153>
>
> Call to "INSTALL-ALL-CLASS-SHARED-INITIALIZE" (offset 90)
> "KEEP" : NIL
> "METACLASSES-KEEP" : (#<STANDARD-CLASS STRUCTURE-CLASS 209503CF>
> #<STANDARD-CLASS BUILT-IN-CLASS 2094FE6F> #<STANDARD-CLASS
> FUNCALLABLE-STANDARD-CLASS 2095033F>)
>
> Call to "UNWIND-SHAKING-ACTIONS" (offset 456)
> "TESTING-ONLY" : NIL
>
> Binding frame:
> SYSTEM::*BUILT-IN-CLASSES* : NIL
>
> Catch frame: #<Unbound Marker>
>
> Binding frame:
> *PACKAGES-FOR-WARN-ON-REDEFINITION* : ("AMD64" "ATSUI" "CAPI" "CAPI-
> COCOA-LIBRARY" "CAPI-INTERNALS" "CAPI-LAYOUT" "CAPI-LIBRARY" "CAPI-
> MOTIF-LIBRARY" "CAPI-POSTSCRIPT-LIBRARY" "CAPI-TOOLKIT" "CAPI-WIN32-
> LIB" "CARBON" "CLIM" "CLIM-DEFSYSTEM" "CLIM-INTERNALS" "CLIM-LISP"
> "CLIM-SILICA" "CLIM-SYS" "CLIM-UTILS" "CLOG-VAR" "CLOS" "COCOA"
> "COLOR" "COM" "COMM" "COMMON-LISP" "COMMON-PROLOG" "COMMON-
> UTILITIES" "COMPILER" "CONDITIONS" "CONSTANTS" "CORBA" "CORBA-
> INTERNAL" "CORE-GRAPHICS" "COSNAMING" "DBG" "DELIVERY" "DSPEC"
> "EDITOR" "ENVIRONMENT" "ENVIRONMENT-INTERNALS" "EXE-PARSER"
> "EXTERNAL-FORMAT" "FLI" "FLI-INTERNALS" "FOREIGN" "FOREIGN-PARSER"
> "GENERATOR" "GRAPHICS-PORTS" "HARLEQUIN-COMMON-LISP" "HARP" "HQN-
> WEB" "INS" "INTERFACE-BUILDER" "KEYWORD" "KW" "KW-TOOLS" "LISPWORKS"
> "LISPWORKS-TOOLS" "LOOP" "LOW64" "LW-XP" "MAIL" "MATCH" "MP" "OBJC"
> "ODBC-COMMON" "OMG.ORG/OPERATION" "OMG.ORG/PORTABLESERVER" "OMG.ORG/
> ROOT" "PARSERGEN" "PC386" "PKG" "POSTGRESQL" "POSTSCRIPT-CLIM" "RAW"
> "RC-PARSER" "REG" "RS6K" "RUNTIME" "SAVED-STUFF" "SCM" "SERIAL-PORT"
> "SETF" "SHELL" "SNAKE" "SQL" "SQL-COMMON" "STEPPER" "STREAM"
> "STRUCTURE" "SYSTEM" "TRANS" "TYPE" "WALKER" "WIN32" "WIN32-LIB-
> CLIM" "WSPARC" "X-INTERNALS" "X-LIBRARY" "X-TOOLS" "X-UTILITIES" "XM-
> INTERNALS" "XM-LIB-CLIM" "XM-LIBRARY" "XMA-LIBRARY" "XT-INTERNALS"
> "XT-LIBRARY")
>
> Binding frame:
> SYSTEM::*SHAKE-CLASS-DIRECT-METHODS* : NIL
>
> Binding frame:
> SYSTEM::*SHAKE-CLASS-ACCESSORS* : NIL
>
> Binding frame:
> SYSTEM::*SHAKE-CLASSES* : NIL
>
> Call to "DELIVER-SHAKE" (offset 2655)
>
> Catch frame: #<Unbound Marker>
>
> Binding frame:
> SYSTEM::*CLEANING* : NIL
>
> Call to "DELIVER-FROM-MAIN" (offset 371)
>
> Catch frame: SYSTEM::EXIT-LISPWORKS
>
> Catch frame: SYSTEM::START-UP
>
> Catch frame: (NIL)
>
> Call to "START-FUNCTION" (offset 116)
> "GC-MESSAGES" : #<Raw value #x00000028 (40)>
>
>
> "START-FUNCTION"
> Quitting
> _________________________________________________________________________
> Mit der Gruppen-SMS von WEB.DE FreeMail können Sie eine SMS an alle
> Freunde gleichzeitig schicken: http://freemail.web.de/features/?mc=021179
>
>
>
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
More information about the elephant-devel
mailing list