Rewrite registers to be addresses, not cells
Also add initial (incomplete) implementations of the unification instructions.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sun, 27 Mar 2016 18:32:37 +0000 |
| parents |
fcec9e0c9c67 |
| children |
3ac6e0d897af |
(defpackage #:bones
(:use #:cl)
(:export #:hello))
(defpackage #:bones.wam
(:use #:cl #:defstar #:bones.utils #:optima #:cl-arrows)
(:import-from #:optima #:match)
(:shadowing-import-from #:cl-arrows #:->))
(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
))