Skip to content
Snippets Groups Projects
Commit dd0fb76c authored by gerd's avatar gerd
Browse files

* 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 ...)).
parent 10365bfd
Branches
Tags
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -84,7 +84,8 @@
(setf (info function where-from name) :defined)) (setf (info function where-from name) :defined))
(:declared (:declared
(let ((type (info function type name))) (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)) (let ((type-returns (function-type-returns type))
(dtype-returns (function-type-returns dtype)) (dtype-returns (function-type-returns dtype))
(*error-function* #'compiler-warning)) (*error-function* #'compiler-warning))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment