# HG changeset patch # User Steve Losh # Date 1468339777 0 # Node ID eda9b4d218f4b1a43a9f20ba3802babe4328a316 # Parent df9962950d28c26266116ee6badaa52524b30dca Remove useless inline declarations diff -r df9962950d28 -r eda9b4d218f4 src/wam/wam.lisp --- 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