Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
e2c9eeea
by Raymond Toy at 2024-03-25T14:33:02+00:00
-
8ed3d1d3
by Raymond Toy at 2024-03-25T14:33:07+00:00
2 changed files:
Changes:
| ... | ... | @@ -2076,7 +2076,9 @@ When annotations are present, invoke them at the right positions." |
| 2076 | 2076 | (c:sc-case pprint-sc-case)
|
| 2077 | 2077 | (c:define-assembly-routine pprint-define-assembly)
|
| 2078 | 2078 | (c:deftransform pprint-defun)
|
| 2079 | - (c:defoptimizer pprint-defun)))
|
|
| 2079 | + (c:defoptimizer pprint-defun)
|
|
| 2080 | + (ext:with-float-traps-masked pprint-with-like)
|
|
| 2081 | + (ext:with-float-traps-enabled pprint-with-like)))
|
|
| 2080 | 2082 | |
| 2081 | 2083 | (defun pprint-init ()
|
| 2082 | 2084 | (setf *initial-pprint-dispatch* (make-pprint-dispatch-table))
|
| 1 | +;; Tests for pprinter
|
|
| 2 | + |
|
| 3 | +(defpackage :pprint-tests
|
|
| 4 | + (:use :cl :lisp-unit))
|
|
| 5 | + |
|
| 6 | +(in-package "PPRINT-TESTS")
|
|
| 7 | + |
|
| 8 | +(define-test pprint.with-float-traps-masked
|
|
| 9 | + (:tag :issues)
|
|
| 10 | + (assert-equal
|
|
| 11 | +"
|
|
| 12 | +(WITH-FLOAT-TRAPS-MASKED (:UNDERFLOW)
|
|
| 13 | + (PRINT \"Hello\"))"
|
|
| 14 | + (with-output-to-string (s)
|
|
| 15 | + (pprint '(ext:with-float-traps-masked (:underflow)
|
|
| 16 | + (print "Hello"))
|
|
| 17 | + s))))
|
|
| 18 | + |
|
| 19 | +(define-test pprint.with-float-traps-enabled
|
|
| 20 | + (:tag :issues)
|
|
| 21 | + (assert-equal
|
|
| 22 | +"
|
|
| 23 | +(WITH-FLOAT-TRAPS-ENABLED (:UNDERFLOW)
|
|
| 24 | + (PRINT \"Hello\"))"
|
|
| 25 | + (with-output-to-string (s)
|
|
| 26 | + (pprint '(ext:with-float-traps-enabled (:underflow)
|
|
| 27 | + (print "Hello"))
|
|
| 28 | + s)))) |