Skip to content
Snippets Groups Projects
Commit 24d51f9a authored by pw's avatar pw
Browse files

Previous fix to class-typep failed to consider case where 'type' was some random class

parent 116a0da3
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.37 1997/02/06 00:34:10 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.38 1997/02/07 20:27:30 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -302,7 +302,7 @@
(defun class-typep (obj-layout class object)
(declare (optimize speed))
(when (layout-invalid obj-layout)
(if (and (typep class 'standard-class) object)
(if (and (typep (class-of object) 'standard-class) object)
(setq obj-layout (pcl::check-wrapper-validity object))
(error "TYPEP on obsolete object (was class ~S)."
(class-proper-name (layout-class obj-layout)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment