From bfd458cdbf7a272c1865ef871cf52178471304dc Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila@lendvai.name>
Date: Fri, 9 Dec 2016 13:13:46 +0100
Subject: [PATCH] fix: provide an appropriate value for a declaimed type.

otherwise SBCL complains.
---
 reader/read-suppress.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/reader/read-suppress.lsp b/reader/read-suppress.lsp
index e00a78cf..a8eccd5b 100644
--- a/reader/read-suppress.lsp
+++ b/reader/read-suppress.lsp
@@ -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*))
 
-- 
GitLab