commit 43cebea0bf6f41fe5a7f8a4683d25a5c10679c9d
Author: Alastair Bridgewater <nyef@lain.lisphacker.com>
Date:   Tue Oct 26 15:28:01 2010 -0400

    fop: Have FOP-{SMALL-,}NAMED-PACKAGE-SAVE not err out immediately.
    
      * Rather than signalling an immediate error, WARN, then return
    some obviously-invalid data (later to cause an error).
    
      * This is a proposed step towards a solution for lp#553943.

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 9891b46..f048a18 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -279,7 +279,12 @@
     (#!-sb-unicode read-string-as-bytes
      #!+sb-unicode read-string-as-unsigned-byte-32
      *fasl-input-stream* package-name)
-    (push-fop-table (find-undeleted-package-or-lose package-name))))
+    (let ((package (find-package package-name)))
+      (if package
+        (push-fop-table package)
+        (progn
+          (warn "Loading a reference to nonexistent package ~S" package-name)
+          (push-fop-table `(:nonexistent-package ,package-name)))))))
 
 ;;;; fops for loading numbers