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 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; 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 @@
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))
......
......@@ -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.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."
: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)
......
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