anchor.diff:  
   (defun arte-bash (nm)
     (let* ((res (arte-info nm))
  -         (cmd (concatenate 'string "wget" " -q " (car res)
  +         (cmd (concatenate 'string "wget" " -c " " -q "(car res)
                              " -O " (concatenate 'string (cadr res)
  -                                               "mp4"))))
  +                                               ".mp4"))))
       (trivial-shell:shell-command cmd)))
   
  +(defun gogo (sendung-nr)
  +  (let* ((info (arte-info sendung-nr))
  +         (url (car info))
  +         (titel (cadr info))
  +         (wget-cmd (list "-c" url "-O" (concatenate 'string titel ".mp4"))))
  +    (run-program "/usr/local/bin/wget" wget-cmd
  +                 :wait nil
  +               ;  :output *standard-output*
  +                 )))
   
  -(arte-info "042374-000")
  +;;(run-program "/bin/ls" () :output *standard-output*)
  +
  +
  +
  
positive.code: (ql:quickload "yason") ;json
  (ql:quickload "drakma") ;curl
  (setf drakma:*header-stream* nil)
  
negative.code: (defun apo2bar (string)
    (cl-ppcre:regex-replace-all "'" string "-"))
  
  (defun wget (url output-name)
    (with-open-file (my-stream (concatenate 'string output-name ".mp4")
                               :direction :output
                               :element-type '(unsigned-byte 8)
  