anchor.diff:  		  '(let* ((gsm1 10)) (gsm1 gsm1))
   		  *e*)
   		 '(let* ((gsm1 10)) (gsm1 gsm1)))))
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Test LOAD-TIME-VALUE
  +
  +(defun test-load-time-value ()
  +  ;; Check that the first argument of LOAD-TIME-VALUE is minimally
  +  ;; compiled, and that the second argument is preserved intact.
  +  (assert (equal (cleavir-generate-ast:minimally-compile
  +		  '(load-time-value gsm1 t)
  +		  *e*)
  +		 '(load-time-value (hello1 hello2) t))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code:   (test-if)
    (test-let)
    (test-let*)
    (test-progn)
    (test-setq)
    (assert (equal (cleavir-generate-ast:minimally-compile
  
negative.code: 		  '(gsm1 gsm1)
  		  *e*)
  		 '(gsm1 (hello1 hello2))))
    (format t "Tests passed~%"))
  
  (run-tests)
  