Ignore:
Timestamp:
Mar 21, 2009, 12:08:57 AM (11 years ago)
Author:
gz
Message:

Assorted tweaks for declaration checking

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r11821 r11834  
    13051305
    13061306(defun find-class (name &optional (errorp t) environment)
     1307  (declare (optimize speed))
    13071308  (let* ((cell (find-class-cell name nil)))
    1308     (declare (optimize speed) (type class-cell cell))
     1309    (declare (type class-cell cell))
    13091310    (or (and cell (class-cell-class cell))
    13101311        (let ((defenv (and environment (definition-environment environment))))
Note: See TracChangeset for help on using the changeset viewer.