minor fixes

photo-store.asd

@@ -11,6 +11,7 @@
                :log4cl
                :png-read
                :restas
+               :sqlite
                :zpb-exif)
   :serial t
   :components ((:file "package")

photo-store.lisp

@@ -228,4 +228,7 @@
 (defvar *photo-storage-path* nil "Destination storage path")
 
 (defun start (&key (address "0.0.0.0") (port 8800))
+  (let ((config (asdf:system-relative-pathname :photo-store "config.lisp")))
+    (when (probe-file config)
+      (load config)))
   (restas:start '#:photo-store :address address :port port))