anchor.diff:  	    form)))))
   
   (defun cp-let (form)
  -  (let ((new-constants *known-variables*))
  +  (let ((*known-variables* *known-variables*))
       (dolist (b (second form))
         (let ((var (first b))
   	    (val (second b)))
  
positive.code: 		       (and (lexical-variable-p val)
  			    (localp val)
  			    (eql (lexical-variable-write-count val) 0))))
  	  (push (list var val 0 b) new-constants))))
      ;; Run on the body, with the new constants.
      (let ((*known-variables* new-constants))
        (cp-implicit-progn (cddr form)))
      form))
  
  ;;;(defun cp-load-time-value (form))
  
negative.code:                       (change-made)
                        (setf (second info) (third form))
                        (setf (second (fourth info)) (third form))
                        ;; Prevent future SETQ forms from back-propgating values.
                        (incf (third info))
                        (second form))
                       (t ;; Leave this form alone.
                        form)))
  