From cc0537b1b53f380b2a35440d972aa44fbcfa3cad Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 10 Dec 1992 01:26:41 +0000 Subject: [PATCH] ext:floating-point-invalid => cl:floating-point-invalid-operation --- code/float-trap.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/float-trap.lisp b/code/float-trap.lisp index 4e54dbe05..093f64ce5 100644 --- a/code/float-trap.lisp +++ b/code/float-trap.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.6 1992/02/14 23:46:17 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.7 1992/12/10 01:26:41 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -164,7 +164,7 @@ (cond ((not (zerop (logand float-divide-by-zero-trap-bit traps))) (error 'division-by-zero)) ((not (zerop (logand float-invalid-trap-bit traps))) - (error 'ext:floating-point-invalid)) + (error 'floating-point-invalid-operation)) ((not (zerop (logand float-overflow-trap-bit traps))) (error 'floating-point-overflow)) ((not (zerop (logand float-underflow-trap-bit traps))) -- GitLab