8ea123b6d26f

--- a/src/wam/wam.lisp	Mon Jul 11 19:56:43 2016 +0000
+++ b/src/wam/wam.lisp	Mon Jul 11 20:04:02 2016 +0000
@@ -127,6 +127,8 @@
 
 ;;;; Store
 (declaim (inline wam-store-cell (setf wam-store-cell)))
+
+
 (defun* wam-store-cell ((wam wam) (address store-index))
   (:returns cell)
   "Return the cell at the given address.
@@ -158,6 +160,7 @@
                  (setf wam-heap-pointer)
                  wam-heap-push!))
 
+
 (defun* wam-heap-pointer-unset-p ((wam wam) (address heap-index))
   (:returns boolean)
   (declare (ignore wam))
@@ -192,6 +195,9 @@
 
 
 ;;;; Trail
+(declaim (inline wam-trail-pointer (setf wam-trail-pointer)))
+
+
 (defun* wam-trail-pointer ((wam wam))
   (:returns trail-index)
   "Return the current trail pointer of the WAM."