diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index c12f510ffca3092bfd5c0e4beda1a9d0fd3ddc93..27fbe74cc5b643c0bd139fb9e09a693a1ba8196c 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.23 1990/12/12 00:07:24 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.24 1991/01/12 13:49:08 ram Exp $ ;;; ;;; This file contains macro-like source transformations which convert ;;; uses of certain functions into the canonical form desired within the @@ -1248,10 +1248,8 @@ ;;; cases are replaced with the arg and zero arg cases with the identity. If ;;; Leaf-Fun is true, then replace two-arg calls with a call to that function. ;;; -(proclaim '(function source-transform-transitive - (symbol list (or symbol null)) - void)) (defun source-transform-transitive (fun args identity &optional leaf-fun) + (declare (symbol fun leaf-fun) (list args)) (case (length args) (0 identity) (1 `(values ,(first args)))