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@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)