anchor.diff:               (format t "~%Add the following two statements to your ~~/.emacs file~%") 
                (format t "------------------------------------------------------~%") 
                (format t "(load ~S)~%" (homepath filename))
  -             (format t "(global-log4cl-mode 1)~%")
  +             (format t "(global-log4slime-mode 1)~%")
                (format t "------------------------------------------------------~%"))
              (print-generate-file-message (filename)
                (format t "~%~
  
positive.code:                (setq dir (truename dir))
                 (setq destination-directory (truename destination-directory)))))
        (check-directories)
        (let* ((filename (make-pathname :name "log4cl-setup" :type "el"
                                        :defaults destination-directory))
               
               (dir-string (homepath dir))
  
negative.code:                                   :direction :output
                                    :if-exists :supersede
                                    :if-does-not-exist :create)
                 (format out ";; load Log4slime support~%~%")
                 (format out "(add-to-list 'load-path ~S)~%"
                         (homepath dir))
                 (format out "(require 'log4slime)~%"))
               (format t "Wrote ~A~%" (homepath filename)))
             (check-directories ()
               (let ((ok t)) 
  