Commit 8ed3d1d3 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'issue-290-pprint-with-float-traps' into 'master'

Fix #290:  Neatly pprint with-float-traps-masked and friends

Closes #290

See merge request !199
parents ad88cf63 e2c9eeea
Loading
Loading
Loading
Loading
Loading
+3 −1
Original line number Diff line number Diff line
@@ -2076,7 +2076,9 @@ When annotations are present, invoke them at the right positions."
    (c:sc-case pprint-sc-case)
    (c:define-assembly-routine pprint-define-assembly)
    (c:deftransform pprint-defun)
    (c:defoptimizer pprint-defun)))
    (c:defoptimizer pprint-defun)
    (ext:with-float-traps-masked pprint-with-like)
    (ext:with-float-traps-enabled pprint-with-like)))

(defun pprint-init ()
  (setf *initial-pprint-dispatch* (make-pprint-dispatch-table))

tests/pprint.lisp

0 → 100644
+28 −0
Original line number Diff line number Diff line
;; Tests for pprinter

(defpackage :pprint-tests
  (:use :cl :lisp-unit))

(in-package "PPRINT-TESTS")

(define-test pprint.with-float-traps-masked
    (:tag :issues)
  (assert-equal 
"
(WITH-FLOAT-TRAPS-MASKED (:UNDERFLOW)
  (PRINT \"Hello\"))"
     (with-output-to-string (s)
       (pprint '(ext:with-float-traps-masked (:underflow)
                 (print "Hello"))
               s))))

(define-test pprint.with-float-traps-enabled
    (:tag :issues)
  (assert-equal 
"
(WITH-FLOAT-TRAPS-ENABLED (:UNDERFLOW)
  (PRINT \"Hello\"))"
     (with-output-to-string (s)
       (pprint '(ext:with-float-traps-enabled (:underflow)
                 (print "Hello"))
               s))))