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@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)