0.pre7.74:

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

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index fc04552..01baacc 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -194,7 +194,7 @@
     (:macro (format s "Macro-function: ~S" x))
     (:function (format s "Function: ~S" x))
     ((nil) (format s "~S is a function." x)))
-  (case (get-type x)
+  (case (widetag-of x)
     (#.sb-vm:closure-header-widetag
      (%describe-function-compiled (%closure-fun x) s kind name)
      (format s "~@:_Its closure environment is:")