[movitz-cvs] CVS movitz

[ffjeld]

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