Plaster

common-lisp
(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)