From 23316c59d098cc7fc06c3cc6942c4233b4d9d5a4 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 28 Sep 2004 14:11:29 +0000 Subject: [PATCH] Make the subtypep check more precise in map.48, so there is no excuse about determining the element type. --- ansi-tests/map.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp index ff1ecfa3..f0ecd4f9 100644 --- a/ansi-tests/map.lsp +++ b/ansi-tests/map.lsp @@ -209,7 +209,7 @@ (deftest map.48 (let ((type '(or (vector t 10) (vector t 5)))) - (if (subtypep type 'vector) + (if (subtypep type '(vector t)) (equalpt (map type #'identity '(1 2 3 4 5)) #(1 2 3 4 5)) t)) t) -- GitLab