projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.24:
[sbcl.git]
/
src
/
code
/
target-defstruct.lisp
diff --git
a/src/code/target-defstruct.lisp
b/src/code/target-defstruct.lisp
index
e9b5b60
..
bad8d95
100644
(file)
--- a/
src/code/target-defstruct.lisp
+++ b/
src/code/target-defstruct.lisp
@@
-395,7
+395,7
@@
res))
\f
res))
\f
-;;; default PRINT-OBJECT and MAKE-LOAD-FORM methods
+;;; default PRINT-OBJECT method
(defun %default-structure-pretty-print (structure stream)
(let* ((layout (%instance-layout structure))
(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)
(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))
(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)))
(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))
(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*))
(%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))
\f
;;;; testing structure types
\f
;;;; testing structure types