(:copier nil))
(pairs (missing-arg) :type list :read-only t))
(defun make-character-set-type (&key pairs)
- (aver (equal (mapcar #'car pairs)
- (sort (mapcar #'car pairs) #'<)))
+ ; (aver (equal (mapcar #'car pairs)
+ ; (sort (mapcar #'car pairs) #'<)))
+ ;; aver that the cars of the list elements are sorted into increasing order
+ (aver (or (null pairs)
+ (do ((p pairs (cdr p)))
+ ((null (cdr p)) t)
+ (when (> (caar p) (caadr p)) (return nil)))))
(let ((pairs (let (result)
(do ((pairs pairs (cdr pairs)))
((null pairs) (nreverse result))