[movitz-cvs] CVS update: movitz/losp/ll-testing.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv23925

Modified Files:
	ll-testing.lisp 
Log Message:
Cleaned up the exports from the muerte package, somewhat.

Date: Thu May  5 17:16:46 2005
Author: ffjeld

Index: movitz/losp/ll-testing.lisp
diff -u movitz/losp/ll-testing.lisp:1.7 movitz/losp/ll-testing.lisp:1.8
--- movitz/losp/ll-testing.lisp:1.7	Thu May  5 12:28:52 2005
+++ movitz/losp/ll-testing.lisp	Thu May  5 17:16:45 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Apr 14 08:18:43 2005
 ;;;;                
-;;;; $Id: ll-testing.lisp,v 1.7 2005/05/05 10:28:52 ffjeld Exp $
+;;;; $Id: ll-testing.lisp,v 1.8 2005/05/05 15:16:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -93,18 +93,6 @@
   (error "Stack stop.")
   (format *terminal-io* "~&Stack-stopper halt.")
   (loop (halt-cpu)))
-
-(defun control-stack-fixate (stack)
-  (let ((stack-base (+ 2 (object-location stack))))
-    (do ((frame (control-stack-ebp stack)))
-	((zerop (stack-frame-uplink stack frame)))
-      (assert (typep (stack-frame-funobj stack frame) 'function))
-      (let ((previous-frame frame))
-	(setf frame (stack-frame-uplink stack frame))
-	(incf (stack-frame-ref stack previous-frame 0)
-	      stack-base)))
-    (values (+ (control-stack-ebp stack) stack-base)
-	    (+ (control-stack-esp stack) stack-base))))	       
 
 (defun alloc-context (segment-descriptor-table)
   (let* ((fs-index 8)