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)