anchor.diff:  			     (*outer-end* 'logical-block))
   			 (compile-format (car chunks)
   					 (directive-start (cadr chunks)))))))))))))
  - 
   (defun check-block-abbreviation (xp args circle-check?)
     (cond ((not (listp args)) (write+ args xp) T)
  
positive.code: 	    (loop (print-clause xp)
  		  (write-char #\space xp)
  		  (pprint-newline :linear xp)))))))
  
  ;Backquote is a big problem we MUST do all this reconsing of structure in
  ;order to get a list that will trigger the right formatting functions to
  
negative.code:     (attempt-to-output stream T T)
      (clear-output (base-stream stream)))
    nil)
  
  ;note we are assuming that if a structure is defined using xp::defstruct,
  ;then its print-function (if any) will be defined using xp::print etc.
  