From f53e1fc7688e2251c81a96e735b00e9f033bcb11 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 22 Sep 2010 00:03:23 +0200 Subject: [PATCH] After recompiling cmppolicy the declaration specifiers were lost. --- src/cmp/cmppolicy.lsp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmppolicy.lsp b/src/cmp/cmppolicy.lsp index 22d07615e..f81b99998 100644 --- a/src/cmp/cmppolicy.lsp +++ b/src/cmp/cmppolicy.lsp @@ -41,6 +41,7 @@ for fun-name = (intern (concatenate 'string "POLICY-TO-" (symbol-name name) "-LEVEL")) collect `(defun ,fun-name (policy) + (declare (declaration ext:assume-right-type)) (loop for level from 0 to 3 when (logbitp (+ level ,i) policy) return level)))) @@ -235,6 +236,7 @@ (and (logtest bits ,test) ,@extra)))))))))) +(eval-when (:compile-toplevel :load-toplevel :execute) ;; ;; ERROR CHECKING POLICY @@ -297,7 +299,6 @@ INTGERP, STRINGP.") (define-policy inline-sequence-functions :off space 2 "Inline functions such as MAP, MEMBER, FIND, etc") - ;; ;; DEBUG POLICY ;; @@ -310,6 +311,8 @@ INTGERP, STRINGP.") (define-policy debug-ihs-frame :on debug 3 "Let the functions appear in backtraces") +); eval-when + (defun safe-compile () (>= (cmp-env-optimization 'safety) 2))