Bug with lambda expressions (ABCL 1.6.1)

[Paul Dietz]

(compile nil '(lambda () ((lambda () ((lambda () 0))))))
 =>

The value (LAMBDA NIL 0) is not of type SYMBOL.
   [Condition of type TYPE-ERROR]

Restarts:
 0: [TOP-LEVEL] Return to top level.

Backtrace:
  0: (#<FUNCTION {6495CFA3}> #<TYPE-ERROR {FAD3C52}> #<FUNCTION {6495CFA3}>)
  1: (APPLY #<FUNCTION {6495CFA3}> (#<TYPE-ERROR {FAD3C52}> #<FUNCTION {6495CFA3}>))
  2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR {FAD3C52}> #<FUNCTION {6495CFA3}>)
  3: (INVOKE-DEBUGGER #<TYPE-ERROR {FAD3C52}>)
  4: org.armedbear.lisp.Lisp.error(Lisp.java:382)
  5: org.armedbear.lisp.Lisp.type_error(Lisp.java:435)
  6: org.armedbear.lisp.Lisp.checkSymbol(Lisp.java:1097)
  7: org.armedbear.lisp.Lisp.get(Lisp.java:1973)
  8: org.armedbear.lisp.precompiler_53.execute(precompiler.lisp:402)
  9: org.armedbear.lisp.Symbol.execute(Symbol.java:814)
 10: org.armedbear.lisp.LispThread.execute(LispThread.java:832)
 11: org.armedbear.lisp.precompiler_51.execute(precompiler.lisp:381)
 12: org.armedbear.lisp.Symbol.execute(Symbol.java:803)
 13: org.armedbear.lisp.LispThread.execute(LispThread.java:814)
 14: org.armedbear.lisp.precompiler_48.execute(precompiler.lisp:350)
 15: org.armedbear.lisp.Symbol.execute(Symbol.java:803)
 16: org.armedbear.lisp.LispThread.execute(LispThread.java:814)
 17: org.armedbear.lisp.precompiler_73.execute(precompiler.lisp:643)
 18: org.armedbear.lisp.Symbol.execute(Symbol.java:803)
 19: org.armedbear.lisp.LispThread.execute(LispThread.java:814)
 20: org.armedbear.lisp.precompiler_48.execute(precompiler.lisp:350)
 21: org.armedbear.lisp.Symbol.execute(Symbol.java:803)
 22: org.armedbear.lisp.LispThread.execute(LispThread.java:814)
 23: org.armedbear.lisp.precompiler_104.execute(precompiler.lisp:988)
 24: org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121)
 25: org.armedbear.lisp.Symbol.execute(Symbol.java:826)
 26: org.armedbear.lisp.compiler_pass2_362.execute(compiler-pass2.lisp:7436)
 27: org.armedbear.lisp.Symbol.execute(Symbol.java:867)
 28: org.armedbear.lisp.compiler_pass2_387.execute(compiler-pass2.lisp:7556)
 29: org.armedbear.lisp.compiler_pass2_370.execute(compiler-pass2.lisp:7511)
 30: org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:98)
 31: org.armedbear.lisp.Symbol.execute(Symbol.java:803)
 32: org.armedbear.lisp.compiler_pass2_386.execute(compiler-pass2.lisp:7556)
 33: org.armedbear.lisp.Symbol.execute(Symbol.java:838)
 34: org.armedbear.lisp.compiler_pass2_388.execute(compiler-pass2.lisp:7580)
 35: org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109)
 36: org.armedbear.lisp.Symbol.execute(Symbol.java:814)
 37: org.armedbear.lisp.compiler_pass2_392.execute(compiler-pass2.lisp:7650)
 38: org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109)
 39: org.armedbear.lisp.LispThread.execute(LispThread.java:832)
 40: org.armedbear.lisp.Lisp.evalCall(Lisp.java:582)
 41: org.armedbear.lisp.Lisp.eval(Lisp.java:540)
 42: org.armedbear.lisp.Primitives$pf__eval.execute(Primitives.java:345)
 43: (PRECOMPILER::PRECOMPILE-FUNCTION-POSITION-LAMBDA (LAMBDA NIL ((LAMBDA NIL 0))) NIL)
 44: (PRECOMPILER::PRECOMPILE-FUNCTION-CALL ((LAMBDA NIL (#))))
 45: (PRECOMPILER::PRECOMPILE1 ((LAMBDA NIL (#))))
 46: (PRECOMPILER::PRECOMPILE-LAMBDA (LAMBDA NIL ((LAMBDA NIL #))))
 47: (PRECOMPILER::PRECOMPILE1 (LAMBDA NIL ((LAMBDA NIL #))))
 48: (COMPILE NIL (LAMBDA NIL ((LAMBDA NIL #))))
 49: (SYSTEM::%EVAL (COMPILE NIL '(LAMBDA NIL (#))))
 50: (EVAL (COMPILE NIL '(LAMBDA NIL (#))))
 51: (SYSTEM:INTERACTIVE-EVAL (COMPILE NIL '(LAMBDA NIL (#))))
 52: (TOP-LEVEL::REPL)
 53: (TOP-LEVEL::TOP-LEVEL-LOOP)
________________________________
The information contained in this e-mail and any attachments from GrammaTech, Inc may contain confidential and/or proprietary information, and is intended only for the named recipient to whom it was originally addressed. If you are not the intended recipient, any disclosure, distribution, or copying of this e-mail or its attachments is strictly prohibited. If you have received this e-mail in error, please notify the sender immediately by return e-mail and permanently delete the e-mail and any attachments.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20200507/fa656dd9/attachment.htm>