Commit e0813bf4 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

cmp: fix typos

parent 59cc1f2d
......@@ -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)
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment