[ltk-user] patch for quit

Jason Miller jason at milr.com
Tue Oct 15 22:09:06 UTC 2013

New versions of sbcl will warn on a reference to sb-ext:quit.

Since new versions of sbcl also include asdf3, I just use uiop:quit if
asdf3 is present, and the old code if not.
-------------- next part --------------
Index: ltk.lisp
--- ltk.lisp    (revision 265)
+++ ltk.lisp    (working copy)
@@ -5162,8 +5162,11 @@
     (format *error-output* "An error of has occured: ~%")
     (print-backtrace condition *error-output*)
+    #+asdf3(uiop:quit)
+    #-asdf3
     #+sbcl (quit)
-    #+(or cmu scl) (ext:quit)))
+    #+(or cmu scl) (ext:quit)
+    #-(or cmu scl sbcl)(values)))
 (defun debugger-test (debugger-class)
   (with-ltk (:debugger-class debugger-class :debug-tcl t)

More information about the ltk-user mailing list