fork download
copy 
  1. ; define constants for some non-printable ASCII chars
  2. ; (in case #\ equivalents are not available)
  3. ; and some sequences of such chars
  4. (defconstant $/nul (code-char 0) "<NUL> like #\nul")
  5. (defconstant $/us (code-char 31) "<US> like #\us")
  6. (defconstant $/nul-us (list $/nul $/us) "<NUL><US> like #\nul #\us")
  7.  
  8. ;example use of the defined constants
  9. ;instead of the explicit non-printable chars
  10. (print $/nul-us)
  11.  
Success #stdin #stdout 0s 25032KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(#\Nul #\Us)
https://ideone.com/9WInTP
language:
Common Lisp (sbcl 1.4.16)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!