- (sort formats
- (lambda (a b)
- (block nil
- (cond
- ((and (null (getf a :make)) (getf b :make))
- (return nil))
- ((and (getf a :make) (null (getf b :make)))
- (return t))
- ((string-lessp (getf a :make) (getf b :make))
- (return t))
- ((string-greaterp (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))))))))
+ (sort formats
+ (lambda (a b)
+ (block nil
+ (cond
+ ((and (null (getf a :make)) (getf b :make))
+ (return nil))
+ ((and (getf a :make) (null (getf b :make)))
+ (return t))
+ ((string-lessp (getf a :make) (getf b :make))
+ (return t))
+ ((string-greaterp (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))))))))