From 2c0e27d9da42621b617787daeca47ffe14713007 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 10 Jan 2000 15:25:09 +0000
Subject: [PATCH] Fix for equalp when passed a character and a non-character;
 needed to check the type of the second argument before calling char-equal.
 Spotted by William H. Newman, fix from Peter Van Eynde.

---
 code/pred.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/pred.lisp b/code/pred.lisp
index 49da03486..b7d895e1a 100644
--- a/code/pred.lisp
+++ b/code/pred.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.50 1999/02/25 13:02:58 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.51 2000/01/10 15:25:09 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -411,7 +411,7 @@
   arrays must have identical dimensions and EQUALP elements, but may differ
   in their type restriction."
   (cond ((eq x y) t)
-	((characterp x) (char-equal x y))
+	((characterp x) (and (characterp y) (char-equal x y)))
 	((numberp x) (and (numberp y) (= x y)))
 	((consp x)
 	 (and (consp y)
-- 
GitLab