anchor.diff:      ;;(format t "~&* MODES : ~A" (alexandria:hash-table-keys (info "VSR" nivo-0 )))
       t))
   
  -(Defun arte-get (nmr)
  +(defun arte-nimm (nmr)
     (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
            (url (alexandria:ensure-gethash "url"
                                            (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
  
positive.code: ;; (arte) dvnmk 2015
  ;; heap exhausted faulty
  ;; (defun wget (url output-name)
  ;;   (with-open-file (my-stream (concatenate 'string output-name ".mp4")
  ;;                              :direction :output
  
negative.code:                                  "-" kurz-datum))
           (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
           (wget-cmd (concatenate 'string
                                  "wget -c " url-simple-string
                                  " -O " file-name ".mp4"
                                  ;;" --progress=dot:giga "
                                  " --no-verbose "
                                  " -o " file-name ".log"
                                  " --tries=4")))
      (run-program "/bin/sh"
                   (list "-c" wget-cmd)
                   :wait nil
                   :output *standard-output*)))
  
  
  (defun arte-guck (nmr)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url"
                                           (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
                                                                            (info "VSR" nivo-0))))
           ;; (kurz-datum (subseq (alexandria:ensure-gethash "VS5" (info "VST" nivo-0))
           ;;                     0 4))
           ;; (file-name (concatenate 'string
           ;;                         (apo2bar (blanko2underbar (info "VTI" nivo-0)))
           ;;                         "-" kurz-datum))
           (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
           (cmd (concatenate 'string
                             "mplayer -really-quiet -cache 10240 "
                             url-simple-string
                             ;;" --progress=dot:giga "
                             ;;" --no-verbose "
                             ;;" -o " file-name ".log"
                             ;;" --tries=4"
                             ;;" -O - " " | " " mplayer -really-quiet -cache 10240 - "
                             )))
      (run-program "/bin/sh"
                   (list "-c" cmd)
                   :wait nil
                   :output *standard-output*)))
  
  