anchor.diff:        (consp expr)))
   
   (defvar *loop-keywords*
  -  '(:for :do :when :unless :initially :finally :while :until
  -    :from :to :below :downto :above :by :in :across :on := :then :sum :collect
  -    :count :minimize :maximize :into :repeat))
  +  '(:for :do :repeat :with :when :unless :while :until :initially :finally
  +    :from :to :below :downto :above :by :in :across :on := :then
  +    :sum :collect :count :minimize :maximize :into))
   
   (defun normalize-loop-keywords (args)
     (mapcar
  
positive.code: (defun for-on (var bindings state)
    (with-local-var (arr (eat state) state)
      (let ((by (aif (eat state :if :by)
                     `(,(reduce-function-symbol it) ,var)
                     `((@ ,var :slice) 1))))
        (push-tokens state `(,var := ,arr :then ,by))
        (for-clause state)
  
negative.code:          x))
     args))
  
  (defun turn-lisp-style-function-name-to-ordinary-js-name (sym)
    (if (and (consp sym) (eq 'function (first sym)))
        (second sym)
        sym))
  