anchor.diff:                       parse-line
                        write-vertex
                        add-vertex))
  -    (let ((v-adjvs (make-hash-table)))
  +    (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)
  
positive.code:            (declare (fixnum v)
                      ((vector fixnum) adjvs))
             (let ((adjvs-len (length adjvs)))
               (format *standard-output* "~A~A~A ~A" v #\Tab v adjvs-len)
               (if (= adjvs-len 0)
                   (format *standard-output* "~%")
  
negative.code: 
  ;;; "graph-dataset-parser" goes here. Hacks and glory await!
  
  (declaim (optimize (speed 3) (safety 0) (debug 0))
           (inline split-sequence:split-sequence))
  
  (declaim (ftype (function (pathname pathname) null) parse-graph-dataset))
  