From fb0fe50cc3149bcb5292caed5c5592c12433efef Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Wed, 29 Aug 2012 12:24:08 -0400 Subject: [PATCH] Remove unused LET variables in COMPILE-BLOG. --- src/coleslaw.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 01968f6..ae00f72 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -28,11 +28,10 @@ If RAW is non-nil, write the content without wrapping it in the base template." (cl-fad:delete-directory-and-files staging)) (ensure-directories-exist staging) (with-current-directory staging - (let ((css-dir (app-path "themes/~a/css" (theme *config*))) - (static-dir (merge-pathnames "static" (repo *config*)))) - (dolist (dir (list css-dir static-dir)) - (when (probe-file dir) - (run-program "cp -R ~a ." dir)))) + (dolist (dir (list (app-path "themes/~a/css" (theme *config*)) + (merge-pathnames "static" (repo *config*)))) + (when (probe-file dir) + (run-program "cp -R ~a ." dir))) (render-posts) (render-indices) (render-feed)))