anchor.diff:             (declare (fixnum v)
                       ((vector fixnum) adjvs))
              (let ((adjvs-len (length adjvs)))
  +             (declare (fixnum adjvs-len))
                (format *standard-output* "~A~A~A ~A" v #\Tab v adjvs-len)
                (if (= adjvs-len 0)
                    (format *standard-output* "~%")
  
positive.code: 
  ;;; "graph-dataset-parser" goes here. Hacks and glory await!
  
  (declaim (optimize (speed 3) (safety 0))
           (inline split-sequence:split-sequence))
  
  (declaim (ftype (function (pathname pathname) null) parse-graph-dataset))
  
negative.code:                      parse-line
                       write-vertex
                       add-vertex))
      (let ((v-adjvs (make-hash-table :size 10000000)))
        (with-open-file (in-stream src)
          (loop :with lr fixnum := 0
             :for line :of-type (or simple-string null) := (read-line in-stream nil nil)
  