X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=cameras.lisp;fp=cameras.lisp;h=293b21955a108dcc153716bf4c2d018c59254b34;hb=c9e757cf83865138421a9a09a6237fabbff2aab4;hp=9b93505e7c7d08a8779c1468ba54148ca73c7757;hpb=6e3e14862bad7d74c6e15b06519660848e41cb44;p=cl-photo.git

diff --git a/cameras.lisp b/cameras.lisp
index 9b93505..293b219 100644
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -112,9 +112,10 @@
   
 
 (defun format-match-p (format-spec format)
-  (when (or (eql format-spec (getf format :format))
-            (member format-spec (getf format :nicks)))
-    t))
+  (let ((key (ensure-keyword format-spec)))
+    (when (or (eql key (getf format :format))
+	      (member key (getf format :nicks)))
+      t)))
 
 (defun find-format (format-spec)
   (find format-spec +format-db+ :test 'format-match-p))