anchor.diff:                        "http://arte.tv/papi/tvguide/videos/stream/player/D/"
                         nmr
                         "_PLUS7-D/ALL/ALL.json"))
  -         (vec (flexi-streams:octets-to-string (drakma:http-request url))))
  +         (vec (flexi-streams:octets-to-string (drakma:http-request url)
  +                                              :external-format :utf-8)))
       (yason:parse vec) ))
   
   (defun blanko2underbar (string)
  
positive.code:                                   (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                    "-" kurz-datum
                                    ".mp4")))
           (url-baz (format nil "~A" url))  ;base-string 2 simple-base-string!
           (wget-cmd (concatenate 'string
                                  "wget -c " url-baz " -O " file-name
                                  ;;" --progress=dot:giga "
                                  " --no-verbose "
                                  " -o " (concatenate 'string file-name ".log")
  
negative.code:   "bypass"
    x)
  (cwd #P"~/arte7")
  
  (defun kill ()
    (run-program "killall" '("wget")
                 :output *standard-output*))
  