Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4599
Modified Files: procfs-image.lisp Log Message: Invoke debugger with a string only.
--- /project/movitz/cvsroot/movitz/procfs-image.lisp 2005/05/03 20:11:43 1.24 +++ /project/movitz/cvsroot/movitz/procfs-image.lisp 2006/04/10 11:46:25 1.25 @@ -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.24 2005/05/03 20:11:43 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.25 2006/04/10 11:46:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -319,10 +319,11 @@ (let ((x (eval form))) (format t "~&~W" x) x) - (invoke-debugger "Established Bochs session [pid=~D]. ~S is ~S" - (image-pid image) - '*previous-image* - *previous-image*))))))) + (invoke-debugger + (format nil "Established Bochs session [pid=~D]. ~S is ~S" + (image-pid image) + '*previous-image* + *previous-image*))))))))
#+allegro (top-level:alias ("unbochs" 3) (&optional form)
-
ffjeld