anchor.diff:  (defun hmm (stage)
     (sb-profile:reset)
     (time
  -   (loop :for i :below 100 :do
  +   (loop :for i :below 10 :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))
  +;; (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))
  
positive.code:                     :vari.glsl
                      :vari.cl
                      :vari
                      :varjo)))
      `(progn
         (sb-profile:unprofile
          ,@(loop :for p :in packages :append
  
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)))
  