anchor.diff:                        "_PLUS7-D/ALL/ALL.json"))
            (vec (flexi-streams:octets-to-string (drakma:http-request url))))
       (yason:parse vec) ))
  -
   
   (defun blanko2underbar (string)
     (cl-ppcre:regex-replace-all " " string "_"))
  
positive.code: ;;       (loop for i across content do
  ;;            (write-byte i my-stream)))))
  
  ;; (defun arte (nmr)
  ;;   (let ((res (arte-info nmr)))
  ;;     (wget (car res) (cadr res))))
  
  ;; ** DONE filename zv datum.
  ;; ** TODO fur shell / clisp, sbcl
  ;; ** TODO Unicode suppport als file-name
  (defun ASCIIFY (x)
    "bypass"
    x)
  (cwd #P"~/arte7")
  
  
negative.code: (ql:quickload "yason")
  (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  