From a0017d21859c2b32e33ddf63c28e76b6f8426ee4 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 19 Nov 2009 20:21:39 +0100 Subject: [PATCH] Patch for tracker bug ID: 2900631. Losing non-primary values in compiled, proclaimed function calls (Abhishek) --- src/cmp/cmpenv.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 201fce898..e62f57648 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -91,7 +91,7 @@ ((or (endp (cdar return-types)) (member (cadar return-types) '(&optional &rest &key))) t) - (t (type-filter (cadar return-types))))) + (t (type-filter (car return-types) t)))) (t (type-filter (car return-types))))) (defun add-function-proclamation (fname decl)