Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment