anchor.diff:                      :vari.glsl
                       :vari.cl
                       :vari
  -                    :varjo)))
  +                    :varjo
  +                    :vas-string-metrics
  +                    :split-sequence
  +                    :parse-float
  +                    :alexandria
  +                    :cl-ppcre)))
       `(progn
          (sb-profile:unprofile
           ,@(loop :for p :in packages :append
  
positive.code: (defun hmm (stage)
    (sb-profile:reset)
    (time
     (loop :for i :below 100 :do
        (translate stage)))
    (sb-profile:report))
  
  
  (require :sb-sprof)
  
  (defun kick-off (stage)
    (sb-sprof:reset)
    (sb-sprof:start-profiling :sample-interval 0.001)
    (loop :for i :below 10000 :do
       (translate stage))
    (sb-sprof:stop-profiling)
    (sb-sprof:report :type :flat))
  
negative.code:                     :vari.glsl
                      :vari.cl
                      :vari
                      :varjo
                      :vas-string-metrics
                      :split-sequence
                      :parse-float
                      :alexandria
                      :cl-ppcre)))
      `(sb-profile:profile
        ,@(loop :for p :in packages :append
             (let ((pkg (find-package p)))
  