Changeset 12210 for trunk/source/level-1
- Timestamp:
- Jun 6, 2009, 5:54:55 PM (12 years ago)
- Location:
- trunk/source/level-1
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-aprims.lisp
r12069 r12210 177 177 (index 0 (1+ index))) 178 178 ((atom checked-list) returned-list) 179 (declare (type indexindex))179 (declare (type fixnum index)) 180 180 (if (>= index n) 181 181 (pop returned-list)))) … … 2788 2788 (max-upper #\u+0000) 2789 2789 (max-lower #\u+0000)) 2790 (declare (optimize speed)) ;; make sure everything gets inlined that needs to be. 2790 2791 (dolist (pair mapping) 2791 2792 (destructuring-bind (upper . lower) pair … … 2862 2863 (defstatic *alpha-char-bits* 2863 2864 (let* ((bits (make-array #x2fa1e :element-type 'bit))) 2865 (declare (optimize speed)) ;; make sure everything gets inlined that needs to be. 2864 2866 (dolist (range '((#x0041 . #x005A) 2865 2867 (#x0061 . #x007A) -
trunk/source/level-1/l1-clos-boot.lisp
r12045 r12210 956 956 (loop 957 957 (multiple-value-bind (found name cell) (m) 958 (declare ( type class-cell cell))958 (declare (optimize speed) (type class-cell cell)) 959 959 (unless found (return)) 960 960 (when cell … … 1304 1304 (defun find-class (name &optional (errorp t) environment) 1305 1305 (let* ((cell (find-class-cell name nil))) 1306 (declare ( type class-cell cell))1306 (declare (optimize speed) (type class-cell cell)) 1307 1307 (or (and cell (class-cell-class cell)) 1308 1308 (let ((defenv (and environment (definition-environment environment)))) … … 1509 1509 1510 1510 (defun make-cpl-bits (cpl) 1511 (declare (optimize speed)) 1511 1512 (when cpl 1512 1513 (let* ((max 0)) … … 1778 1779 (ordinal-type-class-alist ()) 1779 1780 (ordinal-type-class-alist-lock (make-lock))) 1781 1782 (declare (optimize speed)) ;; make sure everything gets inlined that needs to be. 1780 1783 1781 1784 ;; The built-in classes. … … 2630 2633 (defun %make-instance (class-cell &rest initargs) 2631 2634 (declare (dynamic-extent initargs)) 2635 (declare (optimize speed)) ;; make sure everything gets inlined that needs to be. 2632 2636 (apply #'make-instance 2633 2637 (or (class-cell-class class-cell) (class-cell-name (the class-cell class-cell))) -
trunk/source/level-1/l1-dcode.lisp
r11349 r12210 625 625 *min-gf-dispatch-table-size*)) 626 626 (let ((res (%cons-gf-dispatch-table size))) 627 (declare (optimize (speed 3) (safety 0))) 627 628 (setf (%gf-dispatch-table-mask res) (%i- (%ilsr 1 size) 1) 628 629 (%gf-dispatch-table-argnum res) 0 -
trunk/source/level-1/l1-lisp-threads.lisp
r11958 r12210 843 843 ;;; True if the object is in one of the heap areas 844 844 (defun %in-consing-area-p (x area) 845 (declare ( fixnum x)); lie845 (declare (optimize (speed 3) (safety 0)) (fixnum x)) ; lie 846 846 (let* ((low (%fixnum-ref area target::area.low)) 847 847 (high (%fixnum-ref area target::area.high))
Note: See TracChangeset
for help on using the changeset viewer.