From 67ddf3177d8c21b7b368768ea7f13ce0999d32f6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 29 Nov 1990 01:17:49 +0000
Subject: [PATCH] When we see a package frobber, we need to compile pending
 top-leve forms *before* we eval it, not after.

---
 compiler/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/main.lisp b/compiler/main.lisp
index a5d619dd3..3a808eba5 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))))
-- 
GitLab