From 33a8fda7bfe2f39f1b3bc2e0817c3bbae0d7843c Mon Sep 17 00:00:00 2001
From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Sun, 22 Mar 2020 19:41:07 +0100
Subject: [PATCH] Open and export bit and byte frames.

The following classes are open and exported:
- <unsigned-integer-bit-frame>
- <big-endian-unsigned-integer-byte-frame>
- <little-endian-unsigned-integer-byte-frame>

These classes need to be open and exported in order to
n-bit-unsigned-integer and n-byte-unsigned-integer macros to work.
---
 leaf-frames.dylan | 6 +++---
 library.dylan     | 4 +++-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/leaf-frames.dylan b/leaf-frames.dylan
index cb36cff..165cdec 100644
--- a/leaf-frames.dylan
+++ b/leaf-frames.dylan
@@ -113,7 +113,7 @@ define inline method high-level-type (low-level-type == <unsigned-byte>)
 end;
 
 
-define abstract class <unsigned-integer-bit-frame> (<fixed-size-translated-leaf-frame>)
+define open abstract class <unsigned-integer-bit-frame> (<fixed-size-translated-leaf-frame>)
 end;
 
 define macro n-bit-unsigned-integer-definer
@@ -285,11 +285,11 @@ define method \= (frame1 :: <fixed-size-byte-vector-frame>,
   frame1.data = frame2.data
 end method;
 
-define abstract class <big-endian-unsigned-integer-byte-frame> (<fixed-size-translated-leaf-frame>)
+define open abstract class <big-endian-unsigned-integer-byte-frame> (<fixed-size-translated-leaf-frame>)
   //slot data :: <integer>, required-init-keyword: data:;
 end;
 
-define abstract class <little-endian-unsigned-integer-byte-frame> (<fixed-size-translated-leaf-frame>)
+define open abstract class <little-endian-unsigned-integer-byte-frame> (<fixed-size-translated-leaf-frame>)
 end;
 
 define macro n-byte-unsigned-integer-definer
diff --git a/library.dylan b/library.dylan
index 35f1d35..4b2f504 100644
--- a/library.dylan
+++ b/library.dylan
@@ -31,7 +31,9 @@ define module binary-data
 
   export byte-aligned, high-level-type;
 
-  export n-byte-vector-definer, n-bit-unsigned-integer-definer;
+  export n-bit-unsigned-integer-definer, <unsigned-integer-bit-frame>,
+    n-byte-vector-definer, <big-endian-unsigned-integer-byte-frame>,
+    <little-endian-unsigned-integer-byte-frame>;
 
   export hexdump;