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

[lisp] / mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index a5b154be79c500cd8267737260f9357f1df213ae..0290ea909ef9f4ce8aa3baa3ae1fb6d8cb52f500 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -412,7 +412,7 @@ (defmacro locf (place &environment env)
        (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."