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

Modified Files:
	inspect.lisp 
Log Message:
Dead code.

Date: Thu May  5 00:46:44 2005
Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp
diff -u movitz/losp/muerte/inspect.lisp:1.51 movitz/losp/muerte/inspect.lisp:1.52
--- movitz/losp/muerte/inspect.lisp:1.51	Mon Apr 25 00:10:26 2005
+++ movitz/losp/muerte/inspect.lisp	Thu May  5 00:46:44 2005
@@ -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.51 2005/04/24 22:10:26 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.52 2005/05/04 22:46:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -53,10 +53,10 @@
     (dit-frame-casf stack frame))
    (t (stack-frame-ref stack frame 0))))
 
-(defun stack-vector-designator (stack)
-  (etypecase stack
-    (null (%run-time-context-slot 'stack-vector))
-    (vector stack)))
+;;;(defun stack-vector-designator (stack)
+;;;  (etypecase stack
+;;;    (null (%run-time-context-slot 'stack-vector))
+;;;    (vector stack)))
 
 (define-compiler-macro current-stack-frame ()
   `(with-inline-assembly (:returns :eax)