Strip control codes and extended characters from a string: Difference between revisions

m
(→‎{{header|Common Lisp}}: Optimize the implementation)
Line 581:
<pre>
(defun strip-special-chars (string &key strip-extended)
(let* ((127-operator (if strip-extended #'>= #'=)))
(remove-if (lambda (ch)
(or (< char-code ch 32)
Anonymous user