anchor.diff:      (%format nstr (length txt) 0 txt args)))
   
   (defun error (&rest args)
  -  (%error (apply #'format t args)))
  +  (%error (apply #'format nil args)))
   
   (defun warn (&rest args)
     (apply #'format t (string-concat "WARNING: " (first args)) (cdr args)))
  
positive.code: 		 (progn
  		   (if (consp (car args))
                 (print (car args)) ; XXX
                 (princ (car args) str))
             (%format str l (1+ i) txt (cdr args)))
         (progn
  		 (princ #\~ str)
  
negative.code: ;;;; TRE environment
  ;;;; Copyright (c) 2006-2008 Sven Klose <pixel@copei.de>
  ;;;;
  ;;;; FORMAT function
  
  