Skip to content
Snippets Groups Projects
Commit f90345dd authored by ram's avatar ram
Browse files

Fixed some typos. In POSITION, changed use of STRING-CHAR-P to TYPEP.

parent 1e098170
No related branches found
No related tags found
No related merge requests found
...@@ -116,7 +116,7 @@ member map concatenate position find ...@@ -116,7 +116,7 @@ member map concatenate position find
;;;; Simple string transforms: ;;;; Simple string transforms:
(deftransform subseq ((seq start &optional (end nil)) (deftransform subseq ((string start &optional (end nil))
(simple-string t &optional t)) (simple-string t &optional t))
'(let* ((length (- (or end (length string)) '(let* ((length (- (or end (length string))
start)) start))
...@@ -183,7 +183,7 @@ member map concatenate position find ...@@ -183,7 +183,7 @@ member map concatenate position find
(unless (or (not test) (unless (or (not test)
(continuation-function-is test char=-functions)) (continuation-function-is test char=-functions))
(give-up)) (give-up))
`(and (string-char-p item) `(and (typep item 'string-char)
(,@(if (constant-value-or-lose from-end) (,@(if (constant-value-or-lose from-end)
'(lisp::%sp-reverse-find-character) '(lisp::%sp-reverse-find-character)
'(%primitive find-character)) '(%primitive find-character))
...@@ -193,9 +193,9 @@ member map concatenate position find ...@@ -193,9 +193,9 @@ member map concatenate position find
(deftransform find ((item sequence &key from-end (test #'eql) (start 0) end) (deftransform find ((item sequence &key from-end (test #'eql) (start 0) end)
(t simple-string &rest t)) (t simple-string &rest t))
`(if (find item sequence `(if (position item sequence
,@(when from-end `(:from-end from-end)) ,@(when from-end `(:from-end from-end))
:test test :start start :end end) :test test :start start :end end)
item item
nil)) nil))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment