anchor.diff:               (write-vertex vertex adjvs)
                (add/set-written-vertex vertex chvs))
             ;; Next, we write the remaining unwritten leaf vertices in
  -          ;; the chvs set to the output file
  +          ;; the chvs hash table to the output file
             (when (< 0 (hash-table-count chvs))
               (maphash (lambda (v s)
                          (when (eql s :unwritten)
  
positive.code:          (add/set-written-vertex (vid ht)
             (when (not (eql (gethash vid ht) :written))
               (setf (gethash vid ht) :written))))
      (declare (inline parse-line
                       write-vertex
                       add-unwritten-vertex
                       add/set-written-vertex))
  
negative.code:   "Parse a graph dataset file into a format that's suitable for
  consumption by Pregel+/Palgol applications and write the result out to
  a specified output file."
    (flet ((comment-p (line)
             (let ((first-char (aref line 0)))
               (or (char= #\# first-char) (char= #\% first-char))))
           (parse-line (line)
             (-<>> line
                   (split-sequence-if (lambda (c) (or (char= c #\Tab) (char= c #\space))))
                   (remove "" <> :test #'equal)
  