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 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -302,7 +302,7 @@
(defun class-typep (obj-layout class object) (defun class-typep (obj-layout class object)
(declare (optimize speed)) (declare (optimize speed))
(when (layout-invalid obj-layout) (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)) (setq obj-layout (pcl::check-wrapper-validity object))
(error "TYPEP on obsolete object (was class ~S)." (error "TYPEP on obsolete object (was class ~S)."
(class-proper-name (layout-class obj-layout))))) (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