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: 
  (defun arte-guck (nmr)
    (arte-info nmr)
    (let ( (cmd (format nil "mplayer -really-quiet -cache 10240 ~A"
                        (getf *tmp* :file))))
      (run-program "/bin/sh" (list "-c" cmd)
                   :wait nil
                   :output *standard-output*)))
  
negative.code:     (progn
        (setf *tmp* res)
        (format t "~{*~A ~8T~A~%~}" res)
        (with-open-file (out (format nil "~A~A.txt" *speicher-dir*
  				   (getf *tmp* :titl))
  ;; (concatenate 'string "~/arte7/" file-name ".txt")
                             :direction :output
                             :if-exists :supersede
                             :external-format :unix)
          (format out "~{*~A ~8T~A~%~}" res)))
      t))
  
  (defun arte-nimm (nmr)
  