Loading src/code/pprint.lisp +3 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading 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)))) Loading
src/code/pprint.lisp +3 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading
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))))