[slime-devel] Endless Loop in Lisp when ,loading twice

[Stefan Kamphausen]

Hi,

I could enlight things a bit by getting a backtrace-printing function hooked
to *after-gc-hooks*.  I think the relevant parts of this are:

----------------------------------------------------------
5: (LISP::MAYBE-GC NIL)
6: ("call_into_lisp+#x8C [#x8054EDC] /usr/bin/lisp")
7: ("funcall0+#x27 [#x8054C6A] /usr/bin/lisp")
8: ("alloc+#xDE [#x805E253] /usr/bin/lisp")
9: ("alloc_overflow_edx+#xE [#x80550CA] /usr/bin/lisp")
10: (LISP::READ-MAYBE-NOTHING
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #\[)
11: (LISP::READ-LIST
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #<unused-arg>)
12: (LISP::READ-MAYBE-NOTHING
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #\()
13: (LISP::READ-LIST
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #<unused-arg>)
14: (LISP::READ-MAYBE-NOTHING
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #\()
15: (LISP::READ-LIST
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     #<unused-arg>)
16: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL
     #<Stream for file "/home/ska/prj/lisp/broom/broom-db-interface.lisp">
     T
     NIL
     T)
...
21: (SWANK-BACKEND::READ-SOURCE-FORM 13
                                     #<Stream for file
"/home/ska/prj/lisp/broom/broom-db-interface.lisp">)
22: (SWANK-BACKEND::SOURCE-PATH-STREAM-POSITION (13 4 1 1 3)
                                                #<Stream for file
"/home/ska/prj/lisp/broom/broom-db-interface.lisp">)
23: (SWANK-BACKEND::SOURCE-PATH-FILE-POSITION (13 4 1 1 3)
                                             
#P"/home/ska/prj/lisp/broom/broom-db-interface.lisp")
24: (SWANK-BACKEND::LOCATE-COMPILER-NOTE
     #P"/home/ska/prj/lisp/broom/broom-db-interface.lisp"
     ";   (SQL-= #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE COMMWAYID> COMMWAY)
"
     (13 4 1 1 3))
25: (SWANK-BACKEND::COMPILER-NOTE-LOCATION #<Compiler-Error-Context>)
26: (SWANK-BACKEND::SIGNAL-COMPILER-CONDITION #<SIMPLE-WARNING {589F198D}>
                                              #<Compiler-Error-Context>)
27: (SIGNAL #<SIMPLE-WARNING {589F198D}>)
28: (C::COMPILER-WARNING-HANDLER #<SIMPLE-WARNING {589F198D}>)
29: (SIGNAL #<SIMPLE-WARNING {589F198D}>)
30: (WARN "Undefined ~(~A~) ~S~@[ ~A~]" :VARIABLE BROOM::COMMWAY NIL)
----------------------------------------------------------

I tmight be worth noting that that file uses the special sql-syntax of
clsql:

#.(locally-enable-sql-reader-syntax)
;; ...
#.(restore-sql-reader-syntax-state)

and that this is the file in which I always land one defun in front.

Does this help?

Regards,
Stefan

-- 
Highspeed-Freiheit. Bei GMX supergünstig, z.B. GMX DSL_Cityflat,
DSL-Flatrate für nur 4,99 Euro/Monat*  http://www.gmx.net/de/go/dsl