(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))))))
;; 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