anchor.diff: -;#!/usr/local/bin/sbcl --noinform 
  -
   (ql:quickload "yason")
   (ql:quickload "drakma")
   (setf drakma:*header-stream* nil)
  
positive.code:                      (concatenate 'string
                                    (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                    "-" kurz-datum ".mp4")))
           (raw-cmd  (concatenate 'string  "wget --progress=dot:mega -c " url " -O " file-name))
           )
      (format t "~& ~A" url)
      (format t "~& =>")
      (format t "~& ~A" file-name)
      (format t "~& ~A" raw-cmd)
     (run-program "/usr/local/bin/wget" raw-cmd :wait nil)
      ))
  
  (defmacro arte-info-m (nmr6-nmr3) 
  
negative.code: ;;       (loop for i across content do
  ;;            (write-byte i my-stream)))))
  
  ;; ** DONE filename zv datum.
  ;; ** TODO fur shell / clisp, sbcl
  ;; ** TODO Unicode suppport als file-name
  
  (defun ASCIIFY (x)
    "bypass"
    x)
  (cwd #P"~/arte7")
  