Add failing test for number literals

pull/70/head
Stephan Seitz 2021-04-16 10:24:36 +07:00
parent d9a8bba658
commit 6cb0d8e505
1 changed files with 12 additions and 0 deletions

@ -781,3 +781,15 @@ Weird quoting
(list_lit)
(syn_quoting_lit
(sym_lit))))
================================================================================
Num Literals (TODO)
================================================================================
(deftype zero ()
'(member 0 0S0 -0S0 0F0 -0F0 0D0 -0D0 0L0 -0L0
#C(0S0 0S0) #C(0S0 -0S0) #C(-0S0 0S0) #C(-0S0 -0S0)
#C(0F0 0F0) #C(0F0 -0F0) #C(-0F0 0F0) #C(-0F0 -0F0)
#C(0D0 0D0) #C(0D0 -0D0) #C(-0D0 0D0) #C(-0D0 -0D0)
#C(0L0 0L0) #C(0L0 -0L0) #C(-0L0 0L0) #C(-0L0 -0L0)))
--------------------------------------------------------------------------------