diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 133debe3a82dc8c4164cdd31add0cd8b15743624..7dc1455df3dc61c1aa75138ecc734bff6aced4ea 100644 --- a/compiler/proclaim.lisp +++ b/compiler/proclaim.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/proclaim.lisp,v 1.38 2003/02/05 11:08:42 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.39 2003/02/05 12:33:12 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -325,6 +325,8 @@ (defun %declaim (x) (proclaim x)) +(defvar *proclamation-hooks* nil) + ;;; PROCLAIM -- Public ;;; ;;; This function is the guts of proclaim, since it does the global @@ -333,6 +335,10 @@ (defun proclaim (form) (unless (consp form) (error "Malformed PROCLAIM spec: ~S." form)) + + (when (boundp '*proclamation-hooks*) + (dolist (hook *proclamation-hooks*) + (funcall hook form))) (let ((kind (first form)) (args (rest form)))