/[cmucl]/src/code/defstruct.lisp
ViewVC logotype

Diff of /src/code/defstruct.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by ram, Tue May 7 20:21:33 1996 UTC revision 1.58 by dtc, Wed Apr 9 17:49:41 1997 UTC
# Line 215  Line 215 
215    ;;    ;;
216    ;; Value of the :PURE option, or :UNSPECIFIED.  Only meaningful if    ;; Value of the :PURE option, or :UNSPECIFIED.  Only meaningful if
217    ;; CLASS-STRUCTURE-P = T.    ;; CLASS-STRUCTURE-P = T.
218    (pure :unspecified :type (member t nil :unspecified)))    (pure :unspecified :type (member t nil :substructure :unspecified)))
219    
220    
221  ;;; DEFSTRUCT-SLOT-DESCRIPTION  holds compile-time information about structure  ;;; DEFSTRUCT-SLOT-DESCRIPTION  holds compile-time information about structure
# Line 305  Line 305 
305                           `',mlff                           `',mlff
306                           `#',mlff)))))                           `#',mlff)))))
307        ,@(let ((pure (dd-pure defstruct)))        ,@(let ((pure (dd-pure defstruct)))
308            (when (eq pure 't)            (cond ((eq pure 't)
309              `((setf (layout-pure (class-layout (find-class ',name)))                   `((setf (layout-pure (class-layout (find-class ',name)))
310                      t))))                      t)))
311                    ((eq pure :substructure)
312                     `((setf (layout-pure (class-layout (find-class ',name)))
313                        0)))))
314        ,@(let ((def-con (dd-default-constructor defstruct)))        ,@(let ((def-con (dd-default-constructor defstruct)))
315            (when (and def-con (not (dd-alternate-metaclass defstruct)))            (when (and def-con (not (dd-alternate-metaclass defstruct)))
316              `((setf (structure-class-constructor (find-class ',name))              `((setf (structure-class-constructor (find-class ',name))

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

  ViewVC Help
Powered by ViewVC 1.1.5