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