anchor.diff:      (format t "~& ~A" wget-cmd)
       (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil)
       ))
  +
  +
  +(defmacro arte-info-m (nmr6-nmr3) 
  +  `(let ((nmr  (symbol-name ',nmr6-nmr3)))
  +     (arte-info nmr)))
  +
  +(defun arte-get-m (nmr6-nmr3)
  +  `(let ((nmr (symbol-name ',nmr6-nmr3)))
  +     (arte-get nmr)))
   
   ;; heap exhausted faulty
   ;; (defun wget (url output-name)
  
positive.code:   #+SBCL (sb-unix:posix-getcwd)
    #+CCL (current-directory))
  
  (cwd "arte-info")
  
  ;;(load "asciify.lisp")
  
  
negative.code:   (alexandria:ensure-gethash key tbl))
  
  (defun arte-info (nmr)
    (let ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr))))
      (format t "~&* TITEL : ~S" (info "VTI" nivo-0))
      (format t "~&* AIRED : ~S" (info "VDA" nivo-0))
      (format t "~&* BIS   : ~S" (info "VRU" nivo-0))
  