Changeset 12210 for trunk/source/level-1

Timestamp:

Jun 6, 2009, 5:54:55 PM (12 years ago)

Author:

gz

Message:

Merge r11821 into trunk

Location:

trunk/source/level-1

Files:

• l1-aprims.lisp (modified) (3 diffs)
• l1-clos-boot.lisp (modified) (5 diffs)
• l1-dcode.lisp (modified) (1 diff)
• l1-lisp-threads.lisp (modified) (1 diff)

trunk/source/level-1/l1-aprims.lisp

@@ -177 +177 @@
             (index 0 (1+ index)))
            ((atom checked-list) returned-list)
-        (declare (type index index))
+        (declare (type fixnum index))
         (if (>= index n)
           (pop returned-list))))
@@ -2788 +2788 @@
        (max-upper #\u+0000)
        (max-lower #\u+0000))
+  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
   (dolist (pair mapping)
     (destructuring-bind (upper . lower) pair
@@ -2862 +2863 @@
 (defstatic *alpha-char-bits*
   (let* ((bits (make-array #x2fa1e :element-type 'bit)))
+    (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
     (dolist (range '((#x0041 . #x005A)
                      (#x0061 . #x007A)

trunk/source/level-1/l1-clos-boot.lisp

@@ -956 +956 @@
     (loop
       (multiple-value-bind (found name cell) (m)
-        (declare (type class-cell cell))
+        (declare (optimize speed) (type class-cell cell))
         (unless found (return))
         (when cell
@@ -1304 +1304 @@
 (defun find-class (name &optional (errorp t) environment)
   (let* ((cell (find-class-cell name nil)))
-    (declare (type class-cell cell))
+    (declare (optimize speed) (type class-cell cell))
     (or (and cell (class-cell-class cell))
         (let ((defenv (and environment (definition-environment environment))))
@@ -1509 +1509 @@
 
 (defun make-cpl-bits (cpl)
+  (declare (optimize speed))
   (when cpl
     (let* ((max 0))
@@ -1778 +1779 @@
       (ordinal-type-class-alist ())
       (ordinal-type-class-alist-lock (make-lock)))
+
+  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
 
 ;; The built-in classes.
@@ -2630 +2633 @@
 (defun %make-instance (class-cell &rest initargs)
   (declare (dynamic-extent initargs))
+  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
   (apply #'make-instance
          (or (class-cell-class class-cell) (class-cell-name  (the class-cell class-cell)))

trunk/source/level-1/l1-dcode.lisp

@@ -625 +625 @@
                     *min-gf-dispatch-table-size*))
   (let ((res (%cons-gf-dispatch-table size)))
+    (declare (optimize (speed 3) (safety 0)))
     (setf (%gf-dispatch-table-mask res) (%i- (%ilsr 1 size) 1)
           (%gf-dispatch-table-argnum res) 0

trunk/source/level-1/l1-lisp-threads.lisp

@@ -843 +843 @@
 ;;; True if the object is in one of the heap areas
 (defun %in-consing-area-p (x area)
-  (declare (fixnum x))                  ; lie
+  (declare (optimize (speed 3) (safety 0)) (fixnum x))       ; lie
   (let* ((low (%fixnum-ref area target::area.low))
          (high (%fixnum-ref area target::area.high))