[movitz-cvs] CVS update: movitz/losp/lib/console.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	console.lisp 
Log Message:
Use unwind-protect rather than m-v-prog1 for restoring console context.

Date: Wed Nov 24 17:23:11 2004
Author: ffjeld

Index: movitz/losp/lib/console.lisp
diff -u movitz/losp/lib/console.lisp:1.5 movitz/losp/lib/console.lisp:1.6
--- movitz/losp/lib/console.lisp:1.5	Mon Jul 12 11:11:56 2004
+++ movitz/losp/lib/console.lisp	Wed Nov 24 17:23:11 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 14 18:14:16 2003
 ;;;;                
-;;;; $Id: console.lisp,v 1.5 2004/07/12 09:11:56 ffjeld Exp $
+;;;; $Id: console.lisp,v 1.6 2004/11/24 16:23:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -28,7 +28,7 @@
        (let ((,x-var (cursor-x ,stream-var))
 	     (,y-var (cursor-y ,stream-var))
 	     (,scroll-var *scroll-offset*))
-	 (multiple-value-prog1 (progn , at body)
+	 (unwind-protect (progn , at body)
 	   (setf (cursor-x ,stream-var) ,x-var
 		 (cursor-y ,stream-var) (- ,y-var (- *scroll-offset* ,scroll-var))))))))