Commit bc0ef8b8 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Move funobj-name to storage-types.lisp.

parent 30f66192
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Fri Aug 24 11:39:37 2001 ;;;; Created at: Fri Aug 24 11:39:37 2001
;;;; ;;;;
;;;; $Id: procfs-image.lisp,v 1.24 2005/05/03 20:11:43 ffjeld Exp $ ;;;; $Id: procfs-image.lisp,v 1.25 2006/04/10 11:46:25 ffjeld Exp $
;;;; ;;;;
;;;;------------------------------------------------------------------ ;;;;------------------------------------------------------------------
...@@ -238,11 +238,6 @@ ...@@ -238,11 +238,6 @@
do (format t "~& => "))) do (format t "~& => ")))
(values)) (values))
(defun funobj-name (x)
(typecase x
(movitz-funobj
(movitz-funobj-name x))))
(defun stack-frame (image) (defun stack-frame (image)
(do-stack-frame (image-register32 image :ebp) 0)) (do-stack-frame (image-register32 image :ebp) 0))
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Created at: Sun Oct 22 00:22:43 2000
;;;; Distribution: See the accompanying file COPYING. ;;;; Distribution: See the accompanying file COPYING.
;;;; ;;;;
;;;; $Id: storage-types.lisp,v 1.55 2005/07/21 18:48:33 ffjeld Exp $ ;;;; $Id: storage-types.lisp,v 1.56 2006/04/10 11:47:41 ffjeld Exp $
;;;; ;;;;
;;;;------------------------------------------------------------------ ;;;;------------------------------------------------------------------
...@@ -820,6 +820,11 @@ integer (native lisp) value." ...@@ -820,6 +820,11 @@ integer (native lisp) value."
:lambda-list lambda-list :lambda-list lambda-list
:name name)) :name name))
(defun funobj-name (x)
(typecase x
(movitz-funobj
(movitz-funobj-name x))))
;;; ;;;
(define-binary-class movitz-funobj-standard-gf (movitz-funobj) (define-binary-class movitz-funobj-standard-gf (movitz-funobj)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment