On ECL, exclude function that is incompatible with ECL

[kmrcl.git] / lists.lisp

diff --git a/lists.lisp b/lists.lisp
index b51c41a5072c396e1bf0a3f7ead8d292d14226be..5cd193cefe96910174ef1c9a9a5039c0b1c9b7b5 100644 (file)
--- 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