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 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -412,7 +412,7 @@
        (make-loc (lambda () ,getform)
                 (lambda (,@newtmps) ,setform)))))
 
        (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."
 
 (defun ref (loc)
   "Fetch the value referred to by a locative."