From b3cc3c3a1b9a31adb7400c38321a8726e870e9ad Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Wed, 30 Apr 2003 18:42:23 +0000 Subject: [PATCH] * src/pcl/dfun.lisp (saut-class-eq, saut-eql): Use cpl-or-nil instead of cpl-maybe-early. --- pcl/dfun.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/dfun.lisp b/pcl/dfun.lisp index 84b1adea0..ca23a0a44 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))) -- GitLab