[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv28896

Modified Files:
	lists.lisp 
Log Message:
Make mapc err if no lists are provided, rather than spin eternally.


--- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2007/02/22 20:28:37	1.21
+++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2007/03/21 20:17:48	1.22
@@ -9,7 +9,7 @@
 ;;;; Created at:    Tue Dec  5 18:40:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: lists.lisp,v 1.21 2007/02/22 20:28:37 ffjeld Exp $
+;;;; $Id: lists.lisp,v 1.22 2007/03/21 20:17:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -139,8 +139,9 @@
     (if (>= i n) (pop r))))
 
 (defun nthcdr (n list)
-  (do ((n (check-the fixnum n)))
+  (do ((n (check-the index n)))
       ((or (null list) (not (plusp n))) list)
+    (declare (index n))
     (decf n)
     (setf list (cdr list))))
 
@@ -327,6 +328,10 @@
 	first-list))
    (t (function &rest lists)
       (declare (dynamic-extent lists))
+      (unless lists
+        (error 'wrong-argument-count
+               :function #'mapc
+               :argument-count 0))
       (let ((first-list (car lists)))
 	(unless (some 'null lists)
 	  (prog ()