0.pre7.61:

[sbcl.git] / src / pcl / macros.lisp

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index 7013080..d028d8f 100644 (file)
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -274,7 +274,7 @@
   `(apply (the function ,form) ,@args))
 \f
 
-(defun get-setf-function-name (name)
+(defun get-setf-fun-name (name)
   `(setf ,name))
 
 (defsetf slot-value set-slot-value)