ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move intern into make-command-name

Browse source
This commit is contained in:
Tom Willemsen 2013-03-21 21:27:17 +01:00
parent 6d1a3b02e0
commit 0e6e795681
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
clark.lisp
View file

@ -38,7 +38,8 @@ BM should be a list containing the url and name of the bookmark."
(defun make-command-name (base) (defun make-command-name (base)
"Turn BASE into the name of a possible command." "Turn BASE into the name of a possible command."
(concatenate 'string (string-upcase base) "-COMMAND")) (intern (concatenate 'string (string-upcase base) "-COMMAND")
:org.ryuslash.clark))
(defun help-command (args) (defun help-command (args)
"Show a help message." "Show a help message."
@ -58,8 +59,7 @@ BM should be a list containing the url and name of the bookmark."
(defun clark (args) (defun clark (args)
(check-db "test2.db") (check-db "test2.db")
(if (> (length args) 1) (if (> (length args) 1)
(let* ((cmd-name (make-command-name (cadr args))) (let* ((cmd-name (make-command-name (cadr args))))
(sym (intern cmd-name :org.ryuslash.clark))) (when (fboundp cmd-name) (funcall cmd-name (cdr args))))
(when (fboundp sym) (funcall sym (cdr args))))
(map nil #'print-bookmark (get-bookmarks))) (map nil #'print-bookmark (get-bookmarks)))
(disconnect *db*)) (disconnect *db*))