X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1final.lisp;h=a921fc8771c28f8e7d04731ef97c3a19c8ed0c10;hb=ed066199124c46998798122cc776e615c9c50372;hp=adc591aacda7dec5cc7e976eb08adb283a118ca8;hpb=140a70b39c52de58ddd8a3d5caabebd99fd2a2c6;p=sbcl.git diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp index adc591a..a921fc8 100644 --- a/src/compiler/ir1final.lisp +++ b/src/compiler/ir1final.lisp @@ -147,7 +147,7 @@ (case (functional-kind fun) (:external (finalize-xep-definition fun)) - ((nil) + ((nil :toplevel) (setf (leaf-type fun) (definition-type fun))))) (maphash #'note-failed-optimization