Changeset 313

Timestamp:

Jan 17, 2004, 7:44:08 PM (21 years ago)

Author:

Gary Byers

Message:

%%NTH-ARG-DCODE: signal program error if 0 args.

File:

• trunk/ccl/level-1/l1-dcode.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-dcode.lisp

@@ -779 +779 @@
     (let* ((args-len (list-length args))
            (argnum (%gf-dispatch-table-argnum dt)))
-      (when (< args-len argnum) (signal-program-error "Too few args ~s to ~s." args-len (%gf-dispatch-table-gf dt)))
+      (declare (fixnum args-len arg-num))
+      (when (or (zerop args-len) (< args-len argnum)) (signal-program-error "Too few args ~s to ~s." args-len (%gf-dispatch-table-gf dt)))
       (let ((method (%find-nth-arg-combined-method dt (nth argnum args) args)))
         (apply method args)))
     (let* ((args-len (%lexpr-count args))
            (argnum (%gf-dispatch-table-argnum dt)))
-      (when (< args-len argnum) (signal-program-error "Too few args ~s to ~s." args-len (%gf-dispatch-table-gf dt)))
+      (declare (fixnum args-len arg-num))
+      (when (or (zerop args-len) (< args-len argnum)) (signal-program-error "Too few args ~s to ~s." args-len (%gf-dispatch-table-gf dt)))
       (let ((method (%find-nth-arg-combined-method dt (%lexpr-ref args args-len argnum) args)))
         (%apply-lexpr-tail-wise method args)))))