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

cmp: fix typos

Browse source
This commit is contained in:
Marius Gerbershagen 2021-03-20 21:15:22 +01:00
parent 59cc1f2df8
commit e0813bf42e
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)

2
src/cmp/cmptype-assert.lsp
View file

@ -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))