X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=c61ab787849464e83eed6122436de0d38a1b114e;hb=3b45a7b66afe95080562d266dd447b1286abece0;hp=d01cafd755bdd9595f3df9bf5515bfba7f516cd0;hpb=e48026257ea92807b2a5ee799476be198fc64dd6;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index d01cafd..c61ab78 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -967,6 +967,7 @@
 ;;; to replace FRAME. The interpreted frame points to FRAME.
 (defun possibly-an-interpreted-frame (frame up-frame)
   (if (or (not frame)
+	  #!+sb-interpreter
 	  (not (eq (debug-function-name (frame-debug-function frame))
 		   'sb!eval::internal-apply-loop))
 	  *debugging-interpreter*
@@ -1449,7 +1450,8 @@
     (#.sb!vm:closure-header-type
      (function-debug-function (%closure-function fun)))
     (#.sb!vm:funcallable-instance-header-type
-     (cond ((sb!eval:interpreted-function-p fun)
+     (cond #!+sb-interpreter
+	   ((sb!eval:interpreted-function-p fun)
 	    (make-interpreted-debug-function
 	     (or (sb!eval::interpreted-function-definition fun)
 		 (sb!eval::convert-interpreted-fun fun))))
@@ -2471,6 +2473,7 @@
        (if (indirect-value-cell-p res)
 	   (sb!c:value-cell-ref res)
 	   res)))
+    #!+sb-interpreter
     (interpreted-debug-var
      (aver (typep frame 'interpreted-frame))
      (sb!eval::leaf-value-lambda-var
@@ -2814,6 +2817,7 @@
        (if (indirect-value-cell-p current-value)
 	   (sb!c:value-cell-set current-value value)
 	   (set-compiled-debug-var-slot debug-var frame value))))
+    #!+sb-interpreter
     (interpreted-debug-var
      (aver (typep frame 'interpreted-frame))
      (sb!eval::set-leaf-value-lambda-var