diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp index 758c897ee814130dea3819017a545a12e062296f..f5f945e8005e29a735a8e6c717dd19fcc5e76e20 100644 --- a/compiler/ir1final.lisp +++ b/compiler/ir1final.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.22 2003/02/20 16:41:22 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.23 2003/03/24 11:36:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -84,7 +84,8 @@ (setf (info function where-from name) :defined)) (:declared (let ((type (info function type name))) - (when (and type (function-type-p dtype)) + (when (and (function-type-p type) + (function-type-p dtype)) (let ((type-returns (function-type-returns type)) (dtype-returns (function-type-returns dtype)) (*error-function* #'compiler-warning))