Implement a rudimentary heap for the WAM, part 0
    
        | author | Steve Losh <steve@stevelosh.com> | 
    
        | date | Thu, 24 Mar 2016 18:51:08 +0000 | 
    
        | parents | 3a8ee0586fdf | 
    
        | children | fcec9e0c9c67 | 
(defpackage #:bones
  (:use #:cl)
  (:export #:hello))
(defpackage #:bones.wam
  (:use #:cl #:defstar #:bones.utils #:optima)
  (:import-from #:optima #:match))
(defpackage #:bones.paip
  (:use #:cl #:defstar #:bones.utils)
  (:documentation "Test?")
  (:export
   ;; Unification, constants
   #:unify
   #:fail #:no-bindings
   #:*check-occurs*
   ;; Destructive unification
   #:unify!
   #:unbound
   #:bound-p
   ;; Database management
   #:clear-db
   #:fact
   #:rule
   ;; Lisp data structures as results
   #:return-one
   #:return-all
   ;; Interactive queries
   #:query
   #:query-one
   #:query-all
   ))