From bcd9051b146234aa582a60859229984e0f28397a Mon Sep 17 00:00:00 2001 From: "Colin M. Strickland" Date: Sat, 25 Oct 2014 22:16:29 +0100 Subject: [PATCH] use :utf8 symbol directly in external-format sbcl can use :utf8 as a direct symbol also --- src/config.lisp | 2 +- src/content.lisp | 2 +- src/util.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/config.lisp b/src/config.lisp index d73a98a..f9d4ea0 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -68,7 +68,7 @@ doesn't exist, use the .coleslawrc in the home directory." (defun load-config (&optional (repo-dir "")) "Find and load the coleslaw configuration from .coleslawrc. REPO-DIR will be preferred over the home directory if provided." - (with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8)) + (with-open-file (in (discover-config-path repo-dir) :external-format :utf-8) (let ((config-form (read in))) (setf *config* (construct 'blog config-form) (repo *config*) repo-dir))) diff --git a/src/content.lisp b/src/content.lisp index 0774ead..a4bf94b 100644 --- a/src/content.lisp +++ b/src/content.lisp @@ -72,7 +72,7 @@ (file-position stream))))) (read-sequence seq stream) (remove #\Nul seq)))) - (with-open-file (in file :external-format '(:utf-8)) + (with-open-file (in file :external-format :utf-8) (let ((metadata (parse-metadata in)) (content (slurp-remainder in)) (filepath (enough-namestring file (repo *config*)))) diff --git a/src/util.lisp b/src/util.lisp index 1862ec3..8bcff07 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -88,7 +88,7 @@ along with any missing parent directories otherwise." :direction :output :if-exists :supersede :if-does-not-exist :create - :external-format '(:utf-8)) + :external-format :utf-8) (write text :stream out :escape nil))) (defun get-updated-files (&optional (revision *last-revision*))