anchor.diff:  
   (defun splice-lists (list-a list-b)
     "Splice two circular lists together"
  -  (declare (optimize (speed 3) (space 0) (debug 0))
  -           (sb-ext:muffle-conditions sb-ext:compiler-note))
  +  (declare (optimize (speed 3) (space 0) (debug 0)))
     (cond
       ((null list-a) list-b)
       ((null list-b) list-a)
  
positive.code: 
  (defun extract-node (heap node)
    (let ((key (node-key node))
          (value (node-value node)))
      (decrease-key heap node most-negative-fixnum)
      (extract-min heap)
      (values value key)))
  
negative.code:           (min-node heap-b) nil
            (heap-size heap-a) 0
            (heap-size heap-b) 0)
      heap))
  