X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fenv.lisp;h=eba61b262712614c385197d366c118cb02ab8b82;hb=36a379d746b9eb74ba8c5afff40dc5dcb9f4557a;hp=be5e67740b61e260888b4c3cce4ea6d3c2c30162;hpb=203e466f5fbb3bffa7b4beb19d87bed6f8a1b5db;p=sbcl.git

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index be5e677..eba61b2 100644
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -157,14 +157,14 @@
   (error "~@<don't know how to dump ~S (default ~S method called).~@>"
          object 'make-load-form))
 
-(defun make-load-form-saving-slots (object &key slot-names environment)
+(defun make-load-form-saving-slots (object &key (slot-names nil slot-names-p) environment)
   (declare (ignore environment))
   (let ((class (class-of object)))
     (collect ((inits))
       (dolist (slot (class-slots class))
         (let ((slot-name (slot-definition-name slot)))
           (when (or (memq slot-name slot-names)
-                    (and (null slot-names)
+                    (and (not slot-names-p)
                          (eq :instance (slot-definition-allocation slot))))
             (if (slot-boundp-using-class class object slot)
                 (let ((value (slot-value-using-class class object slot)))