Skip to content
Snippets Groups Projects
Commit b3c0e7f5 authored by Karsten Poeck's avatar Karsten Poeck
Browse files
Merge branch 'master' of https://gitlab.common-lisp.net/ansi-test/ansi-test into feature-clasp-changes
parents 27ccc93b 04a909c5
No related branches found
No related tags found
No related merge requests found
......@@ -46,3 +46,11 @@
good)
(def-macro-test prog1.error.1 (prog1 nil))
(deftest prog1.8
(prog1 (values 'a 'b))
a)
(deftest prog1.9
(prog1 (values))
nil)
......@@ -422,7 +422,8 @@
for format-string = (format nil "~~,~d,,0e" d)
for s1 = (let* ((*read-default-float-format* type)
(s1 (format nil format-string x)))
(subseq s1 (1+ (position #\. s1)) (position #\e s1)))
;; e might be lowercase or uppercase
(subseq s1 (1+ (position #\. s1)) (position #\e s1 :test #'char-equal)))
with ret = nil
do (multiple-value-bind (s2 s3)
(round-ratio-to-n-digits (rationalize x) d)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment