mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

After recompiling cmppolicy the declaration specifiers were lost.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-22 00:03:23 +02:00
parent a14a97e9b7
commit f53e1fc768
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmppolicy.lsp
View file

@ -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))