/[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.7 by ram, Mon Mar 5 11:57:43 1990 UTC revision 1.8 by ram, Wed Apr 25 10:19:24 1990 UTC
# Line 567  Line 567 
567    (let ((def (info type structure-info type)))    (let ((def (info type structure-info type)))
568      (if (and def (eq (dd-type def) 'structure) (dd-predicate def))      (if (and def (eq (dd-type def) 'structure) (dd-predicate def))
569          `(and (structurep ,object)          `(and (structurep ,object)
570                (or (eq (%primitive header-ref ,object 0) ',type)                (if (eq (%primitive header-ref ,object 0) ',type)
571                      t
572                    (,(dd-predicate def) ,object)))                    (,(dd-predicate def) ,object)))
573          `(lisp::structure-typep ,object ',type))))          `(lisp::structure-typep ,object ',type))))
574    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5