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@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
