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

Merge r11821 into trunk

File:
1 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)
Note: See TracChangeset for help on using the changeset viewer.