#<SB-C::CLAMBDA [...] not found in #<SB-C::PHYSENV [...]

[Paul F. Dietz]

(lambda (x)
  (flet ((%f7 (f7-1)
    (labels ((%f17 (&key (key1 (%f17 (f) 1)))
        (complex x 0)))
      0)))
    (multiple-value-call #'%f7 (values 1))
    ))

===>

#<SB-C::CLAMBDA
      :%SOURCE-NAME SB-C::.ANONYMOUS.
      :%DEBUG-NAME (SB-C::XEP (FLET %F7))
      :KIND :EXTERNAL
      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
      :WHERE-FROM :DEFINED
      :VARS (#:G18 #:G19) {1005646103}>
    not found in
    #<SB-C::PHYSENV
      :LAMBDA #<SB-C::CLAMBDA
                :%SOURCE-NAME SB-C::.ANONYMOUS.
                :%DEBUG-NAME (LAMBDA (X))
                :KIND NIL
                :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T) *)>
                :WHERE-FROM :DEFINED
                :VARS (X) {100562D393}> {1005675453}>
[...]
  0: (SB-INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::XEP (FLET %F7)) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-o..
  1: (SB-C::FIND-IN-PHYSENV #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::XEP (FLET %F7)) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINE..
  2: (SB-C::IR2-CONVERT-CLOSURE #<SB-C::REF :LEAF #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::XEP #) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHER..
  3: (SB-C::IR2-CONVERT-REF #<SB-C::REF :LEAF #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::XEP #) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FR..
[...]

[Stas Boukarev (stassats)]

cfa129e79a83dc2db9caebb8c8e36410cfb80739