[movitz-cvs] CVS movitz

[ffjeld]

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

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


--- /project/movitz/cvsroot/movitz/storage-types.lisp	2006/04/10 11:47:41	1.56
+++ /project/movitz/cvsroot/movitz/storage-types.lisp	2006/05/15 19:49:25	1.57
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.56 2006/04/10 11:47:41 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.57 2006/05/15 19:49:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -820,6 +820,11 @@
     :lambda-list lambda-list
     :name name))
 
+(defun funobj-name (x)
+  (typecase x
+    (movitz-funobj
+     (movitz-funobj-name x))))
+
 ;;;
 
 (define-binary-class movitz-funobj-standard-gf (movitz-funobj)