diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp index ff1ecfa3a990e4169b002b49e51d102fd50fcf95..f0ecd4f925514b070b56bf00ee31285d5cdd4c77 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)