0.pre7.54:

[sbcl.git] / src / code / kernel.lisp

diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp
index 1654689..772a4e4 100644 (file)
--- a/src/code/kernel.lisp
+++ b/src/code/kernel.lisp
@@ -70,8 +70,8 @@
   (%function-name func))
 
 ;;; Extract the type from the function header FUNC.
-(defun %function-type (func)
-  (%function-type func))
+(defun %fun-type (func)
+  (%fun-type func))
 
 ;;; Extract the function from CLOSURE.
 (defun %closure-function (closure)