Ignore:
Timestamp:
May 15, 2009, 3:18:52 PM (10 years ago)
Author:
gz
Message:

merge r12050

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r12045 r12069  
    10691069
    10701070(defun %proclaim-optimize (specs &aux q v)
    1071  (dolist (spec specs)
    1072   (if (atom spec)
    1073    (setq q spec v 3)
    1074    (setq q (%car spec) v (cadr spec)))
    1075   (when (and (fixnump v) (<= 0 v 3))
    1076    (if (eq q 'speed)
    1077     (setq *nx-speed* v)
    1078     (if (eq q 'space)
    1079      (setq *nx-space* v)
    1080      (if (eq q 'compilation-speed)
    1081       (setq *nx-cspeed* v)
    1082       (if (eq q 'safety)
    1083        (setq *nx-safety* v)
    1084        (if (eq q 'debug)
    1085          (setq *nx-debug* v)))))))))
     1071  (dolist (spec specs)
     1072    (if (atom spec)
     1073      (setq q spec v 3)
     1074      (setq q (%car spec) v (cadr spec)))
     1075    (or (and (fixnump v)
     1076             (<= 0 v 3)
     1077             (case q
     1078               (speed (setq *nx-speed* v))
     1079               (space (setq *nx-space* v))
     1080               (compilation-speed (setq *nx-cspeed* v))
     1081               (safety (setq *nx-safety* v))
     1082               (debug (setq *nx-debug* v))))
     1083        (bad-proclaim-spec `(optimize ,spec)))))
    10861084
    10871085(defun nx-lexical-finfo (sym &optional (env *nx-lexical-environment*))
Note: See TracChangeset for help on using the changeset viewer.