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