From 8cad2d8582a5a64fb5e6cf30b573809d8bd4af7c Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 6 Apr 2013 14:58:58 +0200
Subject: Eval make-command-name during execute

So that it also works when loaded from some other place.
---
 lisp/clark.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index c32edc2..47b09d8 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -174,7 +174,7 @@ The result contains the url, name and the description of the bookmark."
   (let ((*package* (in-package :org.ryuslash.clark)))
     (load (get-rc-location) :if-does-not-exist nil)))
 
-(eval-when (:compile-toplevel :load-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defun make-command-name (base)
     "Turn BASE into the name of a possible command."
     (intern (concatenate 'string (string-upcase base) "-COMMAND")
-- 
cgit v1.2.3-54-g00ecf