Changeset 12215 for trunk/source/level-1


Ignore:
Timestamp:
Jun 6, 2009, 9:27:52 PM (10 years ago)
Author:
gz
Message:

Merge r11834 r11669 r11833 r11834 into trunk

Location:
trunk/source/level-1
Files:
3 edited

Legend:

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

    r12210 r12215  
    13031303
    13041304(defun find-class (name &optional (errorp t) environment)
     1305  (declare (optimize speed))
    13051306  (let* ((cell (find-class-cell name nil)))
    1306     (declare (optimize speed) (type class-cell cell))
     1307    (declare (type class-cell cell))
    13071308    (or (and cell (class-cell-class cell))
    13081309        (let ((defenv (and environment (definition-environment environment))))
  • trunk/source/level-1/l1-dcode.lisp

    r12210 r12215  
    13101310
    13111311(defun nth-or-gf-error (n l gf)
    1312   (declare (fixnum l))
     1312  (declare (fixnum n))
    13131313  (do* ((i 0 (1+ i))
    13141314        (l l (cdr l)))
  • trunk/source/level-1/l1-io.lisp

    r11646 r12215  
    988988        (name (symbol-name symbol))
    989989        (package (symbol-package symbol)))
    990     (declare (type simple-string name) (type package package))
     990    (declare (type simple-string name))
    991991    (when (or *print-readably* *print-escape*)
    992992      (cond ((keywordp symbol)
Note: See TracChangeset for help on using the changeset viewer.