X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1final.lisp;h=a921fc8771c28f8e7d04731ef97c3a19c8ed0c10;hb=8e4ec430504f0f563280be26034af590dff50d34;hp=adc591aacda7dec5cc7e976eb08adb283a118ca8;hpb=28b2447f2775779fe49fd024d8cce069060431c6;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