frontend.lisp: Whitespace fixing.

[zone] / frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 7801a8a17b64130999abec5a37145e8f963e84c4..9d62d299368b1e0e0c6f8c4153053063eadf8cc8 100644 (file)
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -34,13 +34,13 @@ (defvar opt-format :bind
   "Which format to use on output.")
 
 (defun directory-exists-p (name)
   "Which format to use on output.")
 
 (defun directory-exists-p (name)

-  
+

   ;; Make a pathname for NAME which has the right form for a directory.
   (let ((dirpath
         (let ((path (pathname name)))
           (if (null (pathname-name path))
               path
   ;; Make a pathname for NAME which has the right form for a directory.
   (let ((dirpath
         (let ((path (pathname name)))
           (if (null (pathname-name path))
               path

-              (make-pathname :directory 
+              (make-pathname :directory

                              (append (or (pathname-directory path)
                                          (list :relative))
                                      (list (pathname-name path)))
                              (append (or (pathname-directory path)
                                          (list :relative))
                                      (list (pathname-name path)))