anchor.diff:    value)
   
   (defmethod print-object ((object pov-version) stream)
  -  (with-pov-indent old-indent
  -    (declare (ignore old-indent))
  +  (with-pov-indent
       (format stream "~&#version ~A;"
               (pov-version-value object))))
   
  
positive.code:                              x z y)))))
  
  (defmethod print-object ((object pov-matrix) stream)
    (let ((elements (pov-matrix-elements object)))
      (with-pov-indent old-indent
        (format stream "~&~Amatrix <~&~A~F, ~F, ~F,~&~A~F, ~F, ~F,~&~A~F, ~F, ~F,~&~A~F, ~F, ~F~&~A>"
                old-indent
                *pov-indent*
  
negative.code:   (%pov-list name list length))
  
  (defmethod print-object ((object pov-list) stream)
    (let ((old-indent *pov-indent*))
      (with-pov-indent
        (format stream
                "~&~A~A {~D,~{~A~^,~}~&~A}"
                old-indent
                (pov-list-name object)
                (pov-value (pov-list-length object))
                (pov-list-list object)
                old-indent))))
  
  (defmethod object-rope ((object pov-list))
    (let ((rope (rope *pov-newline-indent*
                      (pov-list-name object)
                      '| { |)))
      (rope (with-pov-indent
              (let ((sep (rope '|,| *pov-newline-indent*)))
                (fold (lambda (rope thing) (rope rope
                                                 sep
  