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

[lisp] / mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index a5b154b..0290ea9 100644 (file)
--- 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."