[clfswm-cvs] r268 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sat Nov 14 17:57:24 2009
New Revision: 268

Log:
Prevent errors while in configuration menu

Modified:
   clfswm/src/clfswm-configuration.lisp

Modified: clfswm/src/clfswm-configuration.lisp
==============================================================================
--- clfswm/src/clfswm-configuration.lisp	(original)
+++ clfswm/src/clfswm-configuration.lisp	Sat Nov 14 17:57:24 2009
@@ -139,8 +139,8 @@
 		     original))))
      (multiple-value-bind (result return)
 	 (query-string (format nil "Configure ~A" string) original)
-       (let ((result-val (eval (read-from-string result)))
-	     (original-val (eval (read-from-string original))))
+       (let ((result-val (ignore-errors (eval (read-from-string result))))
+	     (original-val (ignore-errors (eval (read-from-string original)))))
 	 (if (member return '(:Return :Complet))
 	     (warn-wrong-type result-val original-val)
 	     original-val)))))