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