mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed the first argument to SEQ-OPT-PARSE-ARGS in cmpopt-sequence.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-01 21:00:48 +01:00
parent 78442fa7bc
commit 702a4c6e3c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpopt-sequence.lsp
View file

@ -225,7 +225,7 @@
(defun expand-assoc (value list &rest sequence-args)
(multiple-value-bind (key-function test-function init
key-flag test-flag test)
(seq-opt-parse-args 'member sequence-args :start-end nil)
(seq-opt-parse-args 'assoc sequence-args :start-end nil)
(unless key-flag
(when (or (null test-flag) (eq test-flag :test))
(when (member test '('EQ #'EQ) :test #'equal)
@ -268,7 +268,7 @@
(defun expand-find (value sequence &rest sequence-args)
(multiple-value-bind (key-function test-function init
key-flag test-flag test start end)
(seq-opt-parse-args 'member sequence-args)
(seq-opt-parse-args 'find sequence-args)
(when test-function
(ext:with-unique-names (%value %elt)
`(let ((,%value ,value)