Changeset 12210


Ignore:
Timestamp:
Jun 6, 2009, 5:54:55 PM (10 years ago)
Author:
gz
Message:

Merge r11821 into trunk

Location:
trunk/source
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r12069 r12210  
    177177            (index 0 (1+ index)))
    178178           ((atom checked-list) returned-list)
    179         (declare (type index index))
     179        (declare (type fixnum index))
    180180        (if (>= index n)
    181181          (pop returned-list))))
     
    27882788       (max-upper #\u+0000)
    27892789       (max-lower #\u+0000))
     2790  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    27902791  (dolist (pair mapping)
    27912792    (destructuring-bind (upper . lower) pair
     
    28622863(defstatic *alpha-char-bits*
    28632864  (let* ((bits (make-array #x2fa1e :element-type 'bit)))
     2865    (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    28642866    (dolist (range '((#x0041 . #x005A)
    28652867                     (#x0061 . #x007A)
  • trunk/source/level-1/l1-clos-boot.lisp

    r12045 r12210  
    956956    (loop
    957957      (multiple-value-bind (found name cell) (m)
    958         (declare (type class-cell cell))
     958        (declare (optimize speed) (type class-cell cell))
    959959        (unless found (return))
    960960        (when cell
     
    13041304(defun find-class (name &optional (errorp t) environment)
    13051305  (let* ((cell (find-class-cell name nil)))
    1306     (declare (type class-cell cell))
     1306    (declare (optimize speed) (type class-cell cell))
    13071307    (or (and cell (class-cell-class cell))
    13081308        (let ((defenv (and environment (definition-environment environment))))
     
    15091509
    15101510(defun make-cpl-bits (cpl)
     1511  (declare (optimize speed))
    15111512  (when cpl
    15121513    (let* ((max 0))
     
    17781779      (ordinal-type-class-alist ())
    17791780      (ordinal-type-class-alist-lock (make-lock)))
     1781
     1782  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    17801783
    17811784;; The built-in classes.
     
    26302633(defun %make-instance (class-cell &rest initargs)
    26312634  (declare (dynamic-extent initargs))
     2635  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    26322636  (apply #'make-instance
    26332637         (or (class-cell-class class-cell) (class-cell-name  (the class-cell class-cell)))
  • trunk/source/level-1/l1-dcode.lisp

    r11349 r12210  
    625625                    *min-gf-dispatch-table-size*))
    626626  (let ((res (%cons-gf-dispatch-table size)))
     627    (declare (optimize (speed 3) (safety 0)))
    627628    (setf (%gf-dispatch-table-mask res) (%i- (%ilsr 1 size) 1)
    628629          (%gf-dispatch-table-argnum res) 0
  • trunk/source/level-1/l1-lisp-threads.lisp

    r11958 r12210  
    843843;;; True if the object is in one of the heap areas
    844844(defun %in-consing-area-p (x area)
    845   (declare (fixnum x))                  ; lie
     845  (declare (optimize (speed 3) (safety 0)) (fixnum x))       ; lie
    846846  (let* ((low (%fixnum-ref area target::area.low))
    847847         (high (%fixnum-ref area target::area.high))
  • trunk/source/lib/level-2.lisp

    r9310 r12210  
    303303             `(setf (symbol-function ',name)
    304304                    (qlfun ,name ,vars ,@body))))
     305  (declare (optimize (speed 1) (safety 1)))
    305306  (%eval-redef %ilsl (n x))
    306307  (%eval-redef %ilsr (n x))
  • trunk/source/lib/sequences.lisp

    r12132 r12210  
    21422142  "Given a character count and an optional fill character, makes and returns
    21432143   a new string COUNT long filled with the fill character."
     2144  (declare (optimize (speed 1) (safety 1)))
    21442145  (when (and initial-element-p (not (typep initial-element 'character)))
    21452146    (report-bad-arg initial-element 'character))
  • trunk/source/xdump/xfasload.lisp

    r11373 r12210  
    18041804  (let* ((backend (find-backend target))
    18051805         (any (not (null force)))
    1806          (outpath (merge-pathnames dir (backend-target-fasl-pathname backend))))
     1806         (outpath (merge-pathnames dir (backend-target-fasl-pathname backend)))
     1807         (*nx-speed* (max 1 *nx-speed*))
     1808         (*nx-safety* (min 1 *nx-safety*)))
    18071809    (in-development-mode
    18081810     (dolist (src (sort (directory (merge-pathnames dir "*.lisp"))
Note: See TracChangeset for help on using the changeset viewer.