Fix constant unification
How did I not notice this til now? Jesus. This is a mistake in the book that
the erratum pointed out and I read but somehow just ignored because I'm an
idiot.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 09 Jul 2016 21:51:02 +0000 |
| parents |
8c853f632f8c |
| children |
23d4dc2900a1 |
(defpackage #:bones-test
(:use
#:cl
#:5am
))
(defpackage #:bones-test.paip
(:use
#:cl
#:5am
#:bones.quickutils
#:bones.paip)
; kill me
(:shadowing-import-from #:5am
#:fail))
(defpackage #:bones-test.wam
(:use
#:cl
#:5am
#:bones.quickutils
#:bones.wam)
(:import-from #:bones.wam
#:with-database
#:make-database
#:with-fresh-database
#:push-logic-frame-with
#:rule
#:fact
#:facts
#:call
#:?
#:query
#:query-all)
(:shadowing-import-from #:bones.wam
#:!))
(defpackage #:bones-test.circle
(:use :cl :5am :bones.circle))