X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=4c4de8d70a2fa962bde5fb511377fd267bef4502;hb=29a9ccc860532b32c566aec095f570e999a9c52c;hp=f385fb5050782dc21d133ffd911d01338d068b92;hpb=a92c91a4fdcdcf1c96b33339c1ef077243183187;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index f385fb5..4c4de8d 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1794,7 +1794,7 @@ bootstrapping.
     (when lambda-list-p
       (proclaim (defgeneric-declaration fun-name lambda-list)))))
 
-(defun get-generic-function-info (gf)
+(defun get-generic-fun-info (gf)
   ;; values   nreq applyp metatypes nkeys arg-info
   (multiple-value-bind (applyp metatypes arg-info)
       (let* ((arg-info (if (early-gf-p gf)