From e21ec44c5d757426ad10968da40cba806eef0910 Mon Sep 17 00:00:00 2001
From: Alex Wood <aeshtaer@gmail.com>
Date: Wed, 25 Oct 2023 10:54:24 -0400
Subject: [PATCH] Reexport cell access from clostrum package

The idea is that nobody should have to mess with -sys except
implementors.
---
 Code/packages.lisp | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/Code/packages.lisp b/Code/packages.lisp
index 67c82e8..50209d1 100644
--- a/Code/packages.lisp
+++ b/Code/packages.lisp
@@ -32,7 +32,10 @@
   (:use #:cl)
   (:import-from #:clostrum-sys
                 #:parent
-                #:proclamation)
+                #:proclamation
+                #:variable-cell-boundp #:variable-cell-value #:variable-cell-makunbound
+                #:operator-cell-boundp #:operator-cell-value #:operator-cell-makunbound
+                #:type-cell-boundp #:type-cell-value #:type-cell-makunbound)
   ;; Protocol classes:
   (:export #:environment #:run-time-environment #:compilation-environment)
   ;; Protocol functions:
@@ -40,21 +43,24 @@
   ;; Operators
   (:shadow #:fdefinition #:fboundp #:fmakunbound #:macro-function
            #:special-operator-p #:compiler-macro-function)
-  (:export #:operator-status #:ensure-operator-cell)
+  (:export #:operator-status #:ensure-operator-cell
+           #:operator-cell-boundp #:operator-cell-value #:operator-cell-makunbound)
   (:export #:fdefinition #:fboundp #:fmakunbound #:macro-function
            #:special-operator-p #:compiler-macro-function
            #:operator-ftype #:operator-inline #:operator-inline-data)
   (:export #:setf-expander #:make-special-operator #:note-function)
   ;; Variables
   (:shadow #:symbol-value #:boundp #:makunbound #:symbol-plist)
-  (:export #:ensure-variable-cell)
+  (:export #:ensure-variable-cell
+           #:variable-cell-boundp #:variable-cell-value #:variable-cell-makunbound)
   (:export #:variable-status #:symbol-value #:boundp #:makunbound)
   (:export #:make-variable #:make-parameter #:make-constant
            #:make-symbol-macro #:variable-macro-expander #:variable-type)
   (:export #:symbol-plist)
   ;; Types and classes
   (:shadow #:find-class)
-  (:export #:ensure-type-cell)
+  (:export #:ensure-type-cell
+           #:type-cell-boundp #:type-cell-value #:type-cell-makunbound)
   (:export #:find-class)
   (:export #:type-expand-1 #:type-expand #:type-expander)
   ;; Packages