external/ch-util/src/sequence.cl

   1 ;;;
   2 ;;; vector.cl -- various lisp utilities for sequences
   3 ;;;
   4 ;;; Author: Cyrus Harmon <ch-lisp@bobobeach.com>
   5 ;;;
   6
   7 (in-package :ch-util)
   8
   9 (defun max-length (&rest seqs)
  10   (apply #'max (mapcar #'length seqs)))
  11
  12 (defun seqmin (seq &key key)
  13   (car (apply #'sort (copy-seq seq) #'<
  14               (when key `(:key ,key)))))
  15
  16 (defun seqmax (seq &key key)
  17   (car (apply #'sort (copy-seq seq) #'>
  18               (when key `(:key ,key)))))