Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv32160
Modified Files: procfs-image.lisp Log Message: Minor tweam of procfs debugging.
Date: Mon Aug 16 01:25:29 2004 Author: ffjeld
Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.15 movitz/procfs-image.lisp:1.16 --- movitz/procfs-image.lisp:1.15 Thu Aug 12 08:42:00 2004 +++ movitz/procfs-image.lisp Mon Aug 16 01:25:28 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.15 2004/08/12 15:42:00 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.16 2004/08/16 08:25:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -179,7 +179,7 @@ ((or movitz-funobj movitz-struct movitz-std-instance) object) (t (movitz-print object)))) - (t (c) (list :word-error word c))))) + (serious-condition (c) (list :word-error word c)))))
(defun backtrace (&key (reqs t) print-frames print-returns spartan) (format t "~&Backtracing from EIP = #x~X: "