Fix handling of return value type on ftype proclaimation.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 8 Apr 2013 07:21:27 +0000 (03:21 -0400)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 8 Apr 2013 07:21:27 +0000 (03:21 -0400)
src/cmp/cmpenv.lsp

index fd4939a..89b7f30 100644 (file)
                ((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)