X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=console.lisp;h=86588b1815d8f115b207a42e35ed886040ca744d;hb=0b54e760a0bb4044372a2407ee959b37952d3e4d;hp=7bf4f140c0b8dbd50ab6bd0f50ea061937a56ce7;hpb=bb182c7eda90fcb76d7bbf99b13a49d40c0a8847;p=lifp.git

diff --git a/console.lisp b/console.lisp
index 7bf4f14..86588b1 100644
--- a/console.lisp
+++ b/console.lisp
@@ -6,7 +6,7 @@
 
 (in-package :cl-user)
 (defpackage :if-console
-  (:use :common-lisp :ltk :com.gigamonkeys.pathnames)
+  (:use :common-lisp :ltk :cl-fad)
   (:export :terminal-in :terminal-out
    :run-console :console-running-p :textwidth :offset :style
    :*text* :get-input :ltk-after :*repl-mode* :*no-output*
@@ -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 ()
+  (with-ltk (:debug :develop)
       (let* ((txt (make-instance 'text))
 	     (menu (make-menubar))
 	     (m-file (make-menu menu "File"))