lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / class-layout-proto.lisp

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index c9198922559bd4e7e1617d5ef165daafa7e8c4b3..5c755a3098fdc0699fe646c5587ca08b4493d3b0 100644 (file)
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -279,6 +279,7 @@ (defclass chain-offset ()
    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."))