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: ;#!/usr/local/bin/sbcl --noinform 
  
  (ql:quickload "yason")
  (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  
negative.code:                      (concatenate 'string
                                    (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                    "-" kurz-datum ".mp4")))
           (raw-cmd           (concatenate 'string  "-c " url " -O " file-name))
           (baz (format nil "~A" url)))
      
      ;;    (format t "~& ~A" url)
  ;;    (format t "~& =>")
  ;;    (format t "~& ~A" file-name)
      (format t "~& ~A" raw-cmd) ;base-string 2 simple-base-string!
      (run-program "wget"
                   (list "-c" baz "-O" file-name)
                   :wait nil
                   :output *standard-output*))
      ))
  
  (defmacro arte-info-m (nmr6-nmr3) 
  