anchor.diff:                                   (normalisieren (info "VTI" nivo-0))
                                    "+" kurz-datum
                                    "~" (info "genre" nivo-0)))
  -         (res (list :zum file-name
  +         (res (list :titl file-name
                       :info  (info "infoProg" nivo-0)
                       :kurz  (info "V7T" nivo-0)
  -                    :bes   (info "VDE" nivo-0)
  +                    :lang   (info "VDE" nivo-0)
                       ;;:mode  (alexandria:hash-table-keys (info "VSR" nivo-0))
  -                    :url   url)))
  +                    :file   url)))
       (progn
         (setf *tmp* res)
         (format t "~{*~A ~8T~A~%~}" res))
  
positive.code: (defmacro i (nmr-raw) 
    `(let ((nmr  (symbol-name ',nmr-raw)))
       (arte-info nmr)))
  
  (defmacro n (nmr-raw)
    `(let ((nmr (symbol-name ',nmr-raw)))
       (arte-nimm nmr)))
  
  (defmacro g (nmr-raw)
    `(let ((nmr (symbol-name ',nmr-raw)))
       (arte-guck nmr)))
  
  (defmacro q (nmr-raw)
    `(let ((nmr (symbol-name ',nmr-raw)))
       (arte-quck nmr)))
  
  (cd *speicher-dir*)
  
  (defun kill ()
    (run-program "/bin/sh" '("-c" "killall wget")
                 :output *standard-output*)
    (run-program "bin/sh" '("-c" "killall mplayer")
                 :output *standard-output*))
  
  
  ;; ;;TODO
  
negative.code:     (setq dir (parse-namestring dir)))
        dir))))
  
  (cd *speicher-dir*)
  
  (defun nmr2json (nmr)
    (let* ((json-url (concatenate 'string
                                  "http://arte.tv/papi/tvguide/videos/stream/player/D/"
  