From e0813bf42e022a4e595240c59c59e24d41541e80 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 20 Mar 2021 21:15:22 +0100 Subject: [PATCH] cmp: fix typos --- src/cmp/cmpopt-sequence.lsp | 4 ++-- src/cmp/cmptype-assert.lsp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpopt-sequence.lsp b/src/cmp/cmpopt-sequence.lsp index e07ed90ff..ba7fe6c01 100644 --- a/src/cmp/cmpopt-sequence.lsp +++ b/src/cmp/cmpopt-sequence.lsp @@ -195,7 +195,7 @@ for elt = (first l) collect `(and ,(funcall test-function %value `',elt) ',l))))))) - (when (or (consp list) (symbol list)) + (when (or (consp list) (symbolp list)) (setf list `',list))) (when (or (null test-flag) (eq test-flag :test)) (when (member test '('EQ #'EQ) :test #'equal) @@ -220,7 +220,7 @@ (return ,%sublist))))))) (define-compiler-macro member (&whole whole value list &rest sequence-args) - (declare (value list sequence-args)) + (declare (ignore value list sequence-args)) (if (policy-inline-sequence-functions) (or (apply #'expand-member (rest whole)) whole) diff --git a/src/cmp/cmptype-assert.lsp b/src/cmp/cmptype-assert.lsp index f979997d4..fa7fd726f 100644 --- a/src/cmp/cmptype-assert.lsp +++ b/src/cmp/cmptype-assert.lsp @@ -94,7 +94,7 @@ (let* ((type (pop args)) (value (pop args)) form form-type and-type) - (cond ((or (trivial-type-p args) (not (policy-type-assertions))) + (cond ((or (trivial-type-p type) (not (policy-type-assertions))) value) ((and (consp type) (eq (first type) 'values))