chiark / gitweb /
frontend.lisp: Whitespace fixing.
authorMark Wooding <mdw@distorted.org.uk>
Tue, 6 Sep 2011 11:44:19 +0000 (12:44 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 6 Sep 2011 11:44:19 +0000 (12:44 +0100)
frontend.lisp

index 7801a8a..9d62d29 100644 (file)
@@ -34,13 +34,13 @@ (defvar opt-format :bind
   "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-pathname :directory 
+              (make-pathname :directory
                              (append (or (pathname-directory path)
                                          (list :relative))
                                      (list (pathname-name path)))