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