Print an atom
Use
Examples: ACL2 !>(princ$ "Howdy ho" (standard-co state) state) Howdy ho<state> ACL2 !>(pprogn (princ$ "Howdy ho" (standard-co state) state) (newline (standard-co state) state)) Howdy ho <state> ACL2 !>(princ$ "ab\"cd" *standard-co* state) ab"cd<state> ACL2 !> ACL2 !>(princ$ 17 *standard-co* state) 17<state> ACL2 !>(set-print-base 16 state) ; might be nicer to use set-print-base-radix <state> ACL2 !>(princ$ 17 *standard-co* state) 11<state> ACL2 !>(set-print-radix t state) <state> ACL2 !>(princ$ 17 *standard-co* state) #x11<state> ACL2 !>(princ$ 'xyz *standard-co* state) XYZ<state> ACL2 !>(set-print-case :downcase state) <state> ACL2 !>(princ$ 'xyz *standard-co* state) xyz<state> ACL2 !>
The guard for
(and (or (acl2-numberp x) (characterp x) (stringp x) (symbolp x)) (state-p1 state-state) (symbolp channel) (open-output-channel-p1 channel :character state-state))
See fmt for more sophisticated printing routines, and see io for general information about input and output.