Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv27383 Modified Files: sequences.lisp Log Message: Minor edits. Date: Fri Apr 23 11:02:20 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.6 movitz/losp/muerte/sequences.lisp:1.7 --- movitz/losp/muerte/sequences.lisp:1.6 Wed Mar 31 07:17:14 2004 +++ movitz/losp/muerte/sequences.lisp Fri Apr 23 11:02:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.6 2004/03/31 12:17:14 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.7 2004/04/23 15:02:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -591,8 +591,7 @@ (mapf (first-sequence-ref i) (second-sequence-ref j)))))) ))) (t (function first-sequence &rest more-sequences) - (declare (dynamic-extent more-sequences) - (ignore function first-sequence more-sequences)) + (declare (ignore function first-sequence more-sequences)) (error "MAP not implemented.")))) (defun map-for-list (function first-sequence &rest more-sequences)