anchor.diff:  		      (merge-pathnames franz-dir  file)))
   
       ;; OpenMCL
  +
  +    (dolist (dir openmcl-dirs)
  +      (copy-dist-directory (extend-directory source-dir  dir)
  +			   (extend-directory openmcl-dir dir)))
   
       (dolist (file openmcl-files)
         (copy-dist-file (merge-pathnames source-dir  file)
  
positive.code: 	 (component-dir    (ensure-subdirs-exist release-dir "Components" "Emacs_Lib"))
  	 ;;
  	 (generic-dir      (ensure-subdir-exists component-dir "Generic"))
  	 (x-dir            (ensure-subdir-exists component-dir "x-symbol")) ; also 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-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)))
  				       (if (and (eq (first  form) 'user::defconst)
  
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)
  