Inline a function and use eq hash
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 13 Jul 2016 23:36:51 +0000 |
| parents |
eec2064a08b6
|
| children |
5c914fbcb042
|
| branches/tags |
(none) |
| files |
src/wam/vm.lisp src/wam/wam.lisp |
Changes
--- a/src/wam/vm.lisp Wed Jul 13 22:21:19 2016 +0000
+++ b/src/wam/vm.lisp Wed Jul 13 23:36:51 2016 +0000
@@ -88,7 +88,6 @@
(trail-start trail-index)
(trail-end trail-index))
"Unbind all the things in the given range of the trail."
- ;; TODO: seriously can't we just pop back to a certain place?
(loop :for i :from trail-start :below trail-end :do
(unbind! wam (wam-trail-value wam i))))
@@ -561,7 +560,7 @@
;;;; Choice Instructions
-(declaim (inline reset-choice-point!))
+(declaim (inline reset-choice-point! restore-registers-from-choice-point!))
(defun* reset-choice-point! ((wam wam)
--- a/src/wam/wam.lisp Wed Jul 13 22:21:19 2016 +0000
+++ b/src/wam/wam.lisp Wed Jul 13 23:36:51 2016 +0000
@@ -54,7 +54,7 @@
:type (simple-array code-word (*))
:read-only t)
(code-labels
- (make-hash-table)
+ (make-hash-table :test 'eq)
:read-only t)
(logic-stack
nil