Strip control codes and extended characters from a string: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Optimize the implementation) |
|||
Line 581: | Line 581: | ||
<pre> |
<pre> |
||
(defun strip-special-chars (string &key strip-extended) |
(defun strip-special-chars (string &key strip-extended) |
||
(let* ((127-operator (if strip-extended #'> #'=))) |
(let* ((127-operator (if strip-extended #'>= #'=))) |
||
(remove-if (lambda (ch) |
(remove-if (lambda (ch) |
||
(or (< char-code ch 32) |
(or (< char-code ch 32) |