Skip to content

Commit

Permalink
Reexport cell access from clostrum package
Browse files Browse the repository at this point in the history
The idea is that nobody should have to mess with -sys except
implementors.
  • Loading branch information
Bike committed Oct 25, 2023
1 parent 458d3d2 commit e21ec44
Showing 1 changed file with 10 additions and 4 deletions.
14 changes: 10 additions & 4 deletions Code/packages.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -32,29 +32,35 @@
(: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:
(:export #:parent #:merge-types #:merge-optimize)
;; 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
Expand Down

0 comments on commit e21ec44

Please sign in to comment.