From beff9ceae3e88f48f4d918811bb86d1ad95c40db Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 2 Sep 1997 04:26:59 +0000
Subject: [PATCH] Add a documentation string for the new
 with-float-traps-masked macro; from Raymond Toy.

---
 code/float-trap.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/code/float-trap.lisp b/code/float-trap.lisp
index b7b15c296..5fe476920 100644
--- a/code/float-trap.lisp
+++ b/code/float-trap.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.10 1997/08/30 18:21:32 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.11 1997/09/02 04:26:59 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -198,6 +198,10 @@
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public
 ;;;
 (defmacro with-float-traps-masked (traps &body body)
+  "Execute BODY with the floating point exceptions listed in TRAPS
+  masked (disabled).  TRAPS should be a list of possible exceptions
+  which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and
+  :DIVIDE-BY-ZERO."
   (let ((trap-mask (dpb (lognot (float-trap-mask traps))
 			float-traps-byte #xffffffff))
 	(exception-mask (dpb (lognot (vm::float-trap-mask traps))
-- 
GitLab