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