Bug with lambda expressions (ABCL 1.6.1)

[Alan Ruttenberg]

Nice catches!

On Thu, May 7, 2020 at 8:59 PM Paul Dietz <pdietz at grammatech.com> wrote:

> (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/6e708f6d/attachment-0001.htm>