Commit e5677433 authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'number-token' into 'master'

Add test for numbers without digits

See merge request !14
parents 4466ba32 aa555878
...@@ -59,6 +59,11 @@ ...@@ -59,6 +59,11 @@
(list (list type s n))))) (list (list type s n)))))
nil) nil)
;;; All numbers must contain at least one digit (see CLHS 2.3.1)
(def-syntax-test syntax.number-token.5
(values (eql (read-from-string "-.") (intern "-."))
(eql (read-from-string "+.") (intern "+.")))
t t)
;;; Dot tokens ;;; Dot tokens
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment