COMPILE-FILE-2 ansi compiled fails

[Mark Evenson]

Regression to fix before abcl-0.26.0 RC

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)
	at org.armedbear.lisp.Symbol.execute(Symbol.java:801)
	at org.armedbear.lisp.LispThread.execute(LispThread.java:653)
	at org.armedbear.lisp.format_189.execute(format.lisp:1723)
	at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112)
	at org.armedbear.lisp.Symbol.execute(Symbol.java:801)
	at org.armedbear.lisp.LispThread.execute(LispThread.java:653)
	at org.armedbear.lisp.print_unreadable_object_1.execute(print-unreadable-object.lisp:35)

[Mark Evenson]

 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)

[Mark Evenson]

Apparently caused by r13305.

[Mark Evenson]

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.

[ehuelsmann]

Fixed in r13399.

[ehuelsmann]

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