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