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) "~}")