From: Bill S. <bi...@cc...> - 2010-04-28 18:51:43
|
Fernando Lopez-Lezcano found an odd problem in sbcl 1.0.37 (linux x86 32 or 64 bit) and 1.0.36 (tested on an Intel Mac). Unfortunately, we can't seem to isolate it and send a simple case. If you load clm (ccrma-ftp.stanford.edu: pub/Lisp/clm-4.tar.gz), via (load "all.lisp"), then (compile-file "dlocsig.lisp"), the compiler hangs: /home/bil/clm/ sbcl This is SBCL 1.0.37, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (load "all.lisp") ; using existing configuration file mus-config.h ;loading /home/bil/clm/clm-package.fasl ;loading /home/bil/clm/initmus.fasl ;loading /home/bil/clm/sndlib2clm.fasl ;loading /home/bil/clm/defaults.fasl ;loading /home/bil/clm/ffi.fasl ;loading /home/bil/clm/mus.fasl ;loading /home/bil/clm/run.fasl ;loading /home/bil/clm/sound.fasl ;loading /home/bil/clm/defins.fasl ;loading /home/bil/clm/env.fasl ;loading /home/bil/clm/export.fasl ;loading /home/bil/clm/clm1.fasl T * (compile-file "dlocsig.lisp") ; file: /home/bil/clm/dlocsig.lisp ; in: DEF-OPTKEY-FUN MAKE-DLOCSIG ; (LET* ((OUT-CHANNELS (OR OUT-CHANNELS (MUS-CHANNELS *OUTPUT*))) ; (REV-CHANNELS ; (OR REV-CHANNELS ; (IF *REVERB* ; # ; 0))) ; (SPEAKERS ; (IF (= RENDER-USING AMBISONICS) ; NIL ; (GET-SPEAKER-CONFIGURATION OUT-CHANNELS))) ; (CHANNEL-GAINS (MAKE-ARRAY OUT-CHANNELS :INITIAL-ELEMENT 'NIL)) ; (CHANNEL-REV-GAINS (MAKE-ARRAY REV-CHANNELS :INITIAL-ELEMENT 'NIL)) ; (MAX-OUT-DELAY 0.0) ; (OUT-DELAYS (MAKE-ARRAY OUT-CHANNELS)) ; (XPOINTS (PATH-X PATH)) ; (YPOINTS (PATH-Y PATH)) ; (ZPOINTS (PATH-Z PATH)) ; (TPOINTS (PATH-TIME PATH)) ; (SPEED-LIMIT (/ (* DLOCSIG-SPEED-OF-SOUND #) DURATION)) ; ...) ; (IF (= RENDER-USING AMBISONICS) ; (LET* ((OFFSET 3)) ; (IF (>= AMBISONICS-V-ORDER 1) ; (PROGN # #)) ; (IF (>= AMBISONICS-V-ORDER 2) ; (PROGN # #)) ; (IF (>= AMBISONICS-H-ORDER 2) ; (PROGN # #)))) ; (LABELS ((DIST->SAMPLES (D) ; (ROUND #)) ; (DIST->SECONDS (D) ; (/ D DLOCSIG-SPEED-OF-SOUND)) ; (TIME->SAMPLES (TIME) ; (ROUND #)) ; (TRANSITION-POINT-3 (VERT-A VERT-B XA YA ZA XB YB ZB) ; (DECLARE #) ; (MACROLET # ; #)) ; (TRANSITION-POINT-2 (VERT XA YA XB YB) ; (LET* # ; #)) ; (CALCULATE-GAINS (X Y Z GROUP) ; (LET* # ; #)) ; (FIND-GROUP (X Y Z) ; (LOOP FOR GROUP IN # ; DO #) ; (VALUES NIL NIL)) ; (PUSH-ZERO-GAINS (TIME) ; (LOOP FOR I FROM 0 BELOW # ; DO # #) ; (LOOP FOR I FROM 0 BELOW REV-CHANNELS ; DO # #)) ; (PUSH-GAINS (GROUP GAINS DIST TIME) ; (LET* # ; # ; # ; #)) ; (RENDER-AMPLITUDE-PANNING (X Y Z DIST TIME Q) ; (DECLARE #) ; (IF PREV-GROUP ; # ; #)) ; (RENDER-AMBISONICS (X Y Z DIST TIME) ; (LET* # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; ...)) ; (DECODED-AMBISONICS (X Y Z DIST TIME) ; (LET* # ; # ; #)) ; ...) ; (IF (= (LENGTH XPOINTS) 1) ; (WALK-ALL-ROOMS (FIRST XPOINTS) (FIRST YPOINTS) (FIRST ZPOINTS) ; (FIRST TPOINTS)) ; (LOOP FOR XA IN XPOINTS ; FOR YA IN YPOINTS ; FOR ZA IN ...)) ; (IF SPEAKERS ; (LET (#) ; (LOOP FOR CHANNEL FROM 0 BELOW # ; DO #))) ; (SETF MIN-DELAY (DIST->SAMPLES MIN-DIST) ; REAL-DUR (* DURATION #) ; RUN-BEG (FLOOR #) ; RUN-END (FLOOR #) ; START (+ RUN-BEG #) ; MIN-DIST-UNITY ; (IF # ; INSIDE-RADIUS ; MIN-DIST) ; ...) ; (VALUES ; (MAKE-MOVE-SOUND (LIST # # # # # # # OUT-DELAYS # # #) *OUTPUT* ; *REVERB*) ; RUN-BEG RUN-END))) ; ; caught STYLE-WARNING: ; The variable END is defined but never used. ^C and now the compiler is hung. debugger invoked on a SB-SYS:INTERACTIVE-INTERRUPT in thread #<THREAD "initial thread" RUNNING {AA0AA21}>: Interactive interrupt at #x9BF9594. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Return from SB-UNIX:SIGINT. 1: [ABORT ] Exit debugger, returning to top level. (SB-C::INSERT-BLOCK-GLOBAL-CONFLICT #<SB-C::GLOBAL-CONFLICTS :TN #<SB-C:TN t1> :BLOCK #<SB-C::IR2-BLOCK :START-VOP # :LAST-VOP # :LOCAL-TN-COUNT 63> :KIND :LIVE> #<SB-C::IR2-BLOCK :START-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LAST-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LOCAL-TN-COUNT 63>) 0] backtrace 0: (SB-C::INSERT-BLOCK-GLOBAL-CONFLICT #<SB-C::GLOBAL-CONFLICTS :TN #<SB-C:TN t1> :BLOCK #<SB-C::IR2-BLOCK :START-VOP # :LAST-VOP # :LOCAL-TN-COUNT 63> :KIND :LIVE> #<SB-C::IR2-BLOCK :START-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LAST-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LOCAL-TN-COUNT 63>) 1: (SB-C::ADD-GLOBAL-CONFLICT :LIVE #<SB-C:TN t1> #<SB-C::IR2-BLOCK :START-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LAST-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LOCAL-TN-COUNT 63> NIL) 2: (SB-C::PROPAGATE-LIVE-TNS #<SB-C::IR2-BLOCK :START-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LAST-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LOCAL-TN-COUNT 63> #<SB-C::IR2-BLOCK :START-VOP #<SB-C::VOP :INFO SB-VM::MOVE-ARG :ARGS # :RESULTS #> :LAST-VOP #<SB-C::VOP :INFO SB-ASSEM:BRANCH :ARGS NIL :RESULTS NIL :CODEGEN-INFO (#)> :LOCAL-TN-COUNT 64>) 3: (SB-C::LIFETIME-FLOW-ANALYSIS #<SB-C:COMPONENT :NAME (LABELS TIME->SAMPLES) {B9607D1}>) 4: (SB-C::LIFETIME-ANALYZE #<SB-C:COMPONENT :NAME (LABELS TIME->SAMPLES) {B9607D1}>) 5: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (LABELS TIME->SAMPLES) {B9607D1}>) 6: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (LABELS TIME->SAMPLES) {B9607D1}>) |