From 0de8000dd2b5723a1986d405e77d37c3ed14f881 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 15 Sep 1992 16:10:16 +0000 Subject: [PATCH] Fixed START-BLOCK, END-BLOCK and recognized declarations to be ignored in %PROCLAIM (they only make it that far when called by the interpreter. Changed the unrecognized proclamation error to be a warning. --- compiler/proclaim.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 7aca2a5d4..fcf49db28 100644 --- a/compiler/proclaim.lisp +++ b/compiler/proclaim.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.25 1992/03/09 14:56:16 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.26 1992/09/15 16:10:16 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -380,10 +380,12 @@ (unless (symbolp decl) (error "Declaration to be RECOGNIZED is not a symbol: ~S." decl)) (setf (info declaration recognized decl) t))) + ((start-block end-block)) ; ignore. (t - (if (member kind type-specifier-symbols) - (%proclaim `(type . ,form)) - (error "Unrecognized proclamation: ~S." form))))) + (cond ((member kind type-specifier-symbols) + (%proclaim `(type . ,form))) + ((not (info declaration recognized kind)) + (warn "Unrecognized proclamation: ~S." form)))))) (undefined-value)) ;;; (setf (symbol-function 'proclaim) #'%proclaim) -- GitLab