Fix compilation errors

lisp/clark.asd

@@ -30,6 +30,6 @@
   :serial t
   :depends-on (:sqlite)
   :components ((:file "package")
+               (:file "queries")
                (:file "clark")
-               (:file "commands")
+               (:file "commands")))
-               (:file "queries")))

lisp/clark.lisp

@@ -19,10 +19,6 @@
 
 (in-package :org.ryuslash.clark)
 
-(defmacro sql (&body body)
-  (apply 'concatenate 'string
-         (mapcar (lambda (itm) (format nil "~A " itm)) body)))
-
 (defvar *db* nil
   "The database connection.")
 

lisp/make-image.lisp

@@ -22,6 +22,7 @@
 
 (require 'asdf)
 
+(load "clark.asd")
 (asdf:oos 'asdf:load-op 'clark)
 
 (save-lisp-and-die

lisp/queries.lisp

@@ -19,6 +19,10 @@
 
 (in-package :org.ryuslash.clark)
 
+(defmacro sql (&body body)
+  (apply 'concatenate 'string
+         (mapcar (lambda (itm) (format nil "~A " itm)) body)))
+
 (defun bookmark-exists-p (url)
   "Check if URL can be found in the database."
   (execute-single