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: 	 (franz-dirs       '("xeli"))
  	 (franz-files	   '("load.el"))
  	 ;;
  	 (openmcl-files    '("load-openmcl.el"))
  	 (openmcl-dirs     '())
  	 ;;
  	 (ignored-dirs     '("CVS"))
  	 (ignored-files    '(".cvsignore"
  			     "files.elc" 
  			     "compile.elc"
  			     "load-ilisp.elc"
  			     "compile-misc-ilisp-files.elc"
  			     "compile-misc-ilisp-files-for-acl.elc"
  			     "load.elc"
  			     "load-openmcl.elc"
  			     "hideshow.elc"))
  	 ;;
  	 (all-files        (append generic-files ilisp-files franz-files openmcl-files ignored-files))
  	 (all-dirs         (append generic-dirs  ilisp-dirs  franz-dirs  openmcl-dirs  ignored-dirs))
  
negative.code: 	 (component-dir    (ensure-subdirs-exist release-dir "Components" "Emacs_Lib"))
  	 ;;
  	 (generic-dir      (ensure-subdir-exists component-dir "Generic"))
  	 (ilisp-dir        (ensure-subdir-exists component-dir "Ilisp"))
  	 (franz-dir        (ensure-subdir-exists component-dir "Franz"))
  	 (openmcl-dir      (ensure-subdir-exists component-dir "OpenMCL"))
  	 ;;
  	 (generic-dirs     '("x-symbol" "slime-2.0")) 
  	 (slime-files      '("load-slime.el" 
  			     "load-slime.lisp" 
  			     "sw-slime.el" 
  			     "sw-slime.elc" 
  			     ))
  	 (x-files          '(;; "x-symbol-specware.el" is in files.el
  			     ))
  	 (generic-files    (append '("Preface.el"
  				     "files.el" 
  				     "compile.el"
  				     "hideshow.el"
  				     "hideshow.elc"
  				     "specware_logo.xpm")
  				   slime-files
  				   x-files
  				   (with-open-file (s (merge-pathnames source-dir "files.el"))
  				     (let ((form (read s)))
  				       (if (and (eq (first  form) 'user::defconst)
  