anchor.diff:  
   (defun ggg ()
     (declare (optimize (safety 0) (speed 3) (debug 0)))
  -  (loop for l = *l2* then (cdr l)
  +  (loop with j = *j*
           repeat 1000000000
  -        maximize (yyy (car l))))
  +        do (yyy j)))
  +
  +(time (ggg)) ; < 4.5s
  
positive.code: 
  (defun g ()
    (declare (optimize (safety 0) (speed 3) (debug 0)))
    (loop for l = *l2* then (cdr l)
          repeat 1000000000
          maximize (y (car l))))
  
  (time (g))
  
  (defun yy (instance)
    (declare (optimize (safety 0) (speed 3) (debug 0)))
  
negative.code: 
  (defun gg ()
    (declare (optimize (safety 0) (speed 3) (debug 0)))
    (loop with j = *j*
          repeat 1000000000
  	do (yy j)))
  
  (time (gg)) ; < 4.5s
  
  (defun yyy (instance)
    (declare (optimize (safety 0) (speed 3) (debug 0)))
  