From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 21 Oct 2015 23:44:45 +0000 (+0100)
Subject: mdw-base.lisp: Fix `inline' proclamation for `ref'.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/ad18ddfca6c8a13c604759c0759017e3cd6280d7

mdw-base.lisp: Fix `inline' proclamation for `ref'.

This function must have had a different name during development, and the
proclamation just got missed.
---

diff --git a/mdw-base.lisp b/mdw-base.lisp
index a5b154b..0290ea9 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -412,7 +412,7 @@
        (make-loc (lambda () ,getform)
 		 (lambda (,@newtmps) ,setform)))))
 
-(declaim (inline loc (setf loc)))
+(declaim (inline ref (setf ref)))
 
 (defun ref (loc)
   "Fetch the value referred to by a locative."