Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
55fd5930
Commit
55fd5930
authored
Mar 20, 2013
by
Robert P. Goldman
Browse files
Fixed use of NIL which breaks case-sensitive lisp.
parent
b7ad3eb2
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
55fd5930
...
...
@@ -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))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment