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