anchor.diff:  
   (defun all-binary-commands ()
     (let ((result-vector (make-extensible-vector)))
  -    (do-iterator (path (shcl/core/environment:colon-list-iterator shcl/core/environment:$path))
  +    (do-iterator (path (colon-list-iterator $path))
         (when (equal "" path)
           (setf path "."))
         (vector-push-extend (executables-in-directory path) result-vector))
       (concatenate-iterable-collection result-vector)))
   
   (defmethod completion-suggestions concatenate-iterables
  -    ((desired (eql (find-class 'shcl/core/lexer:simple-word)))
  -     (token shcl/core/lexer:simple-word)
  +    ((desired (eql (find-class 'simple-word)))
  +     (token simple-word)
        context)
     (unless *command-words*
       (return-from completion-suggestions))
  
positive.code:   (when (equal 0 (fset:size *command-words*))
      (labels
          ((compatible-p (command)
             (starts-with-p command (shcl/core/lexer:simple-word-text token))))
        (filter-iterator (all-binary-commands) #'compatible-p))))
  
  (defvar *empty-token* (make-instance 'shcl/core/lexer:simple-word :text ""))
  
  (defun make-unique-table ()
    (make-hash-table :test 'equal))
  
negative.code:                ;; the dynamic context where the error was produced
                 (do-iterator (suggestion err-suggestions)
                   (fset:adjoinf suggestions suggestion))))))
        (add-hook '*intermediate-parse-error-hook* #'add-error)
        (handler-case
            (do-iterator (command command-iterator)
              (declare (ignore command)))
          (parse-failure (err)
            ;; This really should have already been handled, but just in
            ;; case...
            (add-error (parse-failure-error-object err))))
        suggestions)))
  
  (defun completion-suggestions-for-input (input-text cursor-point readtable)
  