anchor.diff:  
   (defmethod convert-compound
       ((symbol (eql 'load-time-value)) form environment)
  -  (check-special-form-proper-list form)
  +  (sicl-code-utilities:check-form-proper-list form)
     (unless (<= 2 (length form) 3)
       (error 'load-time-value-must-have-one-or-two-arguments
   	   :expr form))
  
positive.code:   ((%value-type :initarg :value-type :reader value-type)
     (%form :initarg :form :reader form)))
  
  (define-condition the-must-have-exactly-two-arguments
      (compilation-program-error)
    ())
  
  (defmethod convert-compound
      ((symbol (eql 'the)) form environment)
    (check-special-form-proper-list form)
    (unless (= (length form) 3)
      (error 'the-must-have-exactly-two-arguments
  	   :expr form))
    (make-instance 'the-ast
  		 :value-type (cadr form)
  		 :form (convert (caddr form) environment)))
  
negative.code:   ((%function-form :initarg :function-form :reader function-form)
     (%forms :initarg :forms :reader forms)))
  
  (defmethod convert-compound
      ((symbol (eql 'multiple-value-call)) form environment)
    (sicl-code-utilities:check-form-proper-list form)
    (sicl-code-utilities:check-argcount form 1 nil)
    (make-instance 'multiple-value-call-ast
  		 :function-form (convert (cadr form) environment)
  		 :forms (convert-sequence (cddr form) environment)))
  