anchor.diff:                 (setq dir (truename dir))
                  (setq destination-directory (truename destination-directory)))))
         (check-directories)
  -      (let* ((filename (make-pathname :name "log4cl-setup" :type "el"
  +      (let* ((filename (make-pathname :name "log4slime-setup" :type "el"
                                         :defaults destination-directory))
                
                (dir-string (homepath dir))
  
positive.code:              (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 "------------------------------------------------------~%"))
             (print-generate-file-message (filename)
               (format t "~%~
  
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)) 
  