X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=cameras.lisp;fp=cameras.lisp;h=c084fec013014d84e4b17cd20e6014a7247577f1;hb=fa6f225e030638160cbd91d19cebd29f741068e8;hp=c10e2839f8447821c247a1fb8cc5a5d73ace2719;hpb=d876b7ff219f322470236dbe5d684e08aeb4beb3;p=cl-photo.git

diff --git a/cameras.lisp b/cameras.lisp
index c10e283..c084fec 100644
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -80,6 +80,26 @@
    #.(make-output-format 24 36)
   ))
 
+(defvar *digital-cameras*
+  (sort (loop for format in +format-db+
+	      when (getf format :pixels)
+	      collect format)
+	(lambda (a b)
+	  (block nil
+	    (when (and (getf a :make) (getf b :make))
+	      (cond
+               ((string-greaterp (getf a :make) (getf b :make))
+                (return t))
+               ((string-lessp (getf a :make) (getf b :make))
+                (return nil))))
+	    (when (and (getf a :name) (getf b :name))
+	      (cond
+               ((string-lessp (getf a :name) (getf b :name))
+                (return t))
+               ((string-greaterp (getf a :name) (getf b :name))
+                (return nil))))))))
+  
+
 (defun format-match-p (format-spec format)
   (when (or (eql format-spec (getf format :format))
             (member format-spec (getf format :nicks)))