anchor.diff:      (setq dir (parse-namestring dir)))
         dir))))
   
  +(cd *speicher-dir*)
  +
   (defun nmr2json (nmr)
     (let* ((json-url (concatenate 'string
                                   "http://arte.tv/papi/tvguide/videos/stream/player/D/"
  
positive.code: (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7")
  
  (defun cd (&optional dir)
    "Change directory and set default pathname"
  
negative.code:                                  (normalisieren (info "VTI" nivo-0))
                                   "+" kurz-datum
                                   "~" (info "genre" nivo-0)))
           (res (list :titl file-name
                      :info  (info "infoProg" nivo-0)
                      :kurz  (info "V7T" nivo-0)
                      :lang   (info "VDE" nivo-0)
                      ;;:mode  (alexandria:hash-table-keys (info "VSR" nivo-0))
                      :file   url)))
      (progn
        (setf *tmp* res)
        (format t "~{*~A ~8T~A~%~}" res))
  