Changeset 5134

Timestamp:

Sep 5, 2006, 9:41:04 PM (18 years ago)

Author:

Gary Byers

Message:

Some fixnum decls in %FIND-PKG.

File:

• trunk/ccl/level-0/nfasload.lisp (modified) (1 diff)

trunk/ccl/level-0/nfasload.lisp

@@ -252 +252 @@
   
 (defun %find-pkg (name &optional (len (length name)))
+  (declare (fixnum len))
   (with-package-list-read-lock
       (dolist (p %all-packages%)
         (if (dolist (pkgname (pkg.names p))
-              (when (and (= (length pkgname) len)
+              (when (and (= (the fixnum (length pkgname)) len)
                          (dotimes (i len t)
                            ;; Aref: allow non-simple strings