[armedbear-devel] Bogus error signaled when compiling bogus RETURN call

[James M. Lawrence]

CL-USER> (lisp-implementation-version)
"1.1.0-dev-svn-14066"
CL-USER> (defun foo () (return))
FOO
CL-USER> (compile 'foo)
; Caught ERROR:
;   RETURN-FROM NIL: no block named NIL is currently visible.

The value #<EQUAL HASH-TABLE 0 entries, 11 buckets {AE9DCF}> is not of
type STRUCTURE-OBJECT.
   [Condition of type TYPE-ERROR]

  0: (#<FUNCTION {1FA8BA4}> #<TYPE-ERROR {1E5E70E}> #<FUNCTION {1FA8BA4}>)
  1: (APPLY #<FUNCTION {1FA8BA4}> (#<TYPE-ERROR {1E5E70E}> #<FUNCTION
{1FA8BA4}>))
  2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR
{1E5E70E}> #<FUNCTION {1FA8BA4}>)
  3: (INVOKE-DEBUGGER #<TYPE-ERROR {1E5E70E}>)
  4: org.armedbear.lisp.Lisp.error(Lisp.java:382)
  5: org.armedbear.lisp.Lisp.type_error(Lisp.java:423)
  6: org.armedbear.lisp.LispObject.getSlotValue(LispObject.java:1241)
  7: org.armedbear.lisp.compiler_pass2_389.execute(compiler-pass2.lisp:7453)
  8: org.armedbear.lisp.compiler_pass2_375.execute(compiler-pass2.lisp:7408)
  9: org.armedbear.lisp.LispThread.execute(LispThread.java:628)