/trunk/Examples/test-suite/schemerunme/char_constant.scm

# · Lisp · 4 lines · 4 code · 0 blank · 0 comment · 0 complexity · 383cb2320e2ab478eac384679a5f6696 MD5 · raw file 

    

  1. (if (and (char? (CHAR-CONSTANT))
    2. 

  2. 	 (string? (STRING-CONSTANT)))
    3. 

  3.     (exit 0)
    4. 

  4.     (exit 1))
    5.