134 lines
2.9 KiB
Scheme
134 lines
2.9 KiB
Scheme
|
(add-tests-with-string-output "immediate constants"
|
||
|
|
[#f => "#f\n"]
|
||
|
|
[#t => "#t\n"]
|
||
|
|
[() => "()\n"]
|
||
|
|
; [#\nul => "#\\nul\n"]
|
||
|
|
; [#\001 => "#\\soh\n"]
|
||
|
|
; [#\002 => "#\\stx\n"]
|
||
|
|
; [#\003 => "#\\etx\n"]
|
||
|
|
; [#\004 => "#\\eot\n"]
|
||
|
|
; [#\005 => "#\\enq\n"]
|
||
|
|
; [#\006 => "#\\ack\n"]
|
||
|
|
; [#\bel => "#\\bel\n"]
|
||
|
|
; [#\backspace => "#\\bs\n"]
|
||
|
|
[#\tab => "#\\tab\n"]
|
||
|
|
; [#\newline => "#\\newline\n"]
|
||
|
|
; [#\vt => "#\\vt\n"]
|
||
|
|
; [#\page => "#\\ff\n"]
|
||
|
|
; [#\return => "#\\return\n"]
|
||
|
|
; [#\016 => "#\\so\n"]
|
||
|
|
; [#\017 => "#\\si\n"]
|
||
|
|
; [#\020 => "#\\dle\n"]
|
||
|
|
; [#\021 => "#\\dc1\n"]
|
||
|
|
; [#\022 => "#\\dc2\n"]
|
||
|
|
; [#\023 => "#\\dc3\n"]
|
||
|
|
; [#\024 => "#\\dc4\n"]
|
||
|
|
; [#\025 => "#\\nak\n"]
|
||
|
|
; [#\026 => "#\\syn\n"]
|
||
|
|
; [#\027 => "#\\etb\n"]
|
||
|
|
; [#\030 => "#\\can\n"]
|
||
|
|
; [#\031 => "#\\em\n"]
|
||
|
|
; [#\032 => "#\\sub\n"]
|
||
|
|
; [#\033 => "#\\esc\n"]
|
||
|
|
; [#\034 => "#\\fs\n"]
|
||
|
|
; [#\035 => "#\\gs\n"]
|
||
|
|
; [#\036 => "#\\rs\n"]
|
||
|
|
; [#\037 => "#\\us\n"]
|
||
|
|
[#\space => "#\\space\n"]
|
||
|
|
[#\! => "#\\!\n"]
|
||
|
|
[#\" => "#\\\"\n"]
|
||
|
|
[#\# => "#\\#\n"]
|
||
|
|
[#\$ => "#\\$\n"]
|
||
|
|
[#\% => "#\\%\n"]
|
||
|
|
[#\& => "#\\&\n"]
|
||
|
|
[#\' => "#\\'\n"]
|
||
|
|
[#\( => "#\\(\n"]
|
||
|
|
[#\) => "#\\)\n"]
|
||
|
|
[#\* => "#\\*\n"]
|
||
|
|
[#\+ => "#\\+\n"]
|
||
|
|
[#\, => "#\\,\n"]
|
||
|
|
[#\- => "#\\-\n"]
|
||
|
|
[#\. => "#\\.\n"]
|
||
|
|
[#\/ => "#\\/\n"]
|
||
|
|
[#\0 => "#\\0\n"]
|
||
|
|
[#\1 => "#\\1\n"]
|
||
|
|
[#\2 => "#\\2\n"]
|
||
|
|
[#\3 => "#\\3\n"]
|
||
|
|
[#\4 => "#\\4\n"]
|
||
|
|
[#\5 => "#\\5\n"]
|
||
|
|
[#\6 => "#\\6\n"]
|
||
|
|
[#\7 => "#\\7\n"]
|
||
|
|
[#\8 => "#\\8\n"]
|
||
|
|
[#\9 => "#\\9\n"]
|
||
|
|
[#\: => "#\\:\n"]
|
||
|
|
[#\; => "#\\;\n"]
|
||
|
|
[#\< => "#\\<\n"]
|
||
|
|
[#\= => "#\\=\n"]
|
||
|
|
[#\> => "#\\>\n"]
|
||
|
|
[#\? => "#\\?\n"]
|
||
|
|
[#\@ => "#\\@\n"]
|
||
|
|
[#\A => "#\\A\n"]
|
||
|
|
[#\B => "#\\B\n"]
|
||
|
|
[#\C => "#\\C\n"]
|
||
|
|
[#\D => "#\\D\n"]
|
||
|
|
[#\E => "#\\E\n"]
|
||
|
|
[#\F => "#\\F\n"]
|
||
|
|
[#\G => "#\\G\n"]
|
||
|
|
[#\H => "#\\H\n"]
|
||
|
|
[#\I => "#\\I\n"]
|
||
|
|
[#\J => "#\\J\n"]
|
||
|
|
[#\K => "#\\K\n"]
|
||
|
|
[#\L => "#\\L\n"]
|
||
|
|
[#\M => "#\\M\n"]
|
||
|
|
[#\N => "#\\N\n"]
|
||
|
|
[#\O => "#\\O\n"]
|
||
|
|
[#\P => "#\\P\n"]
|
||
|
|
[#\Q => "#\\Q\n"]
|
||
|
|
[#\R => "#\\R\n"]
|
||
|
|
[#\S => "#\\S\n"]
|
||
|
|
[#\T => "#\\T\n"]
|
||
|
|
[#\U => "#\\U\n"]
|
||
|
|
[#\V => "#\\V\n"]
|
||
|
|
[#\W => "#\\W\n"]
|
||
|
|
[#\X => "#\\X\n"]
|
||
|
|
[#\Y => "#\\Y\n"]
|
||
|
|
[#\Z => "#\\Z\n"]
|
||
|
|
[#\[ => "#\\[\n"]
|
||
|
|
[#\\ => "#\\\\\n"]
|
||
|
|
[#\] => "#\\]\n"]
|
||
|
|
[#\^ => "#\\^\n"]
|
||
|
|
[#\_ => "#\\_\n"]
|
||
|
|
[#\` => "#\\`\n"]
|
||
|
|
[#\a => "#\\a\n"]
|
||
|
|
[#\b => "#\\b\n"]
|
||
|
|
[#\c => "#\\c\n"]
|
||
|
|
[#\d => "#\\d\n"]
|
||
|
|
[#\e => "#\\e\n"]
|
||
|
|
[#\f => "#\\f\n"]
|
||
|
|
[#\g => "#\\g\n"]
|
||
|
|
[#\h => "#\\h\n"]
|
||
|
|
[#\i => "#\\i\n"]
|
||
|
|
[#\j => "#\\j\n"]
|
||
|
|
[#\k => "#\\k\n"]
|
||
|
|
[#\l => "#\\l\n"]
|
||
|
|
[#\m => "#\\m\n"]
|
||
|
|
[#\n => "#\\n\n"]
|
||
|
|
[#\o => "#\\o\n"]
|
||
|
|
[#\p => "#\\p\n"]
|
||
|
|
[#\q => "#\\q\n"]
|
||
|
|
[#\r => "#\\r\n"]
|
||
|
|
[#\s => "#\\s\n"]
|
||
|
|
[#\t => "#\\t\n"]
|
||
|
|
[#\u => "#\\u\n"]
|
||
|
|
[#\v => "#\\v\n"]
|
||
|
|
[#\w => "#\\w\n"]
|
||
|
|
[#\x => "#\\x\n"]
|
||
|
|
[#\y => "#\\y\n"]
|
||
|
|
[#\z => "#\\z\n"]
|
||
|
|
[#\{ => "#\\{\n"]
|
||
|
|
[#\| => "#\\|\n"]
|
||
|
|
[#\} => "#\\}\n"]
|
||
|
|
[#\~ => "#\\~\n"]
|
||
|
|
; [#\rubout => "#\\del\n"]
|
||
|
|
)
|