Commit bfd458cd authored by Attila Lendvai's avatar Attila Lendvai

fix: provide an appropriate value for a declaimed type.

otherwise SBCL complains.
parent 6121cc21
...@@ -27,7 +27,8 @@ ...@@ -27,7 +27,8 @@
(def-read-suppress-test read-suppress.12 "(...)") (def-read-suppress-test read-suppress.12 "(...)")
(defparameter *non-macro-chars* (defparameter *non-macro-chars*
"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.") (coerce "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?."
(declaim (type simple-base-string *non-macro-chars*)) (declaim (type simple-base-string *non-macro-chars*))
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