sbcl windows: division-by-zero during build
Created by: avodonosov
If you check windows versions of SBCL here - http://common-lisp.net/project/cl-test-grid/library/genworks-gdl - you may see DIVISION-BY-ZERO errors.
Example log: http://cl-test-grid.appspot.com/blob?key=1046080
Strange that it happens only on SBCL windows, but I reproduced it. Quicklisp 2012-12-23.
(ql:quickload :gdl-tasty).
....
debugger invoked on a DIVISION-BY-ZERO in thread
#<THREAD "main thread" RUNNING {23EFED39}>:
arithmetic error DIVISION-BY-ZERO signalled
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry
compiling #<CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">.
1: [ACCEPT] Continue, treating
compiling #<CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">
as having been successful.
2: [ABORT ] Give up on "gdl-tasty"
3: Exit debugger, returning to top level.
(SB-KERNEL:TWO-ARG-/ -1.0d0 0.0d0)
0] backtrace
0: (SB-KERNEL:TWO-ARG-/ -1.0d0 0.0d0)
1: (ACOS -1.0d0)
2: (ANGLE-BETWEEN-VECTORS
#(0.0d0 1.0d0 0.0d0)
#(0.0d0 -1.0d0 0.0d0)
NIL
:EPSILON
NIL
:-VE
NIL)
3: (ALIGNMENT
:TOP
#(0.0d0 0.0d0 1.0d0)
:LEFT
#(1.0d0 0.0d0 0.0d0)
:REAR
#(0.0d0 1.0d0 0.0d0))
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0))
#<NULL-LEXENV>)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
#<NULL-LEXENV>)
6: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION))
#<NULL-LEXENV>)
7: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(PROGN
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
#<NULL-LEXENV>)
8: (SB-EXT:EVAL-TLF
(PROGN
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
1
#<NULL-LEXENV>)
9: (SB-C::EVAL-COMPILE-TOPLEVEL
((SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
(#1=(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
#2=(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION))
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#)
(DEFCONSTANT +IDENTITY-LH-MATRIX+ #2#) SB-C::ORIGINAL-SOURCE-START 0 1))
10: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM)
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
11: (SB-C::PROCESS-TOPLEVEL-FORM
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION))
((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
#1=(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP # :LEFT # :REAR #))
'NIL (SB-C:SOURCE-LOCATION)))
(DEFCONSTANT +IDENTITY-LH-MATRIX+ #1#) SB-C::ORIGINAL-SOURCE-START 0 1)
(:COMPILE-TOPLEVEL))
12: (SB-C::PROCESS-TOPLEVEL-PROGN
((SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
#1=(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP # :LEFT # :REAR #))
'NIL (SB-C:SOURCE-LOCATION)))
(DEFCONSTANT +IDENTITY-LH-MATRIX+ #1#) SB-C::ORIGINAL-SOURCE-START 0 1)
(:COMPILE-TOPLEVEL))
13: (SB-C::PROCESS-TOPLEVEL-FORM
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT
(MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))
'NIL (SB-C:SOURCE-LOCATION)))
((DEFCONSTANT +IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0))))
SB-C::ORIGINAL-SOURCE-START 0 1)
NIL)
14: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM)
(DEFCONSTANT +IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0)))))
15: (SB-C::PROCESS-TOPLEVEL-FORM
(DEFCONSTANT +IDENTITY-LH-MATRIX+
(IF (BOUNDP '+IDENTITY-LH-MATRIX+)
(SYMBOL-VALUE '+IDENTITY-LH-MATRIX+)
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR
(MAKE-VECTOR 0 1 0))))
(SB-C::ORIGINAL-SOURCE-START 0 1)
NIL)
16: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM)
(COM.GENWORKS.LISP:DEFINE-CONSTANT +IDENTITY-LH-MATRIX+
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1)
:LEFT (MAKE-VECTOR 1 0 0)
:REAR (MAKE-VECTOR 0 1 0))))
17: (SB-C::PROCESS-TOPLEVEL-FORM
(COM.GENWORKS.LISP:DEFINE-CONSTANT +IDENTITY-LH-MATRIX+
(ALIGNMENT :TOP (MAKE-VECTOR 0 0 1)
:LEFT (MAKE-VECTOR 1 0 0)
:REAR (MAKE-VECTOR 0 1 0)))
(SB-C::ORIGINAL-SOURCE-START 0 1)
NIL)
18: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
19: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
20: ((FLET #:WITHOUT-INTERRUPTS-BODY-369 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
21: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
#<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE)
{28E9D5}>
#<SB-THREAD:MUTEX "World Lock"
owner: #<SB-THREAD:THREAD "main thread" RUNNING {23EFED39}>>
T
NIL)
22: ((LAMBDA () :IN SB-C::SUB-COMPILE-FILE))
23: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
24: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
25: (COMPILE-FILE
#P"C:/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-20121125-git/gdl/geom-base/wire/source/base-object.lisp"
:OUTPUT-FILE
#P"C:/Users/anton/AppData/Local/common-lisp/cache/sbcl-1.1.0.45-win-x86/C/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-201211
25-git/gdl/geom-base/wire/source/ASDF-TMP-base-object.fasl"
:VERBOSE
NIL
:PRINT
NIL
:EXTERNAL-FORMAT
:DEFAULT
:TRACE-FILE
NIL
:BLOCK-COMPILE
NIL
:EMIT-CFASL
NIL)
26: (ASDF:COMPILE-FILE*
#P"C:/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-20121125-git/gdl/geom-base/wire/source/base-object.lisp"
:OUTPUT-FILE
#P"C:/Users/anton/AppData/Local/common-lisp/cache/sbcl-1.1.0.45-win-x86/C/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-201211
25-git/gdl/geom-base/wire/source/base-object.fasl"
:EXTERNAL-FORMAT
:DEFAULT)
27: ((LAMBDA (&REST ASDF::FLAGS) :IN ASDF:PERFORM))
28: ((SB-PCL::FAST-METHOD ASDF::CALL-WITH-AROUND-COMPILE-HOOK
(ASDF:COMPONENT T))
#<unused argument>
#<unused argument>
#<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">
#<CLOSURE (LAMBDA # :IN ASDF:PERFORM) {26C39E1D}>)
29: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#<unused argument>
#<unused argument>
#<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}>
#<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">)
30: ((SB-PCL::EMF ASDF:PERFORM)
#<unused argument>
#<unused argument>
#<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}>
#<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">)
31: ((SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS (T T))
#<unused argument>
#<unused argument>
#<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}>
#<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">)
32: ((FLET CALL-NEXT-METHOD :IN "C:/Users/anton/quicklisp/asdf.lisp"))
Imported comments:
By genworks on 2013-01-13 18:20:40 UTC
I can replicate
(acos -1) --> DIVIDE BY ZERO ERROR
on SBCL Windows, but not on any other platform combination of:
Mac: LW, SBCL, CCL WIndows: ACL, CCL Linux: ACL, CCL, SBCL
Isn't the acos of -1 correctly supposed to be pi?
Could this be a bug with the acos function on SBCL Windows?
On Sun, Jan 13, 2013 at 1:03 PM, Anton Vodonosov notifications@github.comwrote:
If you check windows versions of SBCL here - http://common-lisp.net/project/cl-test-grid/library/genworks-gdl - you may see DIVISION-BY-ZERO errors.
http://cl-test-grid.appspot.com/blob?key=1046080
Strange that it happens only on SBCL windows, but I reproduced it. Quicklisp 2012-12-23.
(ql:quickload :gdl-tasty).
.... debugger invoked on a DIVISION-BY-ZERO in thread #<THREAD "main thread" RUNNING {23EFED39}>: arithmetic error DIVISION-BY-ZERO signalled
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry compiling #<CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">. 1: [ACCEPT] Continue, treating compiling #<CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object"> as having been successful. 2: [ABORT ] Give up on "gdl-tasty" 3: Exit debugger, returning to top level.
(SB-KERNEL:TWO-ARG-/ -1.0d0 0.0d0)
0] backtrace
0: (SB-KERNEL:TWO-ARG-/ -1.0d0 0.0d0) 1: (ACOS -1.0d0) 2: (ANGLE-BETWEEN-VECTORS #(0.0d0 1.0d0 0.0d0) #(0.0d0 -1.0d0 0.0d0) NIL :EPSILON NIL :-VE NIL) 3: (ALIGNMENT :TOP #(0.0d0 0.0d0 1.0d0) :LEFT #(1.0d0 0.0d0 0.0d0) :REAR #(0.0d0 1.0d0 0.0d0)) 4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0)) #) 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) #) 6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION)) #) 7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) #) 8: (SB-EXT:EVAL-TLF (PROGN (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) 1 #) 9: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) (#1 (closed)=(SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ #2=(IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION)) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1 (closed)#) (DEFCONSTANT +IDENTITY-LH-MATRIX+ #2#) SB-C::ORIGINAL-SOURCE-START 0 1)) 10: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) 11: (SB-C::PROCESS-TOPLEVEL-FORM (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION)) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ #1 (closed)=(IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP # :LEFT # :REAR #)) 'NIL (SB-C:SOURCE-LOCATION))) (DEFCONSTANT +IDENTITY-LH-MATRIX+ #1 (closed)#) SB-C::ORIGINAL-SOURCE-START 0 1) (:COMPILE-TOPLEVEL)) 12: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ #1 (closed)=(IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP # :LEFT # :REAR #)) 'NIL (SB-C:SOURCE-LOCATION))) (DEFCONSTANT +IDENTITY-LH-MATRIX+ #1 (closed)#) SB-C::ORIGINAL-SOURCE-START 0 1) (:COMPILE-TOPLEVEL)) 13: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFCONSTANT '+IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) 'NIL (SB-C:SOURCE-LOCATION))) ((DEFCONSTANT +IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0)))) SB-C::ORIGINAL-SOURCE-START 0 1) NIL) 14: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DEFCONSTANT +IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))))) 15: (SB-C::PROCESS-TOPLEVEL-FORM (DEFCONSTANT +IDENTITY-LH-MATRIX+ (IF (BOUNDP '+IDENTITY-LH-MATRIX+) (SYMBOL-VALUE '+IDENTITY-LH-MATRIX+) (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0)))) (SB-C::ORIGINAL-SOURCE-START 0 1) NIL) 16: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (COM.GENWORKS.LISP:DEFINE-CONSTANT +IDENTITY-LH-MATRIX+ (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0)))) 17: (SB-C::PROCESS-TOPLEVEL-FORM (COM.GENWORKS.LISP:DEFINE-CONSTANT +IDENTITY-LH-MATRIX+ (ALIGNMENT :TOP (MAKE-VECTOR 0 0 1) :LEFT (MAKE-VECTOR 1 0 0) :REAR (MAKE-VECTOR 0 1 0))) (SB-C::ORIGINAL-SOURCE-START 0 1) NIL) 18: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >) 19: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE)) 20: ((FLET #:WITHOUT-INTERRUPTS-BODY-369 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) 21: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {28E9D5}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {23EFED39}>> T NIL) 22: ((LAMBDA () :IN SB-C::SUB-COMPILE-FILE)) 23: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 24: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >) 25: (COMPILE-FILE #P"C:/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-20121125-git/gdl/geom-base/wire/source/base-object.lisp" :OUTPUT-FILE #P"C:/Users/anton/AppData/Local/common-lisp/cache/sbcl-1.1.0.45-win-x86/C/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-201211 25-git/gdl/geom-base/wire/source/ASDF-TMP-base-object.fasl" :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :DEFAULT :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL) 26: (ASDF:COMPILE-FILE* #P"C:/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-20121125-git/gdl/geom-base/wire/source/base-object.lisp" :OUTPUT-FILE #P"C:/Users/anton/AppData/Local/common-lisp/cache/sbcl-1.1.0.45-win-x86/C/Users/anton/quicklisp/dists/quicklisp/software/genworks-gdl-201211 25-git/gdl/geom-base/wire/source/base-object.fasl" :EXTERNAL-FORMAT :DEFAULT) 27: ((LAMBDA (&REST ASDF::FLAGS) :IN ASDF:PERFORM)) 28: ((SB-PCL::FAST-METHOD ASDF::CALL-WITH-AROUND-COMPILE-HOOK (ASDF:COMPONENT T)) # # #<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object"> #<CLOSURE (LAMBDA # :IN ASDF:PERFORM) {26C39E1D}>) 29: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) # # #<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}> #<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">) 30: ((SB-PCL::EMF ASDF:PERFORM) # # #<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}> #<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">) 31: ((SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS (T T)) # # #<ASDF:COMPILE-OP (:VERBOSE NIL) {27762A61}> #<ASDF:CL-SOURCE-FILE "gdl-geom-base" "wire/source/base-object">) 32: ((FLET CALL-NEXT-METHOD :IN "C:/Users/anton/quicklisp/asdf.lisp"))
Reply to this email directly or view it on GitHubhttps://github.com/genworks/Genworks-GDL/issues/46.
-- My Best,
Dave Cooper, Genworks Support david.cooper@genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-248-330-2979(mobile) UK: 0191 645 1699
By avodonosov on 2013-01-13 18:34:59 UTC
Yes, seems to be a bug in sbcl windows. I've asked in sbcl-devel about it, in this thread (my message probably hasn't yet got into the archive) : http://sourceforge.net/mailarchive/forum.php?thread_name=CAJ9X%3DkYPRAjOqpKLh64SVz99c-4VqmkCuj0VtvBH19CpA51y3g%40mail.gmail.com&forum_name=sbcl-devel