projects
/
cl-photo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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))
(defun find-format (format-spec)
(find format-spec +format-db+ :test 'format-match-p))