(in-package :cl-user)

(defpackage :fwoar.kr-debug
  (:use :common-lisp))

(defpackage :fwoar.kr
  (:use :common-lisp :fwoar.kr-debug)
  (:nicknames :kr)
  (:export schema
           create-instance
           create-prototype
           create-relation
           create-schema
           formula
           o-formula
           schema-p
           relation-p
           is-a-p
           has-slot-p
           formula-p
           s-value
           g-value
           g-cached-value
           g-local-value
           gv
           gvl
           gv-local
           get-value
           get-local-value
           dovalues
           doslots
           define-method
           kr-send
           call-prototype-method
           apply-prototype-method
           method-trace
           *print-as-structure*
           with-constants-disabled
           with-types-disabled
           with-demons-disabled
           with-demon-disabled
           with-demon-enabled
           change-formula
           move-formula
           recompute-formula
           copy-formula
           kr-path
           mark-as-changed
           mark-as-invalid
           ps
           call-on-ps-slots
           name-for-schema
           declare-constant
           slot-constant-p
           destroy-slot
           destroy-schema
           destroy-constraint
           def-kr-type
           g-type
           s-type
           check-slot-type
           kr-boolean
           get-slot-doc
           set-slot-doc
           get-type-documentation
           set-type-documentation
           get-type-definition
           get-declarations
           get-slot-declarations
           g-formula-value
           s-formula-value
           self-old-value))