anchor.diff:    (alexandria:ensure-gethash key tbl))
   
   (defun arte-info (nmr)
  -  (let ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer"(nmr2json 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))
  
positive.code:     (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)
  
negative.code:   #+SBCL (sb-unix:posix-getcwd)
    #+CCL (current-directory))
  
  (cwd "/Users/dvnmk/Desktop")
  
  ;;(load "asciify.lisp")
  
  