(in-package :cl-user)

(defpackage :fwoar.garnet-utils
  (:use :common-lisp)
  (:nicknames :fw.gu)
  (:export *garnet-break-key*
           2pi -2pi
           add-to-list
           black
           directory-p
           do2lists
           dolist2
           m
           m1
           pi/2
           pi3/2
           safe-functionp
           short-pi
           str
           string+
           till
           until
           verify-binding
           white
           while))

(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))