anchor.diff:                                    :direction :output
                                     :if-exists :supersede
                                     :if-does-not-exist :create)
  -               (format out ";; load log4cl support~%~%")
  +               (format out ";; load Log4slime support~%~%")
                  (format out "(add-to-list 'load-path ~S)~%"
                          (homepath dir))
  -               (format out "(require 'log4cl)~%"))
  +               (format out "(require 'log4slime)~%"))
                (format t "Wrote ~A~%" (homepath filename)))
              (check-directories ()
                (let ((ok 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:              (format t "~%Add the following two statements to your ~~/.emacs file~%") 
               (format t "------------------------------------------------------~%") 
               (format t "(load ~S)~%" (homepath filename))
               (format t "(global-log4slime-mode 1)~%")
               (format t "------------------------------------------------------~%"))
             (print-generate-file-message (filename)
               (format t "~%~
  