Commit 45ec32523412e08bbf3fb1c5b03168cf2a0a7fbb
2019-01-24T13:51:52
ws
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
diff --git a/template.lisp b/template.lisp
index 9103bad..c793cd1 100644
--- a/template.lisp
+++ b/template.lisp
@@ -167,15 +167,18 @@
(let ((g (assoc x vars)))
(if g
(cdr g)
- (cdar (push (cons x (gensym (symbol-name x)))
+ (cdar (push (cons x (gensym
+ (symbol-name x)))
vars))))
x))))
(let ((body (walk template)))
`(lambda ()
,@(if vars
`((let ,(mapcar (lambda (var)
- `(,(cdr var) (when (boundp ',(car var))
- (symbol-value ',(car var)))))
+ `(,(cdr var) (when (boundp
+ ',(car var))
+ (symbol-value
+ ',(car var)))))
vars)
,@body))
body))))))
@@ -202,7 +205,8 @@
(if (and found
(= (car found) #2=(file-write-date path)))
(cdr found)
- (let ((template (compile-template (read-template-from-file path))))
+ (let ((template (compile-template (read-template-from-file
+ path))))
(format t "~&;; Compiling template ~S~%" path)
(if found
(setf (car found) #2#
@@ -215,7 +219,8 @@
(defun print-template (template)
(funcall (etypecase template
(pathname (compile-template-from-file template))
- (string (compile-template (read-template-from-string template))))))
+ (string (compile-template (read-template-from-string
+ template))))))
(define-compiler-macro print-template (&whole form template)
(if (stringp template)