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:     (progn
        (setf *tmp* 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)
    (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*
  
negative.code: (asdf:load-system "yason")
  (asdf:load-system "drakma")
  (asdf:load-system "house")
  (defvar *app-dir* #P"~/arte")
  (load #P"~/arte/asciify.lisp")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7/")
  
  