[movitz-cvs] CVS update: movitz/losp/muerte/run-time-context.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	run-time-context.lisp 
Log Message:
More dead code.

Date: Thu May  5 00:47:18 2005
Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp
diff -u movitz/losp/muerte/run-time-context.lisp:1.20 movitz/losp/muerte/run-time-context.lisp:1.21
--- movitz/losp/muerte/run-time-context.lisp:1.20	Wed May  4 09:43:27 2005
+++ movitz/losp/muerte/run-time-context.lisp	Thu May  5 00:47:17 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 12 18:33:02 2003
 ;;;;                
-;;;; $Id: run-time-context.lisp,v 1.20 2005/05/04 07:43:27 ffjeld Exp $
+;;;; $Id: run-time-context.lisp,v 1.21 2005/05/04 22:47:17 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -28,9 +28,7 @@
   ((name
     :initarg :name
     :initform :anonymous
-    :accessor run-time-context-name)
-   (stack-vector
-    :initarg :stack-vector))
+    :accessor run-time-context-name))
   (:metaclass run-time-context-class)
   (:size #.(bt:sizeof 'movitz::movitz-run-time-context))
   (:slot-map #.(movitz::slot-map 'movitz::movitz-run-time-context
@@ -148,18 +146,18 @@
 	  (%run-time-context-slot 'atomically-continuation context) 0)
     context))
 
-(defun %run-time-context-install-stack (context
-					&optional (control-stack
-						   (make-array 8192 :element-type '(unsigned-byte 32)))
-						  (cushion 1024))
-  (check-type control-stack vector)
-  (assert (< cushion (array-dimension control-stack 0)))
-  (setf (%run-time-context-slot 'control-stack context) control-stack)
-  (setf (%run-time-context-slot 'stack-top context)
-    (+ (object-location control-stack) 8
-       (* 4 (array-dimension control-stack 0))))
-  (setf (%run-time-context-slot 'stack-bottom context)
-    (+ (object-location control-stack) 8
-       (* 4 cushion)))
-  control-stack)
+;;;(defun %run-time-context-install-stack (context
+;;;					&optional (control-stack
+;;;						   (make-array 8192 :element-type '(unsigned-byte 32)))
+;;;						  (cushion 1024))
+;;;  (check-type control-stack vector)
+;;;  (assert (< cushion (array-dimension control-stack 0)))
+;;;  (setf (%run-time-context-slot 'control-stack context) control-stack)
+;;;  (setf (%run-time-context-slot 'stack-top context)
+;;;    (+ (object-location control-stack) 8
+;;;       (* 4 (array-dimension control-stack 0))))
+;;;  (setf (%run-time-context-slot 'stack-bottom context)
+;;;    (+ (object-location control-stack) 8
+;;;       (* 4 cushion)))
+;;;  control-stack)