#154: COMPILE-FILE-2 ansi compiled fails -----------------------------------------------+---------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: blocker | Milestone: 0.26 Component: compiler | Version: Keywords: compiler ansi-compiled regression | -----------------------------------------------+----------------------------

Comment(by mevenson):

{{{ Caught COMPILE-FILE-TEST-CONDITION.2A: java.lang.StackOverflowError at java.lang.ThreadLocal.get(ThreadLocal.java:125) at org.armedbear.lisp.LispThread.currentThread(LispThread.java:70) at org.armedbear.lisp.typep_4.execute(typep.lisp:65) }}}

#154: COMPILE-FILE-2 ansi compiled fails -----------------------------------------------+---------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: blocker | Milestone: 0.26 Component: compiler | Version: Keywords: compiler ansi-compiled regression | -----------------------------------------------+----------------------------

Comment(by mevenson):

Definitely caused by r13305.

To reproduce externally from the ANSI tests, save the following form as say 'compile-file-tet-file-2.lisp':

{{{ (defun compile-file-test-fun.2 () nil)

(eval-when (:compile-toplevel) (unless (find-class 'compile-file-test-condition.2 nil) (define-condition compile-file-test-condition.2 (style-warning) nil)) (warn (make-condition 'compile-file-test-condition.2))) }}}

And then

{{{ CL-USER> (compile-file "compile-file-tet-file-2.lisp") }}}

will produce the stack overflow.

#154: COMPILE-FILE-2 ansi compiled fails -----------------------+---------------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: closed Priority: blocker | Milestone: 0.26 Component: compiler | Version: Resolution: fixed | Keywords: compiler ansi-compiled regression -----------------------+----------------------------------------------------

Comment(by ehuelsmann):

(In [13400]) Fix #154 on 0.26.x branch: backport r13399.