X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/171bb403b78e6868ee77250681b7c5adb0c85bd9..ad18ddfca6c8a13c604759c0759017e3cd6280d7:/mdw-base.lisp?ds=sidebyside

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 @@ (defmacro locf (place &environment env)
        (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."