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

Content added Content deleted
Line 587: Line 587:
string)))
string)))


(defvar *the-string* (coerce '(#\H #\e #\l #\l #\o #\Page #\W #\ø #\r #\l #\d) 'string))
(defvar *the-string* (format nil "Hello~aWørld~a" #\Page #\Nul))


(format t "Without controls: ~a~%" (strip-special-chars *the-string*))
(format t "Without controls: ~a~%" (strip-special-chars *the-string*))
Retrieved from "https://rosettacode.org/wiki/Strip_control_codes_and_extended_characters_from_a_string"