X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=bad8d9554e6265b4a97a2e442a0cfa751c8b13bc;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=e9b5b607102bd4c2f669320a5aee58e97580c8fb;hpb=670010e3f3dcd62efaf23f61abdc73950edb88c6;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index e9b5b60..bad8d95 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -395,7 +395,7 @@
 
     res))
 
-;;; default PRINT-OBJECT and MAKE-LOAD-FORM methods
+;;; default PRINT-OBJECT method
 
 (defun %default-structure-pretty-print (structure stream)
   (let* ((layout (%instance-layout structure))
@@ -422,7 +422,7 @@
 	   (pprint-pop)
 	   (let ((slot (pop remaining-slots)))
 	     (write-char #\: stream)
-	     (output-symbol-name (dsd-%name slot) stream)
+	     (output-symbol-name (symbol-name (dsd-name slot)) stream)
 	     (write-char #\space stream)
 	     (pprint-newline :miser stream)
 	     (output-object (funcall (fdefinition (dsd-accessor-name slot))
@@ -452,7 +452,7 @@
 	(write-char #\space stream)
 	(write-char #\: stream)
 	(let ((slot (first remaining-slots)))
-	  (output-symbol-name (dsd-%name slot) stream)
+	  (output-symbol-name (symbol-name (dsd-name slot)) stream)
 	  (write-char #\space stream)
 	  (output-object
 	   (funcall (fdefinition (dsd-accessor-name slot))
@@ -468,12 +468,6 @@
 	 (%default-structure-ugly-print structure stream))))
 (def!method print-object ((x structure-object) stream)
   (default-structure-print x stream *current-level-in-print*))
-
-(defun make-load-form-saving-slots (object &key slot-names environment)
-  (declare (ignore object environment))
-  (if slot-names
-      (error "stub: MAKE-LOAD-FORM-SAVING-SLOTS :SLOT-NAMES not implemented") ; KLUDGE
-      :sb-just-dump-it-normally))
 
 ;;;; testing structure types