anchor.diff:  (oneargspecial go "goto")
   
   (defspecialform (function name (&rest vars) &rest body)
  -  (fmt "~@<function ~:[~*~;~W~](~{~W~^, ~})~:@_~/php::def-body/~:>"
  -       name name vars body))
  +  (pprint-logical-block (stream nil)
  +    (fmt "function ~:[~*~;~W~](~{~W~^, ~})~:@_~/php::def-body/"
  +	 name name vars body)))
   
   (defspecialform (class name (&optional base) &rest body)
  -  (fmt "~@<class ~:[~*~;~W~]~:[~; extends ~W~]~:@_~/php::def-body/~:>" name name base body))
  +  (pprint-logical-block (stream nil)
  +    (fmt "class ~:[~*~;~W~]~:[~; extends ~W~]~:@_~/php::def-body/" name name base body)))
   
   ;; TODO: implement comment wrapping
   (defspecialform (comment text &rest body)
  
positive.code:     (fmt "} while (~W)" while)))
  
  (defspecialform (foreach (array-expr binding) &rest body)
    (if (consp binding)
        (fmt "~@<foreach (~W as ~W => ~W)~/php::ctl-body/~:>"
  	   array-expr (first binding) (second binding) body)
        (fmt "~@<foreach (~W as ~W)~/php::ctl-body/~:>"
  	   array-expr binding body)))
  
  (defspecialform (progn &rest body)
    (if *expect-statement*
  
negative.code:   (write-string "}" stream))
  
  (defspecialform (while cond &rest body)
    (pprint-logical-block (stream nil)
      (fmt "while (~W)" cond)
      (ctl-body stream body)))
  
  (defspecialform (for (&optional init cond step) &rest body)
    (let ((*expect-statement* nil))
      (pprint-logical-block (stream nil)
        (fmt "<for (~<~W; ~:_~W; ~:_~W~:>)~/php::ctl-body/"
  	   (list init cond step) body))))
  
  (defspecialform (cond &rest conditions)
    (flet ((clause (c &key initial else)
  