anchor.diff:  						     names))
   					 (error "files.el does seem to contain the form ~A"
   						"(defconst sw:specware-emacs-files '(...))"))))))
  -	 (generic-dirs     '("x-symbol")) 
   	 ;;
   	 (ilisp-dirs       '("ilisp"))
   	 (ilisp-files	   '("load-ilisp.el"
  
positive.code: 		      (merge-pathnames franz-dir  file)))
  
      ;; OpenMCL
  
      (dolist (file openmcl-files)
        (copy-dist-file (merge-pathnames source-dir  file)
  
negative.code:       
      ;; Generic
  
      (dolist (dir generic-dirs)
        (copy-dist-directory (extend-directory source-dir  dir)
  			   (extend-directory generic-dir dir)))
  
      (dolist (file generic-files)
        (copy-dist-file (merge-pathnames source-dir  file)
  		      (merge-pathnames generic-dir file)))
  
      ;; ILISP
  
      (dolist (dir ilisp-dirs)
        (copy-dist-directory (extend-directory source-dir dir)
  			   (extend-directory ilisp-dir  dir)))
  
      (dolist (file ilisp-files)
        (copy-dist-file (merge-pathnames source-dir file)
  