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