/[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.37 by pw, Thu Feb 6 00:34:10 1997 UTC revision 1.38 by pw, Fri Feb 7 20:27:30 1997 UTC
# Line 302  Line 302 
302  (defun class-typep (obj-layout class object)  (defun class-typep (obj-layout class object)
303    (declare (optimize speed))    (declare (optimize speed))
304    (when (layout-invalid obj-layout)    (when (layout-invalid obj-layout)
305      (if (and (typep class 'standard-class) object)      (if (and (typep (class-of object) 'standard-class) object)
306          (setq obj-layout (pcl::check-wrapper-validity object))          (setq obj-layout (pcl::check-wrapper-validity object))
307          (error "TYPEP on obsolete object (was class ~S)."          (error "TYPEP on obsolete object (was class ~S)."
308                 (class-proper-name (layout-class obj-layout)))))                 (class-proper-name (layout-class obj-layout)))))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5