X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=lists.lisp;h=5cd193cefe96910174ef1c9a9a5039c0b1c9b7b5;hp=b51c41a5072c396e1bf0a3f7ead8d292d14226be;hb=5a1ba26220b15f493fac354c0e411c1f2f57d20d;hpb=43a47b249717a072f77ab32bf37f2136447c0a8f diff --git a/lists.lisp b/lists.lisp index b51c41a..5cd193c 100644 --- a/lists.lisp +++ b/lists.lisp @@ -81,6 +81,8 @@ ;;; Keyword functions +;; ECL doesn't allow FOR clauses after UNTIL. +#-ecl (defun remove-keyword (key arglist) (loop for sublist = arglist then rest until (null sublist) for (elt arg . rest) = sublist