From d21a1fd389c95241b671af90536420a30b666d97 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 17 Dec 2002 09:53:04 +0000 Subject: [PATCH] Previous fixed removed. Hopefully this time I got FTYPE declarations correct: they are restricted to (FTYPE (FUNCTION (arg-types*) ret-type*) name*) --- src/cmp/cmpenv.lsp | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 867c9a754..268b1d86d 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -249,9 +249,6 @@ (dolist (v (cddr decl)) (add-function-proclamation v (cdr (second decl))) )) - ((and (equal (length decl) 4) - (consp (third decl))) - (add-function-proclamation (second decl) (cddr decl))) (t (cmpwarn "Bad function proclamation ~a" decl)))) (INLINE (dolist (fun (cdr decl)) @@ -430,9 +427,6 @@ (eq (caadr decl) 'FUNCTION)) (dolist (v (cddr decl)) (add-function-declaration v (cadr (second decl)) (caddr (second decl))))) - ((and (equal (length decl) 4) - (consp (third decl))) - (add-function-declaration (second decl) (third decl) (cdddr decl))) (t (cmpwarn "The function declaration ~a is illegal" decl)))) (INLINE (push decl dl)