From dd0fb76cbbea657f7cb30774aabb958645436f1d Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Mon, 24 Mar 2003 11:36:08 +0000 Subject: [PATCH] * src/compiler/ir1final.lisp (finalize-xep-definition): Catch the case that the declared type is a built-in-class, which happens for (declare (ftype function ...)). --- compiler/ir1final.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp index 758c897ee..f5f945e80 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)) -- GitLab