#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.
--
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/154#comment:3>
armedbear <http://common-lisp.net/project/armedbear>
armedbear