From b331ae3523c0b2f4e6517d5ab1de53433900497c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 15 Feb 2009 19:39:47 +0100 Subject: [PATCH] FUNCTION forms have output type FUNCTION --- src/cmp/cmpspecial.lsp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp index 4e348fad8..be139fec1 100644 --- a/src/cmp/cmpspecial.lsp +++ b/src/cmp/cmpspecial.lsp @@ -67,6 +67,7 @@ (incf (var-ref var)) (add-to-read-nodes var (make-c1form* 'VAR :args var))) (make-c1form* 'FUNCTION + :type 'FUNCTION :sp-change (not (and (symbolp fun) (get-sysprop fun 'NO-SP-CHANGE))) :args 'GLOBAL nil fun))))