Commit c6c6c27d authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

Merge branch 'rtoy-character-test-updates' into 'master'

Check for symbol length in character.1.body

See merge request !46
parents e662a305 2cdd7eba
......@@ -5,6 +5,7 @@
......@@ -75,11 +75,13 @@
(defun character.1.body ()
(loop for i from 0 below (min 65536 char-code-limit) for c = (code-char i)
unless (or (null c)
(let ((s (string c)))
(let* ((s (string c))
(sym (make-symbol s)))
(eqlt (character c) c)
(eqlt (character s) c)
(eqlt (character (make-symbol s)) c))))
(= 1 (length (symbol-name sym)))
(eqlt (character sym) c))))
collect (char-name c)))
(defun character.2.body ()
......@@ -7,6 +7,7 @@
# LISP=/usr/local/lib/LispWorks/nongraphic-lispworks-4450
# LISP=acl
# LISP="lisp -batch -noinit -nositeinit"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment