anchor.diff:  		  '(gsm1 gsm1)
   		  *e*)
   		 '(gsm1 (hello1 hello2))))
  -  ;; 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)))
     (format t "Tests passed~%"))
   
   (run-tests)
  
positive.code:   (test-if)
    (test-let)
    (test-let*)
    (test-progn)
    (test-setq)
    (assert (equal (cleavir-generate-ast:minimally-compile
  
negative.code: 		  '(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))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  