tell ltk not to display warnings
Mon Jul 24 10:26:36 PDT 2006 grue@mail.ru
* tell ltk not to display warnings
diff -rN -u old-lifp/console.lisp new-lifp/console.lisp
--- old-lifp/console.lisp 2014-07-29 07:53:19.000000000 -0700
+++ new-lifp/console.lisp 2014-07-29 07:53:19.000000000 -0700
@@ -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"))