anchor.diff:  
   (defun arte-nimm (nmr)
     (arte-info nmr)
  -  (let ((cmd (format nil "wget -c ~A -O ~A.mp4 --no-verbose -a ~a.txt --tries=4"
  -                     (getf *tmp* :url) (getf *tmp* :zum) (getf *tmp* :zum))))
  -    (run-program "/bin/sh" (list "-c" cmd)
  -                 :wait nil
  -                 :output *standard-output*)))
  +  (let* ((cmd (format nil "wget -c ~A -O ~A.mp4 --no-verbose -a ~a.txt --tries=4"
  +                     (getf *tmp* :file)
  +                     (getf *tmp* :titl) (getf *tmp* :titl)))
  +        (proz (run-program "/bin/sh" (list "-c" cmd)
  +                              :wait nil
  +                              :output *standard-output*
  +                              ;;:status-hook (format t "STATUS CHANGED")
  +                              ))
  +         (res (list :titl (getf *tmp* :titl)
  +                    :id (external-process-id proz))))
  +    (push res *titl-id*)
  +    (push proz *prozess*)))
  +
  +(defun prozess-reset ()
  +  ":exited :signaled weg func"
  +  (setf *prozess* nil)
  +  (setf *titl-id* nil))
  +
  +(defun proz-aus-id (id)
  +  (car (remove-if-not #'(lambda (x) (equal id (external-process-id x)))
  +                      *prozess*)))
  +
  +(defun kill-nth (n)
  +  "sigint 2 sigkill 9"
  +  (signal-external-process (nth n *prozess*) 2
  +                           :error-if-exited nil))
  +
  +(defun kill-id (n)
  +  "kill m/ id"
  +  (signal-external-process (proz-aus-id n) 2
  +                           :error-if-exited nil))
  +
  +(defun prozess ()
  +  (format t "~{~A ~}" *titl-id*)
  +  (format t "~{~A ~}~%" (mapcar #'external-process-status *prozess*))
  +)
   
   (defun arte-guck (nmr)
     (arte-info nmr)
     (let ( (cmd (format nil "mplayer -really-quiet -cache 10240 ~A"
  -                      (getf *tmp* :url))))
  +                      (getf *tmp* :file))))
       (run-program "/bin/sh" (list "-c" cmd)
                    :wait nil
                    :output *standard-output*)))
  
positive.code:   "arte-guck quicktime player ver."
    (arte-info nmr)
    (let ((cmd (format nil "open -a Quicktime\\ Player ~A"
                       (getf *tmp* :url))))
      (run-program "/bin/sh" (list "-c" cmd)
                   :wait nil
                   :output *standard-output*)))
  
negative.code: (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7")
  
  (defparameter *tmp* nil)
  (defparameter *prozess* '())
  (defparameter *titl-id* '())
  
  (defun cd (&optional dir)
    "Change directory and set default pathname"
  