From 0e6e79568156797cfd24a7e689eff280f3ff08b3 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 21 Mar 2013 21:27:17 +0100 Subject: [PATCH] Move intern into make-command-name --- clark.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/clark.lisp b/clark.lisp index 6b5d0b1..923c0d3 100644 --- a/clark.lisp +++ b/clark.lisp @@ -38,7 +38,8 @@ BM should be a list containing the url and name of the bookmark." (defun make-command-name (base) "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) "Show a help message." @@ -58,8 +59,7 @@ BM should be a list containing the url and name of the bookmark." (defun clark (args) (check-db "test2.db") (if (> (length args) 1) - (let* ((cmd-name (make-command-name (cadr args))) - (sym (intern cmd-name :org.ryuslash.clark))) - (when (fboundp sym) (funcall sym (cdr args)))) + (let* ((cmd-name (make-command-name (cadr args)))) + (when (fboundp cmd-name) (funcall cmd-name (cdr args)))) (map nil #'print-bookmark (get-bookmarks))) (disconnect *db*))