0.pre7.61:

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

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 1221782..7674689 100644 (file)
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -289,7 +289,7 @@
                                      (t constant))
                                    constant))
                            constants))
-                  (function (set-function-name
+                  (function (set-fun-name
                              (apply cfunction constants)
                              `(combined-method ,name))))
              (make-fast-method-call :function function