anchor.diff:  (ql:quickload "drakma")
   (setf drakma:*header-stream* nil)
   
  -
  -(defmacro no-quote (etwas) 
  -  `(symbol-name ',etwas))
   
   (defun nmr2json (nmr)
     (let* ((url 
  
positive.code:     (format t "~& ~A" wget-cmd)
      (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil)
      ))
  
  ;; heap exhausted faulty
  ;; (defun wget (url output-name)
  
negative.code:   #+SBCL (sb-unix:posix-getcwd)
    #+CCL (current-directory))
  
  (cwd "/Users/dvnmk/Desktop")
  
  ;;(load "asciify.lisp")
  
  