anchor.diff:    `(let ((nmr  (symbol-name ',nmr6-nmr3)))
        (arte-info nmr)))
   
  +(defmacro n (nmr6-nmr3)
  +  `(let ((nmr (symbol-name ',nmr6-nmr3)))
  +     (arte-nimm nmr)))
  +
   (defmacro g (nmr6-nmr3)
     `(let ((nmr (symbol-name ',nmr6-nmr3)))
  -     (arte-get nmr)))
  +     (arte-guck nmr)))
   
  -(cwd *speicher-dir*)
  +(defun cd (&optional dir)
  +  "Change directory and set default pathname"
  +  (cond
  +   ((not (null dir))
  +    (when (and (typep dir 'logical-pathname)
  +           (translate-logical-pathname dir))
  +      (setq dir (translate-logical-pathname dir)))
  +    (when (stringp dir)
  +      (setq dir (parse-namestring dir)))
  +    #+allegro (excl:chdir dir)
  +    #+clisp (#+lisp=cl ext:cd #-lisp=cl lisp:cd dir)
  +    #+(or cmu scl) (setf (ext:default-directory) dir)
  +    #+cormanlisp (ccl:set-current-directory dir)
  +    #+(and mcl (not openmcl)) (ccl:set-mac-default-directory dir)
  +    #+openmcl (ccl:cwd dir)
  +    #+gcl (si:chdir dir)
  +    #+lispworks (hcl:change-directory dir)
  +    #+sbcl (sb-posix:chdir dir)
  +    (setq cl:*default-pathname-defaults* dir))
  +   (t
  +    (let ((dir
  +       #+allegro (excl:current-directory)
  +       #+clisp (#+lisp=cl ext:default-directory #-lisp=cl lisp:default-directory)
  +       #+(or cmu scl) (ext:default-directory)
  +       #+sbcl (sb-unix:posix-getcwd/)
  +       #+cormanlisp (ccl:get-current-directory)
  +       #+lispworks (hcl:get-working-directory)
  +       #+mcl (ccl:mac-default-directory)
  +       #-(or allegro clisp cmu scl cormanlisp mcl sbcl lispworks) (truename ".")))
  +      (when (stringp dir)
  +    (setq dir (parse-namestring dir)))
  +      dir))))
  +
  +(cd *speicher-dir*)
   
   (defun kill ()
  -  (run-program "killall" '("wget")
  +  (run-program "/bin/sh" '("-c" "killall wget")
  +               :output *standard-output*)
  +  (run-program "bin/sh" '("-c" "killall mplayer")
                  :output *standard-output*))
  +
  +
  
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*)))
  
  