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 @@
(def-read-suppress-test read-suppress.12 "(...)")
(defparameter *non-macro-chars*
"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.")
(coerce "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?."
'simple-base-string))
(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