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

[Frode Vatvedt Fjeld]

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

Modified Files:
	procfs-image.lisp 
Log Message:
Minor tweaks.

Date: Wed Jul 28 17:00:59 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.12 movitz/procfs-image.lisp:1.13
--- movitz/procfs-image.lisp:1.12	Wed Jul 28 03:00:40 2004
+++ movitz/procfs-image.lisp	Wed Jul 28 17:00:59 2004
@@ -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.12 2004/07/28 10:00:40 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.13 2004/07/29 00:00:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -179,7 +179,7 @@
 	    ((or movitz-funobj movitz-struct movitz-std-instance)
 	     object)
 	    (t (movitz-print object))))
-      (t () (list :unknown-word word)))))
+      (t (c) (list :word-error word c)))))
 
 (defun backtrace (&key (reqs t) print-frames print-returns spartan)
   (format t "~&Backtracing from EIP = #x~X: "
@@ -233,7 +233,7 @@
   (unless (zerop (ldb (byte 2 0) address))
     (warn "Non-aligned address to GET-WORD: #x~8,'0X." address))
   (setf (image-stream-position *image* physicalp) address)
-  (read-binary 'word (image-stream *image*)))
+  (values (read-binary 'word (image-stream *image*))))
 
 (defun do-stack-frame (frame-address count)
   (warn "Frame ~D: #x~8,'0X" count frame-address)