[elephant-cvs] CVS elephant/src/utils

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/utils
In directory clnet:/tmp/cvs-serv18095/src/utils

Modified Files:
	convenience.lisp 
Log Message:
Fixes for Win32 allegro build; lispwork builds but fails to run; new test of :index class keyword which fails

--- /project/elephant/cvsroot/elephant/src/utils/convenience.lisp	2007/02/24 14:52:00	1.3
+++ /project/elephant/cvsroot/elephant/src/utils/convenience.lisp	2007/03/03 17:25:00	1.4
@@ -31,10 +31,10 @@
     (setf (car subsets) (nreverse (car subsets)))
     (nreverse subsets)))
 
-(defun remove-keywords (key-names args)
-  (loop for ( name val ) on args by #'cddr
-	unless (member name key-names)
-	append (list name val)))
+(defun remove-keywords (keywords list)
+  (cond ((null list) nil)
+	((member (car list) keywords) (cddr list))
+	(t (cons (car list) (remove-keywords keywords (cdr list))))))
 
 (defun concat-separated-strings (separator &rest lists)
   (format nil (concatenate 'string "~{~A~^" (string separator) "~}")