mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused macro DEF-SEQ-BOOL-PARSER

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-23 16:44:13 +02:00
parent 361b012da6
commit 8e93dce002
1 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/lsp/seq.lsp
View file

@ -280,26 +280,6 @@ SEQUENCEs, where K is the minimum length of the given SEQUENCEs."
(seq-iterator-set x ix that-value)
(setq ix (seq-iterator-next x ix))))))
(eval-when (eval compile)
(defmacro def-seq-bool-parser (name doc test end-value)
`(defun ,name (predicate sequence &rest more-sequences)
,doc
(setq more-sequences (cons sequence more-sequences))
(do ((it (mapcar #'make-seq-iterator more-sequences))
(val (make-sequence 'list (length more-sequences))))
(nil)
(declare (optimize (safety 0)))
(do ((i it (cdr i))
(v val (cdr v))
(s more-sequences (cdr s)))
((null i))
(unless (car i) (return-from ,name ,end-value))
(rplaca v (seq-iterator-ref (car s) (car i)))
(rplaca i (seq-iterator-next (car s) (car i))))
(let ((that-value
(apply predicate val)))
,test)))))
(defun some (predicate sequence &rest more-sequences)
"Args: (predicate sequence &rest more-sequences)
Returns T if at least one of the elements in SEQUENCEs satisfies PREDICATE;