[movitz-cvs] CVS update: movitz/procfs-image.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv27398

Modified Files:
	procfs-image.lisp 
Log Message:
*** empty log message ***
Date: Tue May  3 22:11:44 2005
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.23 movitz/procfs-image.lisp:1.24
--- movitz/procfs-image.lisp:1.23	Sun Apr 24 22:36:44 2005
+++ movitz/procfs-image.lisp	Tue May  3 22:11:43 2005
@@ -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.23 2005/04/24 20:36:44 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.24 2005/05/03 20:11:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -130,7 +130,9 @@
      (map 'vector #'movitz-print (movitz-vector-symbolic-data expr)))
     (movitz-cons
      (cons (movitz-print (movitz-car expr))
-	   (movitz-print (movitz-cdr expr))))))
+	   (movitz-print (movitz-cdr expr))))
+    (movitz-funobj
+     expr)))
 
 
 (defmethod report-gdtr ((image bochs-image))