anchor.diff:      (format s " = ")
       (pretty-print (var-decl-initializer elm) s)))
   
  +;; Pretty-print a list of source elements
  +(defmethod pretty-print ((elm list) s)
  +  (loop for stmt in elm
  +        do
  +        (fresh-line-indented s)
  +        (pretty-print stmt s)
  +        (format s ";")))
  +  
   (defmethod pretty-print ((elm block) s)
     (fresh-line-indented s)
     (format s "{")
     (with-indent
  -    (loop for stmt in (block-statements elm)
  -          do
  -          (fresh-line-indented s)
  -          (pretty-print stmt s)
  -          (format s ";")))
  +    (pretty-print (block-statements elm) s))
     (fresh-line-indented s)
     (format s "}"))
   
  
positive.code:   (format s ")")
    (pretty-print-subordinate (for-in-body elm) s))
  
  ;;HERE: Next step, continue/break/return
  
  (defun test-pretty-printer ()
    (flet ((check (elm string)
  
negative.code: (defmethod pretty-print ((elm null) s)
    (declare (ignore elm s)))
  
  (defmethod pretty-print ((elm string) s)
    (format s "~A" elm))
  
  (defmethod pretty-print ((elm for) s)
    (format s "for(")
    (pretty-print (for-initializer elm) s)
  