r10456: add rayleigh

[cl-photo.git] / cameras.lisp

diff --git a/cameras.lisp b/cameras.lisp
index 9b93505e7c7d08a8779c1468ba54148ca73c7757..293b21955a108dcc153716bf4c2d018c59254b34 100644 (file)
--- 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))