From 8cad2d8582a5a64fb5e6cf30b573809d8bd4af7c Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sat, 6 Apr 2013 14:58:58 +0200 Subject: [PATCH] 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")