From c338b0c290278eeb10844d69faca93b4fc36a79b Mon Sep 17 00:00:00 2001
From: grue <grue@mail.ru>
Date: Mon, 24 Jul 2006 17:26:36 +0000
Subject: [PATCH] tell ltk not to display warnings

darcs-hash:f8b296440bda3126245e681d4a56eddab321321d
---
 console.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"))
-- 
2.31.1