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