anchor.diff:  	 (generic-files    (append '("Preface.el"
   				     "files.el" 
   				     "compile.el"
  +				     "hideshow.el"
   				     "specware_logo.xpm")
   				   (with-open-file (s (merge-pathnames source-dir "files.el"))
   				     (let ((form (read s)))
  
positive.code: 	 (franz-files	   '("load.el"))
  	 ;;
  	 (openmcl-files    '("load-openmcl.el"))
  	 ;;
  	 (ignored-dirs     '("CVS"))
  	 (ignored-files    '(".cvsignore"
  
negative.code: 						     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"
  