From: grue <grue@mail.ru>
Date: Mon, 24 Jul 2006 17:26:36 +0000 (+0000)
Subject: tell ltk not to display warnings
X-Git-Url: https://jxself.org/git/?p=lifp.git;a=commitdiff_plain;h=c338b0c290278eeb10844d69faca93b4fc36a79b

tell ltk not to display warnings

darcs-hash:f8b296440bda3126245e681d4a56eddab321321d
---

diff --git a/console.lisp b/console.lisp
index 86588b1..402d2af 100644
--- a/console.lisp
+++ b/console.lisp
@@ -153,7 +153,7 @@
 (defun run-console (startup lib-loader &key (interactive nil))
   (if *repl-mode* (progn (funcall startup) 
 			 (return-from run-console t))
-  (with-ltk (:debug :develop)
+  (with-ltk (:debug :develop :handle-warnings nil)
       (let* ((txt (make-instance 'text))
 	     (menu (make-menubar))
 	     (m-file (make-menu menu "File"))