;; Subroutine by Michael Pucket 04/15/2005
;; Returns a string
(defun ToString (x / typex)
;; convert item to a string, if x is a real use
;; the highest possible precision, if x is a
;; string double quote it, if x is a list process
;; each item in the list appropriatel, otherwise
;; just hammer item with vl-princ-to-string