From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 6 Sep 2011 11:44:19 +0000 (+0100)
Subject: frontend.lisp: Whitespace fixing.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/da455301f2c3e2cc7e8bd9154bfb714828be0f11?ds=sidebyside

frontend.lisp: Whitespace fixing.
---

diff --git a/frontend.lisp b/frontend.lisp
index 7801a8a..9d62d29 100644
--- 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)
-  
+
   ;; 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)))