From dafd305e0711f0a20dd38e25d35e80c0fcff087f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 24 Sep 1990 18:08:23 +0000
Subject: [PATCH] When declaring vars as functions, you must say (type function
 var) not just (function var), 'cause that looks like your declaring a
 function.

---
 compiler/ir1tran.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index ec053049c..940b4870c 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -2082,7 +2082,7 @@
 ;;; arguments.
 ;;;
 (defun do-macrolet-stuff (definitions fun)
-  (declare (list definitions) (function fun))
+  (declare (list definitions) (type function fun))
   (let ((whole (gensym))
 	(environment (gensym)))
     (collect ((new-fenv))
-- 
GitLab