Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv7295

Modified Files: procfs-image.lisp Log Message: Move funobj-name to storage-types.lisp.

--- /project/movitz/cvsroot/movitz/procfs-image.lisp 2006/04/10 11:46:25 1.25 +++ /project/movitz/cvsroot/movitz/procfs-image.lisp 2006/05/15 19:49:23 1.26 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Aug 24 11:39:37 2001 ;;;; -;;;; $Id: procfs-image.lisp,v 1.25 2006/04/10 11:46:25 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.26 2006/05/15 19:49:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -238,11 +238,6 @@ do (format t "~& => "))) (values))

-(defun funobj-name (x) - (typecase x - (movitz-funobj - (movitz-funobj-name x)))) - (defun stack-frame (image) (do-stack-frame (image-register32 image :ebp) 0))