diff --git a/compiler/main.lisp b/compiler/main.lisp index a5d619dd304a9580ad259ffc21de679cf3d1ae68..3a808eba5970da1cda40b86ca2e749aca65f3212 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -897,10 +897,12 @@ (case (car form) ((make-package in-package shadow shadowing-import export unexport use-package unuse-package import) + (typecase object + (fasl-file + (compile-top-level-lambdas () t object))) (eval form) (etypecase object (fasl-file - (compile-top-level-lambdas () t object) (fasl-dump-cold-load-form form object)) ((or null core-object) (convert-and-maybe-compile form path object))))