Changeset 11958 for trunk/source/lib/method-combination.lisp

Timestamp:

Apr 19, 2009, 4:09:28 PM (12 years ago)

Author:

gz

Message:

Fix a bunch of malformed/mistyped declarations

File:

• trunk/source/lib/method-combination.lisp (modified) (2 diffs)

trunk/source/lib/method-combination.lisp

@@ -457 +457 @@
     (declare (fixnum bits numreq numopt))
     (and (< i numopt)
-         (< (the fixum (+ i numreq)) (length argvals)))))
+         (< (the fixnum (+ i numreq)) (length argvals)))))
 
 ;;; This assumes that we've checked for argument presence.
@@ -465 +465 @@
          (numreq (ldb $lfbits-numreq bits)))
     (declare (fixnum bits numreq ))
-    (nth (the fixum (+ i numreq)) argvals)))
+    (nth (the fixnum (+ i numreq)) argvals)))
 
 (defun gf-arguments-tail (gf argvals)