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

Diff of /src/code/pred.lisp

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

revision 1.3 by ram, Mon Feb 12 12:00:17 1990 UTC revision 1.4 by ram, Mon Feb 12 15:09:29 1990 UTC
# Line 322  Line 322 
322    (declare (optimize speed))    (declare (optimize speed))
323    (let ((type (type-expand type)))    (let ((type (type-expand type)))
324      (if (symbolp type)      (if (symbolp type)
325          (let ((def (info type defined-structure-info obj-name)))          (let ((info (info type defined-structure-info type)))
326            (if def            (if info
327                (and (structurep object)                (and (structurep object)
328                     (let ((obj-name (%primitive header-ref object 0)))                     (let ((obj-name (%primitive header-ref object 0)))
329                       (or (eq obj-name type)                       (or (eq obj-name type)
330                           (not (null (memq type (c::dd-includes def)))))))                           (if (memq obj-name (c::dd-included-by info))
331                                 t nil))))
332                (error "~S is an unknown type specifier." type)))                (error "~S is an unknown type specifier." type)))
333          (error "~S is an unknown type specifier." type))))          (error "~S is an unknown type specifier." type))))
334    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5