Unhandled error in compilation of lambda with malformed DEFUN

Bug #1906056 reported by Paul F. Dietz
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Fix Released
Undecided
Unassigned

Bug Description

(compile nil '(lambda () (defun x y)))

==>

The value
  Y
is not of type
  LIST
when binding LIST
   [Condition of type TYPE-ERROR]
[...]
  0: (SB-INT:PARSE-LAMBDA-LIST #<unavailable argument> #<more unavailable arguments>) [more]
  1: (SB-C::FTYPE-FROM-LAMBDA-LIST Y)
  2: (SB-C::GET-DEFINED-FUN X Y)
  3: (SB-C::IR1-CONVERT-LAMBDALIKE (SB-INT:NAMED-LAMBDA X Y (BLOCK X)) :SOURCE-NAME SB-C::.ANONYMOUS. :DEBUG-NAME X)
  4: (SB-C::FUN-NAME-LEAF (SB-INT:NAMED-LAMBDA X Y (BLOCK X)))
  5: (SB-C::IR1-CONVERT-FUNCTION #<SB-C::CTRAN 1 {10352A9163}> #<SB-C::CTRAN 2 {10352A92F3}> #<SB-C::LVAR 3 {10352A9323}> (FUNCTION (SB-INT:NAMED-LAMBDA X Y (BLOCK X))))
  6: (SB-C::IR1-CONVERT #<SB-C::CTRAN 1 {10352A9163}> #<SB-C::CTRAN 2 {10352A92F3}> #<SB-C::LVAR 3 {10352A9323}> (FUNCTION (SB-INT:NAMED-LAMBDA X Y (BLOCK X))))
  7: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 1 {10352A9163}> #<SB-C::CTRAN 2 {10352A92F3}> #<SB-C::LVAR 3 {10352A9323}> (SB-INT:NAMED-LAMBDA X Y (BLOCK X)) SB-INT:NAMED-LAMBDA)
  8: (SB-C::IR1-CONVERT #<SB-C::CTRAN 1 {10352A9163}> #<SB-C::CTRAN 2 {10352A92F3}> #<SB-C::LVAR 3 {10352A9323}> (SB-INT:NAMED-LAMBDA X Y (BLOCK X)))
  9: (SB-C::IR1-CONVERT-COMBINATION-ARGS #<SB-C::LVAR 4 {10352A8F93}> #<SB-C::CTRAN 5 {10352A8F63}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> ((QUOTE X) (SB-INT:NAMED-LAMBDA X Y (BLOCK X))..
 10: (SB-C::IR1-CONVERT-COMBINATION #<SB-C::CTRAN 8 {10352A8C03}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (SB-IMPL::%DEFUN (QUOTE X) (SB-INT:NAMED-LAMBDA X Y (BLOCK X))) #<SB-C::GLOBAL-V..
 11: (SB-C::IR1-CONVERT-COMBINATION-CHECKING-TYPE #<SB-C::CTRAN 8 {10352A8C03}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (SB-IMPL::%DEFUN (QUOTE X) (SB-INT:NAMED-LAMBDA X Y (BLOCK X))) #<..
 12: (SB-C::IR1-CONVERT #<SB-C::CTRAN 8 {10352A8C03}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (SB-IMPL::%DEFUN (QUOTE X) (SB-INT:NAMED-LAMBDA X Y (BLOCK X))))
 13: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> ((EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN # T NIL NIL)) (SB-IMPL::%DE..
 14: (SB-C::IR1-CONVERT-PROGN #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN # T NIL NIL)) (SB-IMPL::%D..
 15: (SB-C::IR1-CONVERT #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN # T NIL NIL)) (SB-IMPL::%DEFUN (..
 16: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (DEFUN X Y) DEFUN)
 17: (SB-C::IR1-CONVERT #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> (DEFUN X Y))
 18: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> ((DEFUN X Y)))
 19: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> ((DEFUN X Y)) NIL NIL NIL)
 20: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 9 {10352A8903}> #<SB-C::CTRAN 6 {10352A8683}> #<SB-C::LVAR 7 {10352A86B3}> ((DEFUN X Y)) NIL NIL NIL NIL)
 21: (SB-C::IR1-CONVERT-LAMBDA-BODY ((DEFUN X Y)) NIL :AUX-VARS NIL :AUX-VALS NIL :SOURCE-NAME SB-C::.ANONYMOUS. :DEBUG-NAME (LAMBDA NIL) :NOTE-LEXICAL-BINDINGS T :POST-BINDING-LEXENV NIL :SYSTEM-LAMBDA NI..
 22: (SB-C::IR1-CONVERT-LAMBDA (LAMBDA NIL (DEFUN X Y)) :SOURCE-NAME SB-C::.ANONYMOUS. :DEBUG-NAME (LAMBDA NIL) :MAYBE-ADD-DEBUG-CATCH T :SYSTEM-LAMBDA NIL)
 23: (SB-C::MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA (LAMBDA NIL (DEFUN X Y)) :NAME NIL :PATH (SB-C::ORIGINAL-SOURCE-START 0 0))
 24: (SB-C::%COMPILE (LAMBDA NIL (DEFUN X Y)) #<SB-C::CORE-OBJECT {10352A7593}> :NAME NIL :PATH (SB-C::ORIGINAL-SOURCE-START 0 0))
 25: ((FLET "LAMBDA645" :IN "SYS:SRC;COMPILER;TARGET-MAIN.LISP"))
 26: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
 27: (SB-C:COMPILE-IN-LEXENV (LAMBDA NIL (DEFUN X Y)) #<NULL-LEXENV> NIL NIL NIL NIL NIL)
 28: (COMPILE NIL (LAMBDA NIL (DEFUN X Y)))

Stas Boukarev (stassats)
Changed in sbcl:
status: New → Confirmed
Stas Boukarev (stassats)
Changed in sbcl:
status: Confirmed → Fix Committed
Changed in sbcl:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  
Everyone can see this information.

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.