marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use make-keyword from Alexandria.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 17:04:49 -04:00
parent 1a05db7fc9
commit 2afde61ad4
2 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/coleslaw.lisp
View file

@ -5,10 +5,6 @@
If ARGS is provided, use (apply 'format nil PATH ARGS) as the value of PATH." 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*)) (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) (defun to-pathname (file parent)
"Convert an iolib file-path back to a pathname." "Convert an iolib file-path back to a pathname."
(merge-pathnames (file-path-namestring file) parent)) (merge-pathnames (file-path-namestring file) parent))

3
src/packages.lisp
View file

@ -6,7 +6,8 @@
#:read-symlink #:read-symlink
#:run-program) #:run-program)
(:import-from :iolib.pathnames #:file-path-namestring) (:import-from :iolib.pathnames #:file-path-namestring)
(:import-from :alexandria #:hash-table-values) (:import-from :alexandria #:hash-table-values
#:make-keyword)
(:export #:main (:export #:main
#:add-injection #:add-injection
#:render-content #:render-content