[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	inspect.lisp 
Log Message:
Removed dead code.

Date: Wed Sep 15 12:25:47 2004
Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp
diff -u movitz/losp/muerte/inspect.lisp:1.37 movitz/losp/muerte/inspect.lisp:1.38
--- movitz/losp/muerte/inspect.lisp:1.37	Wed Sep 15 12:22:59 2004
+++ movitz/losp/muerte/inspect.lisp	Wed Sep 15 12:25:47 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 24 09:50:41 2003
 ;;;;                
-;;;; $Id: inspect.lisp,v 1.37 2004/09/15 10:22:59 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.38 2004/09/15 10:25:47 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -393,36 +393,3 @@
 	    (- uplink start-frame)))
 	(setf frame uplink)))
     copy))
-  
-;;;  (let* ((stack-start-location (+ 2 (object-location stack)))
-;;;	 (start-frame-index (- start-frame stack-start-location))
-;;;	 (copy (subseq stack start-frame-index))
-;;;	 (copy-start-location (+ 2 (object-location copy))))
-;;;    (do ((frame start-frame-index)
-;;;	 (index 0))
-;;;	(nil)
-;;;      (let ((uplink-frame (stack-frame-uplink stack frame)))
-;;;	(cond
-;;;	 ((= 0 uplink-frame)
-;;;	  (setf (svref%unsafe copy index) 0)
-;;;	  (return copy))
-;;;	 (t (let* ((uplink-frame (- uplink-frame stack-start-location))
-;;;		   (uplink-index (- uplink-frame start-frame-index)))
-;;;	      (warn "~S uf ~S [~S]"
-;;;		    (+ frame stack-start-location)
-;;;		    (+ uplink-frame stack-start-location)
-;;;		    frame)
-;;;	      (assert (< -1 uplink-index (length copy)) ()
-;;;		"Uplink-index outside copy: ~S, uplink-frame: ~S frame: ~S, index: ~S"
-;;;		uplink-index uplink-frame (+ frame stack-start-location) index)
-;;;	      (setf (svref%unsafe copy index)
-;;;		(if relative-uplinks
-;;;		    uplink-index
-;;;		  (let ((x (+ uplink-index copy-start-location)))
-;;;		    (assert (= copy-start-location (+ 2 (object-location copy))) ()
-;;;		      "Destination stack re-located!")
-;;;		    (assert (location-in-object-p copy x) ()
-;;;		      "Bad uplink ~S computed from index ~S and copy ~Z, csl: ~S"
-;;;		      x uplink-index copy copy-start-location)
-;;;		    x)))
-;;;	      (setf frame uplink-frame index uplink-index))))))))