From b1f373fd5658158ef63cadebecaa1e7e7636bcea Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 14 Mar 1991 14:22:04 +0000
Subject: [PATCH] Moved defknowns and exports to vm-fndb.  Symbols are now
 exported from KERNEL, instead of being internal in DI.

---
 compiler/mips/debug.lisp | 21 ++-------------------
 1 file changed, 2 insertions(+), 19 deletions(-)

diff --git a/compiler/mips/debug.lisp b/compiler/mips/debug.lisp
index a66bd7920..d7387c8eb 100644
--- a/compiler/mips/debug.lisp
+++ b/compiler/mips/debug.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.9 1991/03/12 20:19:32 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.10 1991/03/14 14:22:04 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.9 1991/03/12 20:19:32 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.10 1991/03/14 14:22:04 ram Exp $
 ;;;
 ;;; Compiler support for the new whizzy debugger.
 ;;;
@@ -19,23 +19,6 @@
 ;;; 
 (in-package "MIPS")
 
-(in-package "DI")
-(import '(stack-ref %set-stack-ref lra-code-header function-code-header
-	  make-lisp-obj get-lisp-obj-address function-word-offset)
-	(find-package "MIPS"))
-
-(in-package "MIPS")
-
-
-(defknown current-sp () system-area-pointer (movable flushable))
-(defknown current-fp () system-area-pointer (movable flushable))
-(defknown stack-ref (system-area-pointer index) t (flushable))
-(defknown %set-stack-ref (system-area-pointer index t) t (unsafe))
-(defknown lra-code-header (t) t (movable flushable))
-(defknown function-code-header (t) t (movable flushable))
-(defknown make-lisp-obj ((unsigned-byte 32)) t (movable flushable))
-(defknown get-lisp-obj-address (t) (unsigned-byte 32) (movable flushable))
-(defknown function-word-offset (function) index (movable flushable))
 
 (define-vop (debug-cur-sp)
   (:translate current-sp)
-- 
GitLab