tell ltk not to display warnings

darcs-hash:f8b296440bda3126245e681d4a56eddab321321d

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