Prin1tostring (AutoLISP function)

;|
WIKI-PRIN1-TO-STRING

Edit the source code for this function at 

Prin1tostring (AutoLISP function)

For Intellicad, a cheap (and dirty, leaves a file on disk)
VL-PRIN1-TO-STRING
substitute
|;
(DEFUN
   HAWS-PRIN1-TO-STRING (ATOMX / F1 F2 STRING)
  (COND
    ((HAWS-VLISP-P) (VL-PRIN1-TO-STRING ATOMX))
    (T
     (SETQ F2 (OPEN "hawsprin1.tmp" "w"))
     (PRIN1 ATOMX F2)
     (SETQ F2 (CLOSE F2))
     (SETQ F1 (OPEN "hawsprin1.tmp" "r"))
     (SETQ STRING (READ-LINE F1))
     (SETQ F1 (CLOSE F1))
     STRING
    )
  )
)