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

Merge r11834 r11669 r11833 r11834 into trunk

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