;;AUTOLOAD: write-string
;;AUTODOC: write-string "writes a string's contents on a stream"
;; (write-string string [stream])
;; writes the string on the stream ,or *standard-output* if not specified
;; the difference with just (write string stream) is that write-string is
;; impervious to the value of the *print-readably* flag
;;
;; (setq *print-readably* t)
;; (write "abc")		==> "abc"
;; (write-string "abc")		==> abc

(defun write-string (string &optional stream)
  (print-format stream "%n0" string))
