# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1468267442 0
# Node ID 8ea123b6d26f6595c99cd630f2bd901526fb198d
# Parent  c76d55908e2edde5727fa15a796378d1cc2549a1
Inline the trail pointer functions

diff -r c76d55908e2e -r 8ea123b6d26f src/wam/wam.lisp
--- 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."