From 46b8066952521e9d7c43ff101677725425c851a8 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 29 Nov 2014 21:43:09 -0800
Subject: [PATCH] See ticket:91: Forgot to export
 FLOAT-EXCEPTIONS-SUMMARY-BYTE.

---
 src/code/exports.lisp       | 1 +
 src/compiler/ppc/parms.lisp | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index a6dcc0b19..556a20ea7 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -1165,6 +1165,7 @@
 	   "COMPATIBLE-FUNCTION-TYPES-P"
 	   "FLOAT-INVALID-OP-1-BYTE"
 	   "FLOAT-INVALID-OP-2-BYTE"
+	   "FLOAT-EXCEPTIONS-SUMMARY-BYTE"
 	   "GET-FP-OPERANDS"
 	   "FUSED-MULTIPLY-ADD"
 	   "FUSED-MULTIPLY-SUBTRACT")
diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index cc2c5bac2..dda73ebc5 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -67,7 +67,8 @@
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit
 	  float-invalid-op-1-byte
-	  float-invalid-op-2-byte))
+	  float-invalid-op-2-byte
+	  float-exceptions-summary-byte))
 
 #+double-double
 (export '(double-double-float-digits))
-- 
GitLab