small fixes

tests/test.lsp

@@ -158,9 +158,13 @@
 (print "list:" l)
 (print "flatten-ed list:" (flatten l))
 
+(print (sprintf "%.2f" (list 1.25)))
+
 (print (sprintf "%.2f" '(1.23456)))
 (print (sprintf "%d" '(10000000)))
 
+(define q 1.23)
+(print (sprintf "%.2f" (list q)))
 
 (print (term-red "red text"))
 (print (term-green "green text"))