[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-serv25648

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

Date: Mon Sep 27 10:54:53 2004
Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp
diff -u movitz/losp/muerte/run-time-context.lisp:1.13 movitz/losp/muerte/run-time-context.lisp:1.14
--- movitz/losp/muerte/run-time-context.lisp:1.13	Mon Sep 27 10:53:37 2004
+++ movitz/losp/muerte/run-time-context.lisp	Mon Sep 27 10:54:53 2004
@@ -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.13 2004/09/27 08:53:37 ffjeld Exp $
+;;;; $Id: run-time-context.lisp,v 1.14 2004/09/27 08:54:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -114,10 +114,6 @@
 				    (name :anonymous))
   (check-type parent run-time-context)
   (let ((context (%shallow-copy-object parent #.(movitz::movitz-type-word-size 'movitz-run-time-context))))
-;;;	 #+ignore
-;;;	 (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-run-time-context) 4))))
-;;;    (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-run-time-context)
-;;;	     :unsigned-byte8)
     (setf (%run-time-context-slot 'name context) name
 	  (%run-time-context-slot 'self context) context)
     (setf (%run-time-context-segment-base 'segment-descriptor-thread-context context)