Skip to content
Snippets Groups Projects
Commit 1100b7d4 authored by pw's avatar pw
Browse files

Revision 1.12 for FIND-CLASS broke the PCL build process. This is a

better fix (suggested by Douglas) in that FIND-CLASS-CELL as called
from FIND-CLASS is not allowed to produce any side effects. This
restores the build process and lets (find-class :x nil) => NIL
as relied on by some codes.
parent 949b6370
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
#+cmu #+cmu
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.12 1999/04/15 22:38:15 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.13 1999/04/25 12:46:28 pw Exp $")
;;; ;;;
;;; Macros global variable definitions, and other random support stuff used ;;; Macros global variable definitions, and other random support stuff used
;;; by the rest of the system. ;;; by the rest of the system.
...@@ -447,10 +447,12 @@ ...@@ -447,10 +447,12 @@
(not (keywordp x)))) (not (keywordp x))))
(defun find-class (symbol &optional (errorp t) environment) (defun find-class (symbol &optional (errorp t) environment)
"Returns the PCL class metaobject named by SYMBOL. An error of type
SIMPLE-ERROR is signaled if the class does not exist unless ERRORP
is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
(declare (ignore environment)) (declare (ignore environment))
(let ((cell (find-class-cell symbol (not errorp)))) (find-class-from-cell
(when cell symbol (find-class-cell symbol t) errorp))
(find-class-from-cell symbol cell errorp))))
(defun find-class-predicate (symbol &optional (errorp t) environment) (defun find-class-predicate (symbol &optional (errorp t) environment)
(declare (ignore environment)) (declare (ignore environment))
......
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