From 949b6370d6892703e3b9443a623fff1b56c13d85 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Thu, 15 Apr 1999 22:38:15 +0000
Subject: [PATCH] fix find-class (when called with nil second arg) to be silent
 even if the supplied class name is invalid.

---
 pcl/macros.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/pcl/macros.lisp b/pcl/macros.lisp
index 4281712b5..d5e9542e2 100644
--- a/pcl/macros.lisp
+++ b/pcl/macros.lisp
@@ -26,7 +26,7 @@
 ;;;
 #+cmu
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.11 1999/03/14 01:14:14 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.12 1999/04/15 22:38:15 pw Exp $")
 ;;;
 ;;; Macros global variable definitions, and other random support stuff used
 ;;; by the rest of the system.
@@ -448,8 +448,9 @@
 
 (defun find-class (symbol &optional (errorp t) environment)
   (declare (ignore environment))
-  (find-class-from-cell
-   symbol (find-class-cell symbol errorp) errorp))
+  (let ((cell (find-class-cell symbol (not errorp))))
+    (when cell
+      (find-class-from-cell symbol cell errorp))))
 
 (defun find-class-predicate (symbol &optional (errorp t) environment)
   (declare (ignore environment))
-- 
GitLab