Commit 4ac4929e authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Minor tweaks.

parent 0df447c0
......@@ -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.11 2004/07/23 15:32:55 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.12 2004/07/28 10:00:40 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)
......
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