Ignore:
Timestamp:
Apr 19, 2009, 4:09:28 PM (12 years ago)
Author:
gz
Message:

Fix a bunch of malformed/mistyped declarations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/method-combination.lisp

    r11855 r11958  
    457457    (declare (fixnum bits numreq numopt))
    458458    (and (< i numopt)
    459          (< (the fixum (+ i numreq)) (length argvals)))))
     459         (< (the fixnum (+ i numreq)) (length argvals)))))
    460460
    461461;;; This assumes that we've checked for argument presence.
     
    465465         (numreq (ldb $lfbits-numreq bits)))
    466466    (declare (fixnum bits numreq ))
    467     (nth (the fixum (+ i numreq)) argvals)))
     467    (nth (the fixnum (+ i numreq)) argvals)))
    468468
    469469(defun gf-arguments-tail (gf argvals)
Note: See TracChangeset for help on using the changeset viewer.