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

Remove warnings about unknown optimization setting COMPILATION-SPEED

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-25 22:34:45 +02:00
parent 5cfb33d7ad
commit 6092f4be4a
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/cmp/cmppolicy.lsp
View file

@ -19,18 +19,21 @@
(eval-when (:compile-toplevel :execute)
(defparameter *optimization-quality-switches*
#.(loop with hash = (make-hash-table :size 64 :test #'eq)
for name in +optimization-quality-orders+
for i from 0 by 4
for list = (loop with mask = (ash #b1111 i)
for level from 0 to 3
for bits = (ash 1 (+ level i))
collect (cons bits (logxor bits mask)))
do (setf (gethash name hash) list)
finally (return hash))))
(loop with hash = (make-hash-table :size 64 :test #'eq)
for name in +optimization-quality-orders+
for i from 0 by 4
for list = (loop with mask = (ash #b1111 i)
for level from 0 to 3
for bits = (ash 1 (+ level i))
collect (cons bits (logxor bits mask)))
do (setf (gethash name hash) list)
finally (return hash)))
(setf (gethash 'compilation-speed *optimization-quality-switches*)
'#1=((0 . 0) . #1#)))
(eval-when (:load-toplevel)
(defparameter *optimization-quality-switches* #.*optimization-quality-switches*))
(defparameter *optimization-quality-switches*
#.*optimization-quality-switches*))
#.`(eval-when (:compile-toplevel :execute :load-toplevel)
,@(loop for name in +optimization-quality-orders+
@ -198,6 +201,7 @@
(not (logtest bits ,bits-off))
,@extra)))))))))
;;
;; ERROR CHECKING POLICY
;;