projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.5.32: partial fix for DISASSEMBLE bug reported by Peter Graves
[sbcl.git]
/
src
/
pcl
/
std-class.lisp
diff --git
a/src/pcl/std-class.lisp
b/src/pcl/std-class.lisp
index
502fe7c
..
6b09912
100644
(file)
--- a/
src/pcl/std-class.lisp
+++ b/
src/pcl/std-class.lisp
@@
-617,7
+617,8
@@
(values defstruct-form constructor reader-names writer-names)))
(defun make-defstruct-allocation-function (class)
(values defstruct-form constructor reader-names writer-names)))
(defun make-defstruct-allocation-function (class)
- (let ((dd (get-structure-dd (class-name class))))
+ ;; FIXME: Why don't we go class->layout->info == dd
+ (let ((dd (find-defstruct-description (class-name class))))
(lambda ()
(sb-kernel::%make-instance-with-layout
(sb-kernel::compiler-layout-or-lose (dd-name dd))))))
(lambda ()
(sb-kernel::%make-instance-with-layout
(sb-kernel::compiler-layout-or-lose (dd-name dd))))))
@@
-1521,7
+1522,9
@@
;; layout-depthoid). Is there any way we can provide a useful
;; error message? -- CSR, 2005-05-03
(eq s *the-class-file-stream*) (eq s *the-class-string-stream*)
;; layout-depthoid). Is there any way we can provide a useful
;; error message? -- CSR, 2005-05-03
(eq s *the-class-file-stream*) (eq s *the-class-string-stream*)
- ;; TODO
+ ;; This probably shouldn't be mixed in with certain other
+ ;; classes, too, but it seems to work both with STANDARD-OBJECT
+ ;; and FUNCALLABLE-STANDARD-OBJECT
(eq s *the-class-sequence*)))
\f
;;; Some necessary methods for FORWARD-REFERENCED-CLASS
(eq s *the-class-sequence*)))
\f
;;; Some necessary methods for FORWARD-REFERENCED-CLASS