X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fkernel.lisp;h=08b69bb16d9a8196371d93459604902419c008a9;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=7624d2cf2a064fbb674b26bd494136be2d341b4d;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git

diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp
index 7624d2c..08b69bb 100644
--- a/src/code/kernel.lisp
+++ b/src/code/kernel.lisp
@@ -56,10 +56,10 @@
   (sb!c::control-stack-pointer-sap))
 
 ;;; Return the header typecode for FUNCTION. Can be set with SETF.
-(defun function-subtype (function)
-  (function-subtype function))
-(defun (setf function-subtype) (type function)
-  (setf (function-subtype function) type))
+(defun fun-subtype (function)
+  (fun-subtype function))
+(defun (setf fun-subtype) (type function)
+  (setf (fun-subtype function) type))
 
 ;;; Extract the arglist from the function header FUNC.
 (defun %simple-fun-arglist (func)