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