anchor.diff:                      :kurz  (info "V7T" nivo-0)
                       :lang   (info "VDE" nivo-0)
                       ;;:mode  (alexandria:hash-table-keys (info "VSR" nivo-0))
  -                    :file   url)))
  +                    :file   url
  +                    :id (info "VPI" nivo-0))))
       (progn
         (setf *tmp* res)
  -      (format t "~{*~A ~8T~A~%~}" res))
  +      (format t "~{*~A ~8T~A~%~}" res)
  +      (with-open-file (out (concatenate 'string "~/arte7/" file-name ".txt")
  +                           :direction :output
  +                           :if-exists :supersede)
  +        (format out "~{*~A ~8T~A~%~}" res))
  +      )
       t))
   
   (defun arte-nimm (nmr)
  
positive.code:                               ;;: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)
  
negative.code: (ql:quickload "yason")
  (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7/")
  
  (defparameter *tmp* nil)
  (defparameter *prozess* '())
  
  (defun cd (&optional dir)
    "Change directory and set default pathname"
  