Remove useless inline declarations
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