From 2afde61ad46307c5043b9c79dbebbb257202f204 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 21 Aug 2012 17:04:49 -0400 Subject: [PATCH] Use make-keyword from Alexandria. --- src/coleslaw.lisp | 4 ---- src/packages.lisp | 3 ++- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index cce953f..fce0377 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -5,10 +5,6 @@ If ARGS is provided, use (apply 'format nil PATH ARGS) as the value of PATH." (merge-pathnames (apply 'format nil path args) coleslaw-conf:*basedir*)) -(defun make-keyword (string) - "Return a keyword matching STRING." - (intern (string-upcase string) :keyword)) - (defun to-pathname (file parent) "Convert an iolib file-path back to a pathname." (merge-pathnames (file-path-namestring file) parent)) diff --git a/src/packages.lisp b/src/packages.lisp index ec33e18..7ce3d0e 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -6,7 +6,8 @@ #:read-symlink #:run-program) (:import-from :iolib.pathnames #:file-path-namestring) - (:import-from :alexandria #:hash-table-values) + (:import-from :alexandria #:hash-table-values + #:make-keyword) (:export #:main #:add-injection #:render-content