anchor.diff:                   (list "-c" cmd)
                    :wait nil
                    :output *standard-output*)))
  -
   
   (defun arte-quck (nmr)
     "arte-guck quicktime player ver."
  
positive.code: 
  (defmacro q (nmr-raw)
    `(let ((nmr (symbol-name ',nmr-raw)))
       (arte-guck nmr)))
  
  (cd *speicher-dir*)
  
  
negative.code:                                 " -O " file-name ".mp4"
                                  ;;" --progress=dot:giga "
                                  " --no-verbose "
                                  " -o " log-name ".txt"
                                  " --tries=4")))
      (run-program "/bin/sh"
                   (list "-c" wget-cmd)
  