X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=77edb5807943ebd19e62df0c9a7518dbbb2b5205;hb=be9eb6c67b5f43a095c3de17bea945c309d662e4;hp=9653bd52ffb66f6173aca84a1559b6ea71d1361d;hpb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 9653bd5..77edb58 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -33,13 +33,13 @@
 (declaim (ftype (function ((or symbol cons)) (values fixnum t)) fun-signature))
 (defun fun-signature (name)
   (let ((type (info :function :type name)))
-    (cond ((not (function-type-p type))
+    (cond ((not (fun-type-p type))
 	   (values 0 t))
 	  (t
-	   (values (length (function-type-required type))
-		   (or (function-type-optional type)
-		       (function-type-keyp type)
-		       (function-type-rest type)))))))
+	   (values (length (fun-type-required type))
+		   (or (fun-type-optional type)
+		       (fun-type-keyp type)
+		       (fun-type-rest type)))))))
 |#
 
 ;;;; global data structures