anchor.diff:  
   (defun up-print (xp list)
     (print-fancy-fn-call xp list '(0 3 1 1)))
  - 
   ;here is some simple stuff for printing LOOP
   
  
positive.code:   (err 18 "Unmatched closing directive" (1- end)))
  (def-format-handler #\} (start end) (declare (ignore start))
    (err 19 "Unmatched closing directive" (1- end)))
  
  (def-format-handler #\{ (start end)
    (multiple-value-bind (colon atsign params)
  
negative.code: 	  (push `(pprint-newline+ :unconditional xp) result)
  	  (setq start (1+ sub-end)))
      (if (null (cdr result)) (car result) (cons 'progn (nreverse result)))))
  
  ;This is available for putting on #".
  
  