Plaster
New
List
Login
common-lisp
default
shinmera
2018.08.14 18:27:24
(defun print-code-array-as-string (array &optional (stream *standard-output*)) (loop initially (write-char #\" stream) for i across array for c = (code-char i) do (when (char= c #\") (write-char #\\ stream)) (write-char c stream) finally (write-char #\" stream)) array)
Raw
Annotate
Repaste