From 7ae3732c4d41c259d9859dc43f391b3ed0450986 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Sun, 30 Mar 2003 00:41:07 +0000 Subject: [PATCH] * compiler/ir1tran.lisp (process-ftype-declaration): Accept symbols as ftype types, like SBCL and others. --- compiler/ir1tran.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 258a0ea2a..f23e3ebeb 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.139 2003/03/22 16:15:19 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.140 2003/03/30 00:41:07 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -941,7 +941,8 @@ ;;; lexically apparent functions. ;;; (defun process-ftype-declaration (spec res names fvars) - (declare (list spec names fvars) (type lexenv res)) + (declare (list names fvars) (type lexenv res) + (type (or symbol list) spec)) (let ((type (specifier-type spec))) (collect ((res nil cons)) (dolist (name names) -- GitLab