anchor.diff:  ;; (arte) dvnmk 2015
  -;; heap exhausted faulty
   
  +;; heap exhausted faulty wget func
  +;;
   ;; (defun wget (url output-name)
   ;;   (with-open-file (my-stream (concatenate 'string output-name ".mp4")
   ;;                              :direction :output
  
positive.code: (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7")
  
  (defun nmr2json (nmr)
    (let* ((json-url 
  
negative.code: ;;     (let ((content (drakma:http-request url)))
  ;;       (loop for i across content do
  ;;            (write-byte i my-stream)))))
  
  ;; ** DONE filename zv datum.
  ;; ** DONE fur shell / ccl only 
  ;; ** DONE Unicode suppport als file-name y alle.
  