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 @@
;;;
#+cmu
(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
;;; by the rest of the system.
......@@ -447,10 +447,12 @@
(not (keywordp x))))
(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))
(let ((cell (find-class-cell symbol (not errorp))))
(when cell
(find-class-from-cell symbol cell errorp))))
(find-class-from-cell
symbol (find-class-cell symbol t) errorp))
(defun find-class-predicate (symbol &optional (errorp t) 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