1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
;;; -*- Lisp -*-
(defsystem :split-sequence
:author "Arthur Lemmens <alemmens@xs4all.nl>"
:maintainer "Sharp Lispers <sharplispers@googlegroups.com>"
:description "Splits a sequence into a list of subsequences
delimited by objects satisfying a test."
:license "MIT"
:version (:read-file-form "version.sexp")
:components ((:static-file "version.sexp")
(:file "split-sequence")))
(defsystem :split-sequence/tests
:author "Arthur Lemmens <alemmens@xs4all.nl>"
:maintainer "Sharp Lispers <sharplispers@googlegroups.com>"
:description "Split-Sequence test suite"
:license "MIT"
:depends-on (:split-sequence :fiveam)
:components ((:file "tests")))
(defmethod perform ((o test-op) (c (eql (find-system :split-sequence))))
(load-system :split-sequence/tests)
(symbol-call :5am :run! :split-sequence))
|