From 55fd59307edda32ec5e29cb0d48408465628289c Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 20 Mar 2013 12:42:01 -0500
Subject: [PATCH] Fixed use of NIL which breaks case-sensitive lisp.

---
 test/test-utilities.script | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index 3a0229069..bb5a6a1cb 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -202,8 +202,8 @@
 #+(or clozure (and sbcl (not sb-unicode))) (assert (not +non-base-chars-exist-p+))
 
 (assert (base-string-p (make-string 10 :element-type 'base-char)))
-(assert-equal "abcd" (strcat "a" NIL "bc" "d"))
-(assert-equal "abcd" (reduce/strcat '("a" NIL "bc" "d")))
+(assert-equal "abcd" (strcat "a" nil "bc" "d"))
+(assert-equal "abcd" (reduce/strcat '("a" nil "bc" "d")))
 
 #-non-base-chars-exist-p
 (progn
@@ -217,8 +217,8 @@
   (assert (not (base-string-p (make-string 10 :element-type 'character))))
   (assert (not (base-string-p (unbasify "abc"))))
   (assert (base-string-p (basify "abc")))
-  (assert (not (base-string-p (strcat "a" NIL #\b (unbasify "cd")))))
-  (assert (base-string-p (reduce/strcat (mapcar 'basify '("a" "b" NIL "cd")))))
+  (assert (not (base-string-p (strcat "a" nil #\b (unbasify "cd")))))
+  (assert (base-string-p (reduce/strcat (mapcar 'basify '("a" "b" nil "cd")))))
   (assert (base-string-p (strcat (basify "ab") (basify "cd"))))
   (assert (not (base-string-p (strcat (basify "ab") #\c (unbasify "d")))))
   (assert (base-string-p (strcat (basify "ab") #\c #\d))))
-- 
GitLab