diff --git a/pcl/dfun.lisp b/pcl/dfun.lisp index 84b1adea0009740ec1a816883749d096bb88fa19..ca23a0a44bddb097c274cab6cae6353c093bf4bc 100644 --- a/pcl/dfun.lisp +++ b/pcl/dfun.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.24 2003/04/14 21:45:22 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.25 2003/04/30 18:42:23 gerd Exp $") (in-package :pcl) @@ -1655,7 +1655,7 @@ And so, we are saved. (class (or (eq (cadr specl) (cadr type)) (memq (cadr specl) - (cpl-maybe-early (cadr type)))))))) + (cpl-or-nil (cadr type)))))))) (values pred pred)))) (defun saut-prototype (specl type) @@ -1670,7 +1670,7 @@ And so, we are saved. (eq (cadr specl) (class-of (cadr type)))) (class (memq (cadr specl) - (cpl-maybe-early (class-of (cadr type)))))))) + (cpl-or-nil (class-of (cadr type)))))))) (values pred pred)))