Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    75de5422
    Was failing to print enough digits for things like (format nil · 75de5422
    rtoy authored
    "~9,,,-2E" 1.2345689d-3).   This change also allows us to get rid of
    one other call to flonum-to-string, so printing should be faster now.
    
    Some additional tests:
    
    (assert (string= (format nil "~9,,,-2E" 1.2345689d3) ".00123d+6"))
    (assert (string= (format nil "~9,,,-2E" -1.2345689d3) "-.0012d+6"))
    (assert (string= (format nil "~9,,,-2E" 1.2345689d-3) ".00123d+0"))
    (assert (string= (format nil "~9,,,-2E" -1.2345689d-3) "-.0012d+0"))
    75de5422
    History
    Was failing to print enough digits for things like (format nil
    rtoy authored
    "~9,,,-2E" 1.2345689d-3).   This change also allows us to get rid of
    one other call to flonum-to-string, so printing should be faster now.
    
    Some additional tests:
    
    (assert (string= (format nil "~9,,,-2E" 1.2345689d3) ".00123d+6"))
    (assert (string= (format nil "~9,,,-2E" -1.2345689d3) "-.0012d+6"))
    (assert (string= (format nil "~9,,,-2E" 1.2345689d-3) ".00123d+0"))
    (assert (string= (format nil "~9,,,-2E" -1.2345689d-3) "-.0012d+0"))