From da455301f2c3e2cc7e8bd9154bfb714828be0f11 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 6 Sep 2011 12:44:19 +0100 Subject: [PATCH] frontend.lisp: Whitespace fixing. --- frontend.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/frontend.lisp b/frontend.lisp index 7801a8a..9d62d29 100644 --- a/frontend.lisp +++ b/frontend.lisp @@ -34,13 +34,13 @@ "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))) -- 2.11.0