anchor.diff:  (house:define-handler (n :content-type "text/html") ((n :string))
     (progn
       (arte-nimm  n)
  -    (cl-who:with-html-output-to-string (*standard-output* nil :prologue t :indent t)
  +    (cl-who:with-html-output-to-string (*standard-output* nil
  +							  :prologue t
  +							  :indent t)
         (:html
          (:head
           (:title (format t "(ARTE-NIMM ~A)" n)))
  
positive.code: (defvar *speicher-dir* #P"~/arte7/")
  
  (defparameter *tmp* nil)
  (defparameter *prozess* '())
  
  (defun cd (&optional dir)
    "Change directory and set default pathname"
  
negative.code:   (let ((foo (getf (nth n *prozess*) :proz))
          (titl (getf (nth n *prozess*) :titl))
          (id (getf (nth n *prozess*) :id)))
      (format t "~&~2,D ~S ~% ~A ~A ~A ~%"
              n titl id (ccl:external-process-id foo) (ccl:external-process-status foo))))
  
  (defun check ()
  