From 24d51f9a31f34293f3022794fab9540179ab458c Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Fri, 7 Feb 1997 20:27:30 +0000 Subject: [PATCH] Previous fix to class-typep failed to consider case where 'type' was some random class --- code/pred.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/pred.lisp b/code/pred.lisp index a5688c5c3..cf085d12e 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -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))))) -- GitLab