From 8a72a6fb6e863fb9bf7e6a302a0c775734a06347 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 9 May 2010 16:17:19 +0200 Subject: [PATCH] Do not filter types in declarations / proclamations --- src/cmp/cmptype-arith.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmptype-arith.lsp b/src/cmp/cmptype-arith.lsp index 19fac19ae..43218f835 100644 --- a/src/cmp/cmptype-arith.lsp +++ b/src/cmp/cmptype-arith.lsp @@ -117,7 +117,7 @@ (defun valid-type-specifier (type) (handler-case (if (subtypep type 'T) - (values t (type-filter type)) + (values t type) (values nil nil)) (error (c) (values nil nil))))