anchor.diff: -;;;; nix operating system project
  -;;;; list processor environment
  -;;;; Copyright (C) 2006-2008 Sven Klose <pixel@copei.de>
  +;;;; TRE environment
  +;;;; Copyright (c) 2006-2008 Sven Klose <pixel@copei.de>
   ;;;;
   ;;;; FORMAT function
   
  
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:     (%format nstr (length txt) 0 txt args)))
  
  (defun error (&rest args)
    (%error (apply #'format nil args)))
  
  (defun warn (&rest args)
    (apply #'format t (string-concat "WARNING: " (first args)) (cdr args)))
  