[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	sequences.lisp 
Log Message:
Remove unused args.


--- /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp	2006/04/10 11:56:28	1.33
+++ /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp	2007/02/20 21:55:29	1.34
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep 11 14:19:23 2001
 ;;;;                
-;;;; $Id: sequences.lisp,v 1.33 2006/04/10 11:56:28 ffjeld Exp $
+;;;; $Id: sequences.lisp,v 1.34 2007/02/20 21:55:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1755,10 +1755,9 @@
    (t (error "Can't concatenate ~S yet: ~:S" result-type sequences))))
 
 
-(defun substitute (newitem olditem sequence &rest args 
+(defun substitute (newitem olditem sequence
 		   &key (test 'eql) test-not (start 0) end count (key 'identity) from-end)
   "=> result-sequence"
-  (declare (dynamic-extent args))
   (when test-not
     (setf test (complement test-not)))
   (with-funcallable (test (if test-not (complement test-not) test))
@@ -1767,10 +1766,9 @@
 		   :count count :key key
 		   :from-end from-end)))
 
-(defun nsubstitute (newitem olditem sequence &rest args 
+(defun nsubstitute (newitem olditem sequence
 		    &key (test 'eql) test-not (start 0) end count (key 'identity) from-end)
   "=> result-sequence"
-  (declare (dynamic-extent args))
   (when test-not
     (setf test (complement test-not)))
   (with-funcallable (test (if test-not (complement test-not) test))