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