eda9b4d218f4

Remove useless inline declarations
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 12 Jul 2016 16:09:37 +0000
parents df9962950d28
children 6adb44b99131
branches/tags (none)
files src/wam/wam.lisp

Changes

--- a/src/wam/wam.lisp	Tue Jul 12 15:52:13 2016 +0000
+++ b/src/wam/wam.lisp	Tue Jul 12 16:09:37 2016 +0000
@@ -2,30 +2,6 @@
 
 
 ;;;; WAM
-(declaim
-  ;; Inline all these struct accessors, otherwise things get REAL slow.
-  (inline wam-store
-          wam-code
-          wam-code-labels
-          wam-logic-stack
-          wam-logic-pool
-          wam-functors
-          wam-fail
-          wam-backtracked
-          wam-unification-stack
-          wam-trail
-          wam-number-of-arguments
-          wam-subterm
-          wam-program-counter
-          wam-heap-pointer
-          wam-continuation-pointer
-          wam-environment-pointer
-          wam-backtrack-pointer
-          wam-cut-pointer
-          wam-heap-backtrack-pointer
-          wam-mode))
-
-
 (defun allocate-wam-code (size)
   ;; The WAM bytecode is all stored in this array.  The first
   ;; `+maximum-query-size+` words are reserved for query bytecode, which will