X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/7b118f8a767addd8c869bf83506f48d28dcd7b94..a7560f9e0cbe73a552e1cbb59d00838db1bb126e:/src/class-layout-proto.lisp

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index c919892..5c755a3 100644
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -279,6 +279,7 @@
    object's metadata; but that would either require a search or we'd have to
    be able work out the target chain's index in the table."))
 
+(export 'make-chain-offset)
 (defgeneric make-chain-offset (class chain-head target-head)
   (:documentation
    "Return the offset from CHAIN-HEAD to TARGET-HEAD."))