Commit 55fd5930 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fixed use of NIL which breaks case-sensitive lisp.

parent b7ad3eb2
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
@@ -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))))