anchor.diff:    `(let ((nmr  (symbol-name ',nmr-raw)))
        (arte-info nmr)))
   
  -(defmacro n (nmr-raw &optional log-p)
  +(defmacro n (nmr-raw)
     `(let ((nmr (symbol-name ',nmr-raw)))
  -     (arte-nimm nmr ,log-p)))
  +     (arte-nimm nmr)))
   
   (defmacro g (nmr-raw)
     `(let ((nmr (symbol-name ',nmr-raw)))
  
positive.code:       dir))))
  
  (defun nmr2json (nmr)
    (let* ((json-url 
           (concatenate 'string
                        "http://arte.tv/papi/tvguide/videos/stream/player/D/"
                        nmr
                        "_PLUS7-D/ALL/ALL.json"))
           (vec (flexi-streams:octets-to-string (drakma:http-request json-url)
                                                :external-format :utf-8)))
      (yason:parse vec) ))
  
  (defun blanko2underbar (string)
    (cl-ppcre:regex-replace-all " " string "_"))
  
  (defun apo2bar (string)
    (cl-ppcre:regex-replace-all "'" string "-"))
  
  (defun apo22bar (string)
    (cl-ppcre:regex-replace-all "’" string "-"))
  
  (defun slash2.s (string)
    (cl-ppcre:regex-replace-all "/" string ".s"))
  
  (defun normalisierung (string)
    (slash2.s (apo22bar (apo2bar  (blanko2underbar string)))))
  
  (defun info (key tbl)
    (alexandria:ensure-gethash key tbl))
  
  (defun arte-info (nmr)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url"
                                           (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
                                                                      (info "VSR" nivo-0))))
           (kurz-datum (subseq (alexandria:ensure-gethash "VS5" (info "VST" nivo-0))
                               0 4))
           (file-name (concatenate 'string
                                   (normalisierung (info "VTI" nivo-0))
                                   "+" kurz-datum
                                   "~" (info "genre" nivo-0)))
           )
      (format t "~&* TITL : ~S" (info "VTI" nivo-0))
      (format t "~&* KURZ : ~S" (info "V7T" nivo-0))
      (format t "~&* INFO : ~A ~A" (info "genre" nivo-0) (info "infoProg" nivo-0))
      (format t "~&* AIRD : ~A - ~A" (info "VDA" nivo-0)(info "VRU" nivo-0))
      (format t "~&* BESS : ~A" (info "VDE" nivo-0))
      (format t "~&* FILE : ~%  wget -c ~A -O ~A.mp4 ~%" url file-name)
      ;;(format t "~&* MODES : ~A" (alexandria:hash-table-keys (info "VSR" nivo-0 )))
      t))
  
  (defun arte-nimm (nmr &optional log-p)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url"
                                           (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
                                                                            (info "VSR" nivo-0))))
           (kurz-datum (subseq (alexandria:ensure-gethash "VS5" (info "VST" nivo-0))
                               0 4))
           (file-name (concatenate 'string
                                   (normalisierung (info "VTI" nivo-0))
                                   "+" kurz-datum
                                   "~" (info "genre" nivo-0)))
           (log-name (cond ((null log-p)(concatenate 'string
                                                     (normalisierung (info "VTI" nivo-0))
                                                      "+" kurz-datum
                                                      "=" (normalisierung (info "V7T" nivo-0))))
                           ((zerop log-p) file-name)
                           (t 'ERR)))
           (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
           (wget-cmd (concatenate 'string
                                  "wget -c " url-simple-string
                                  " -O " file-name ".mp4"
                                  ;;" --progress=dot:giga "
                                  " --no-verbose "
                                  " -o " log-name ".txt"
                                  " --tries=4")))
      (run-program "/bin/sh"
                   (list "-c" wget-cmd)
                   :wait nil
                   :output *standard-output*)))
  
  (defun arte-guck (nmr)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url"
                                           (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
                                                                            (info "VSR" nivo-0))))
           (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
           (cmd (concatenate 'string
                             "mplayer -really-quiet -cache 10240 "
                             url-simple-string
                             )))
      (run-program "/bin/sh"
                   (list "-c" cmd)
                   :wait nil
                   :output *standard-output*)))
  
  (defun arte-quck (nmr)
    "arte-guck quicktime player ver."
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
           (url (alexandria:ensure-gethash "url"
                                           (alexandria:ensure-gethash "HTTP_MP4_SQ_1"
                                                                            (info "VSR" nivo-0))))
           (url-simple-string (format nil "~A" url))  ;base-string 2 simple-base-string!
           (cmd (concatenate 'string
                             "open -a Quicktime\\ Player"
                             " "
                             url-simple-string
                             )))
      (run-program "/bin/sh"
                   (list "-c" cmd)
                   :wait nil
                   :output *standard-output*)))
  
  
negative.code:                :output *standard-output*))
  
  
  ;; ;;TODO
  ;; (format nil "~4,'0d - ~2,'0d - ~2,'0d" 2005 6 10)
  ;; "2005 - 06 - 10"
  
  ;; ;; prompt
  ;; (defun prompt-read (prompt)
  ;;   (format *query-io* "~A: " prompt)
  ;;   (force-output *query-io*)
  ;;   (read-line *query-io*))
  
  
  ;; (defun add-cds ()
  ;;   (loop (add-record (prompt-for-cd))
  ;;      (if (not (y-or-n-p "Another? [y/n]: "))
  ;;          (return))))
  
  
  
  ;; (defun save-db (filename)
  ;;   (with-open-file (out filename
  ;;                        :direction :output
  ;;                        :if-exists :supersede)
  ;;     (with-standard-io-syntax
  ;;       (print *db* out))))
  