From d5c293dd18c7aa2c701d3870e20742de2b7172ee Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Thu, 19 Apr 2012 22:18:58 -0500
Subject: [PATCH] Correct the floating point extension exports.

Mainly needed to export the utility function to support unit testing
of the linear algebra library.
---
 extensions/floating-point.lisp | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

diff --git a/extensions/floating-point.lisp b/extensions/floating-point.lisp
index 6cd738d..369dde8 100644
--- a/extensions/floating-point.lisp
+++ b/extensions/floating-point.lisp
@@ -34,18 +34,33 @@
 
 ;;; Symbols exported from the floating point extension
 
+;;; Global variables
 (export
- '(*measure* *epsilon* *significant-figures* ; Global variables
-   ;; Functions
-   default-epsilon relative-error
-   sumsq sump norm relative-error-norm
-   ;; Predicates and assertions
-   float-equal assert-float-equal
+ '(*measure* *epsilon* *significant-figures*))
+
+;;; Functions
+(export
+ '(default-epsilon
+   sumsq sump norm
+   relative-error relative-error-norm
+   array-error))
+
+;;; Predicates and assertions
+(export
+ '(float-equal assert-float-equal
    sigfig-equal assert-sigfig-equal
    norm-equal assert-norm-equal
    number-equal assert-number-equal
    numerical-equal assert-numerical-equal))
 
+;;; Utilities
+(export
+ '(complex-random
+   make-2d-list
+   make-random-list
+   make-random-2d-list
+   make-random-2d-array))
+
 ;;; Floating point extensions
 
 (defvar *measure* 1)
-- 
2.11.4.GIT