From 0e6e79568156797cfd24a7e689eff280f3ff08b3 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 21 Mar 2013 21:27:17 +0100
Subject: Move intern into make-command-name

---
 clark.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'clark.lisp')

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*))
-- 
cgit v1.2.3-54-g00ecf