anchor.diff:      ;;    (null archive-member)
       ;;    (error "you must specify a member to extract from the archive"))
       
  -    (uiop:ensure-all-directories-exist (list destination-pathname))
  +    (break) (uiop:ensure-all-directories-exist (list destination-pathname))
       
       (make-instance 'remote-file
   		   :URI uri
  
positive.code: 	 (json-types  (loop for n in json-names collect (%lisp-to-df-type n json-obj))))
      (mapcar #'list json-names json-types)))
  
  (defun %process-json (json)
    " "
    
    (loop for obj in json 
       until (null line)
       collect (some #'identity
  		   (loop 
  		      for field in  obj do
  			 
  			(vector-push-extend (cdr field ) (nth index columns))
  			
  
negative.code: (defpackage :lispydata/fetch
    (:use #:cl
  	#:org.mapcar.ftp.client
  	#:data-format-validation
  	#:cl-data-frame)
    (:export #:fetch
  	   #:generate-csv-spec
  	   #:*lispydata-home*))
  