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