# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1468453011 0
# Node ID 8cfac0fbe30de146efda74ce023d001e462fe407
# Parent  eec2064a08b61b3f3ff02251549ce152ab88b2ca
Inline a function and use eq hash

diff -r eec2064a08b6 -r 8cfac0fbe30d src/wam/vm.lisp
--- 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)
diff -r eec2064a08b6 -r 8cfac0fbe30d src/wam/wam.lisp
--- 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