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