diff options
Diffstat (limited to 'src/compiler/ir1tran-lambda.lisp')
-rw-r--r-- | src/compiler/ir1tran-lambda.lisp | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp index 75c81eab4..534933e1f 100644 --- a/src/compiler/ir1tran-lambda.lisp +++ b/src/compiler/ir1tran-lambda.lisp @@ -1049,17 +1049,12 @@ ;;; The INLINE-EXPANSION is a LAMBDA-WITH-LEXENV, or NIL if there is ;;; no inline expansion. (defun %compiler-defun (name lambda-with-lexenv compile-toplevel) - (let ((defined-fun nil)) ; will be set below if we're in the compiler - (when compile-toplevel ;; better be in the compiler (aver (boundp '*lexenv*)) - (when sb!xc:*compile-print* - (compiler-mumble "~&; recognizing DEFUN ~S~%" name)) (remhash name *free-funs*) (setf defined-fun (get-defined-fun name)) - (aver (fasl-output-p *compile-object*)) (if (member name *fun-names-in-this-file* :test #'equal) (warn 'duplicate-definition :name name) |