From 1c0a037bacdfaddd23be18cd9a67a7ec784e0e8a Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 21 Aug 2012 17:17:43 -0400 Subject: [PATCH] In my head, all make-symbol/make-keyword things upcase their input. *sigh* --- src/posts.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/posts.lisp b/src/posts.lisp index 93b995f..d3730c2 100644 --- a/src/posts.lisp +++ b/src/posts.lisp @@ -42,11 +42,11 @@ (check-header) (let ((args (loop for field in '("title" "tags" "date" "format") for line = (read-line in nil) - appending (list (make-keyword field) + appending (list (make-keyword (string-upcase field)) (aref (parse-field line) 0))))) (check-header) (setf (getf args :tags) (cl-ppcre:split ", " (getf args :tags)) - (getf args :format) (make-keyword (getf args :format))) + (getf args :format) (make-keyword (string-upcase (getf args :format)))) (apply 'make-instance 'post (append args (list :content (read-line in nil) :slug (slugify (getf args :title))))))))