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

[Frode Vatvedt Fjeld]

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

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

Date: Tue Apr  6 10:35:36 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.3 movitz/procfs-image.lisp:1.4
--- movitz/procfs-image.lisp:1.3	Thu Feb  5 09:19:36 2004
+++ movitz/procfs-image.lisp	Tue Apr  6 10:35:36 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.3 2004/02/05 14:19:36 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.4 2004/04/06 14:35:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -270,12 +270,12 @@
 
 
 #+allegro
-(top-level:alias ("bochs" 0) (&rest forms)
+(top-level:alias ("bochs" 0) (&optional form)
   (with-bochs-image ()
     (with-simple-restart (continue "Exit this bochs session [pid=~D]" (image-pid *image*))
-      (if forms
-	  (let ((x (multiple-value-list (eval (cons 'progn forms)))))
-	    (format t "~{~&~W~}" x)
-	    (values-list x))
+      (if form
+	  (let ((x (eval form)))
+	    (format t "~&~W" x)
+	    x)
 	(invoke-debugger "Established connection to Bochs [pid=~D]."
 			 (image-pid *image*))))))