diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 0640007174cb2775cab75896c064e772c0e7891a..52520a0ee2a032e50cd44fcf6ac63eee27e57c07 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -1601,8 +1601,8 @@ ;;; the global environment and enter it in *free-variables*. If the variable ;;; is unknown, then we emit a warning. ;;; -(proclaim '(function find-free-variable (symbol) leaf)) (defun find-free-variable (name) + (declare (values leaf)) (unless (symbolp name) (compiler-error "Variable name is not a symbol: ~S." name)) (or (gethash name *free-variables*)