From 702a4c6e3cf4725eac85ff3c73bdabd85a0fcb75 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 1 Dec 2011 21:00:48 +0100 Subject: [PATCH] Fixed the first argument to SEQ-OPT-PARSE-ARGS in cmpopt-sequence.lsp --- src/cmp/cmpopt-sequence.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpopt-sequence.lsp b/src/cmp/cmpopt-sequence.lsp index 9adbfcf23..7e5706b73 100644 --- a/src/cmp/cmpopt-sequence.lsp +++ b/src/cmp/cmpopt-sequence.lsp @@ -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)