[movitz-cvs] CVS movitz/losp/lib

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/lib
In directory clnet:/tmp/cvs-serv14937

Modified Files:
	readline.lisp 
Log Message:
Don't modify condition.


--- /project/movitz/cvsroot/movitz/losp/lib/readline.lisp	2005/10/31 09:17:07	1.8
+++ /project/movitz/cvsroot/movitz/losp/lib/readline.lisp	2007/03/11 22:43:46	1.9
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov  2 13:58:58 2001
 ;;;;                
-;;;; $Id: readline.lisp,v 1.8 2005/10/31 09:17:07 ffjeld Exp $
+;;;; $Id: readline.lisp,v 1.9 2007/03/11 22:43:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -128,15 +128,12 @@
       (write-string buffer t :end end)
       (setf (cursor-x console) (+ cursor-origin pos)))
     (loop with previous-key-was-tab-p = nil
-	with keypress-condition = (when *readline-signal-keypresses*
-				    (make-condition 'readline-keypress))
 	and displayed-completions-p = nil
 	as key = (muerte:read-key console)
 	do (with-saved-excursion (console)
-	     (when keypress-condition
-	       (setf (readline-keypress-key keypress-condition) key)
+	     (when *readline-signal-keypresses*
 	       (with-simple-restart (continue "Proceed with interactive READLINE.")
-		 (signal keypress-condition))))
+		 (signal 'readline-keypress :key key))))
 	   (when (characterp key)
 	     (unless (char= key #\tab)
 	       (setf previous-key-was-tab-p nil))