X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=858ee3fb2be82f0c59b38754e6c7476348abfcbc;hb=d40a76606c86722b0aef8179155f9f2840739b72;hp=10988528584b2ccf9ba399169cf48b550a708f92;hpb=f5fff2abb7de72d52905253a664cff2f80b6a617;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 1098852..858ee3f 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -27,12 +27,12 @@
 (defun has-arglist-info-p (fun)
   (declare (type function fun))
   ;; The Lisp-level type FUNCTION can conceal a multitude of sins..
-  (case (sb-kernel:get-type fun)
+  (case (sb-kernel:widetag-of fun)
     ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
       (sb-kernel:%simple-fun-arglist fun))
     (#.sb-vm:closure-header-widetag (has-arglist-info-p
 				     (sb-kernel:%closure-fun fun)))
-    ;; In code/describe.lisp, ll. 227 (%describe-function), we use a scheme
+    ;; In code/describe.lisp, ll. 227 (%describe-fun), we use a scheme
     ;; like above, and it seems to work. -- MNA 2001-06-12
     ;;
     ;; (There might be other cases with arglist info also.