+(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))))))))
+
+