X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=fc7bb94751636f5896f2a4ab8de350ec53364074;hb=7dd568fb64927be78556ac27f1f0dc60e79cf942;hp=3b650bc14e2724a225cf68a109b5969d791cf570;hpb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 3b650bc..fc7bb94 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -135,6 +135,7 @@
 ;;; Interpreted function describing; handles both closure and
 ;;; non-closure functions. Instead of printing the compiled-from info,
 ;;; we print the definition.
+#+sb-interpreter
 (defun %describe-function-interpreted (x s kind name)
   (declare (type stream s))
   (multiple-value-bind (exp closure-p dname)
@@ -256,6 +257,7 @@
 	  (let ((data (byte-closure-data x)))
 	    (dotimes (i (length data))
 	      (format s "~@:_~S: ~S" i (svref data i))))))
+       #+sb-interpreter
        (sb-eval:interpreted-function
 	(%describe-function-interpreted x s kind name))
        (standard-generic-function