diff --git a/ansi-tests/assoc-if-not.lsp b/ansi-tests/assoc-if-not.lsp index e2b70e7730d142ea591ceb611dc08944daf64fbb..061157f8c316c165f22eb7d46b3c9df79d7c59d3 100644 --- a/ansi-tests/assoc-if-not.lsp +++ b/ansi-tests/assoc-if-not.lsp @@ -141,7 +141,7 @@ type-error) (deftest assoc-if-not.error.12 - (classify-error (assoc-if-not #'identity ((a . b) :bad (c . d)))) + (classify-error (assoc-if-not #'identity '((a . b) :bad (c . d)))) type-error) (deftest assoc-if-not.error.13 diff --git a/ansi-tests/assoc-if.lsp b/ansi-tests/assoc-if.lsp index be40c679e94e755b9dfbb49bf241e38e58a5b927..e9bca8f3f444aa8c9f7c558316a8bcc8cb6e6754 100644 --- a/ansi-tests/assoc-if.lsp +++ b/ansi-tests/assoc-if.lsp @@ -140,7 +140,7 @@ type-error) (deftest assoc-if.error.12 - (classify-error (assoc-if #'null ((a . b) :bad (c . d)))) + (classify-error (assoc-if #'null '((a . b) :bad (c . d)))) type-error) (deftest assoc-if.error.13