anchor.diff:  ;; ** TODO fur shell / clisp, sbcl
   ;; ** TODO Unicode suppport als file-name
   
  +#+:SBCL
  +(defun cwd (dir)
  +  (sb-posix:chdir dir))
   
  -(defmacro no-quote (string)
  -  `(symbol-name ',string))
  +(defun getcwd ()
  +  #+SBCL (sb-unix:posix-getcwd)
  +  #+CCL (current-directory))
  +
  +;;(load "asciify.lisp")
  +
  
positive.code: (ql:quickload "yason")
  (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  
  (defun nmr2json (nmr)
    (let* ((url 
  
negative.code: ;; kurz datum
  ;; (ALEXANDRIA:ensure-gethash "VS5" (VALUE-AUS-JSON foojson "VST"))
  
  (defun info (key tbl)
    (alexandria:ensure-gethash key tbl))
  
  (defun arte-info (nmr)
    (let ((nivo (alexandria:ensure-gethash "videoJsonPlayer"(nmr2json nmr))))
      (format t "~&* TITEL : ~S" (info "VTI" nivo))
      (format t "~&* AIRED : ~S" (info "VDA" nivo))
      (format t "~&* BIS   : ~S" (info "VRU" nivo))
      (format t "~&* WAS   : ~S" (info "V7T" nivo))
      (format t "~&* INFO  : ~S" (info "infoProg" nivo))
      (format t "~&* BES   : ~S" (info "VDE" nivo))
      (format t "~&* MODES : ~S" (alexandria:hash-table-keys (info "VSR" nivo )))))
  
  (defun arte-get (nmr)
    (let* ((nivo (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url" (alexandria:ensure-gethash "HTTP_MP4_SQ_1" (info "VSR" nivo))))
           (kurz-datum (alexandria:ensure-gethash "VS5" (info "VST" nivo)))
           (file-name (ASCIIFY
                       (concatenate 'string
                                    (apo2bar (blanko2underbar (info "VTI" nivo)))
                                    kurz-datum
                                    ".mp4")))
           (wget-cmd (list "-c" url "-O" file-name)))
      (format t "~& ~A" url)
      (format t "~& =>")
      (format t "~& ~A" file-name)
      (format t "~& ~A" wget-cmd)
      ;; (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil)
      ))
  
  ;; heap exhausted faulty
  ;; (defun wget (url output-name)
  