anchor.diff:                               0 4))
            (file-name (concatenate 'string
                                    (normalisieren (info "VTI" nivo-0))
  -                                 "+" kurz-datum
  -                                 "~" (info "genre" nivo-0)))
  +                                 "-" kurz-datum
  +                                 "-" (info "genre" nivo-0)))
            (res (list :titl file-name
                       :info  (info "infoProg" nivo-0)
                       :kurz  (info "V7T" nivo-0)
  
positive.code:     (yason:parse vec)))
  
  (defun normalisieren (string)
    (flet ((slash2.s (x)
             (cl-ppcre:regex-replace-all "/" x ".s"))
           (apo22bar (x)
             (cl-ppcre:regex-replace-all "’" x "-"))
           (apo2bar (x)
             (cl-ppcre:regex-replace-all "'" x "-"))
           (blanko2underbar (x)
             (cl-ppcre:regex-replace-all " " x "_")))
      (slash2.s (apo22bar (apo2bar  (blanko2underbar string))))))
  
  (defun info (key tbl)
    (alexandria:ensure-gethash key tbl))
  
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)
    (arte-info nmr)
    (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*
  