anchor.diff:    (%pov-list name list length))
   
   (defmethod print-object ((object pov-list) stream)
  -  (with-pov-indent old-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)))
  +  (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 old-indent
  -            (declare (ignore old-indent))
  +    (rope (with-pov-indent
               (let ((sep (rope '|,| *pov-newline-indent*)))
                 (fold (lambda (rope thing) (rope rope
                                                  sep
  
positive.code:   list)
  
  (defmethod print-object ((object pov-block) stream)
    (with-pov-indent old-indent
      (format stream
              "~&~A~A {~&~{~&~A~}~&~A}"
              old-indent
              (pov-block-name object)
              (pov-block-list object)
              old-indent)))
  
  (defmethod object-rope ((object pov-block))
    (let ((rope (rope *pov-newline-indent*
                      (pov-block-name object)
                      '| {|)))
      (rope (with-pov-indent old-indent
              (declare (ignore old-indent))
              (fold (lambda (rope thing) (rope rope
                                               *pov-newline-indent*
                                               (object-rope thing)))
  
negative.code:   statements)
  
  (defmethod print-object ((object pov-sequence) stream)
    (let ((*rope-print* :string))
      (loop for x in (pov-sequence-statements object)
         do (print-object x stream))))
  
  (defmethod object-rope ((object pov-sequence))
    (fold (lambda (rope object)
            (rope rope +rope-newline+ (object-rope object)))
          ""
          (pov-sequence-statements object)))
  
  (defun pov-quality (float-quality)
    "Return numeric povray quality for proportional to RATIO.
  