tell ltk not to display warnings

[lifp.git] / console.lisp

diff --git a/console.lisp b/console.lisp
index 7bf4f140c0b8dbd50ab6bd0f50ea061937a56ce7..402d2afb3d90494b15f9f363a5667936529c0db6 100644 (file)
--- a/console.lisp
+++ b/console.lisp
@@ -6,7 +6,7 @@
 \r
 (in-package :cl-user)\r
 (defpackage :if-console\r
-  (:use :common-lisp :ltk :com.gigamonkeys.pathnames)\r
+  (:use :common-lisp :ltk :cl-fad)\r
   (:export :terminal-in :terminal-out\r
    :run-console :console-running-p :textwidth :offset :style\r
    :*text* :get-input :ltk-after :*repl-mode* :*no-output*\r
@@ -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 ()\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