Raymond Toy pushed to branch rtoy-print-using-ryu at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/format.lisp
    ... ... @@ -1583,10 +1583,10 @@
    1583 1583
     	 ((and (floatp ,number)
    
    1584 1584
     	       (or (float-infinity-p ,number)
    
    1585 1585
     		   (float-nan-p ,number)))
    
    1586
    -	  (prin1 number ,stream))
    
    1586
    +	  (prin1 ,number ,stream))
    
    1587 1587
     	 (t
    
    1588
    -	  ,@forms)
    
    1589
    -	 (values)))))
    
    1588
    +	  ,@forms))
    
    1589
    +       (values))))
    
    1590 1590
     	 
    
    1591 1591
     (defmacro def-format-aux (base-name (stream number &rest args) &body body)
    
    1592 1592
       (let ((docstring