anchor.diff:                                    (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                     "-" kurz-datum
                                     ".mp4")))
  -         (url-baz (format nil "~A" url))  ;base-string 2 simple-base-string!
  +         (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
            (wget-cmd (concatenate 'string
  -                                "wget -c " url-baz " -O " file-name
  +                                "wget -c " url-simple-string " -O " file-name
                                   ;;" --progress=dot:giga "
                                   " --no-verbose "
                                   " -o " (concatenate 'string file-name ".log")
  
positive.code:                       "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))))
      (yason:parse vec) ))
  
  (defun blanko2underbar (string)
  
negative.code:   (alexandria:ensure-gethash key tbl))
  
  (defun arte-info (nmr)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr))))
      (format t "~&* TITL : ~S" (info "VTI" nivo-0))
      (format t "~&* KURZ : ~S" (ASCIIFY (info "V7T" nivo-0)))
      (format t "~&* CASE : ~A" (info "caseProgram" nivo-0))
      (format t "~&* INFO : ~A" (info "infoProg" nivo-0))
      (format t "~&* AIRD : ~A - ~A" (info "VDA" nivo-0)(info "VRU" nivo-0))
      (format t "~&* BES. : ~S" (info "VDE" nivo-0))
      ;;(format t "~&* MODES : ~A" (alexandria:hash-table-keys (info "VSR" nivo-0 )))
      ))
  
  (Defun arte-get (nmr)
  