Plaster
New
List
Login
common-lisp
default
anonymous
2018.12.19 08:53:09
(defpackage #:qt-test (:use #:cl+qt)) (in-package #:qt-test) (in-readtable :qt) (defun main () (make-qapplication) (with-objects ((window (#_new QWidget))) (#_show window) (let ((dialog (#_new QFileDialog window "" "" ""))) (#_setOption dialog #x01 t) (#_setOption dialog #x10 nil) (#_setFileMode dialog 2) (unwind-protect (when (= 1 (#_exec dialog)) (print (first (#_selectedFiles dialog)))) (finalize dialog))) (#_exec *qapplication*))) * (qt-test::main) #| debugger invoked on a SB-WIN32:EXCEPTION in thread #<THREAD "main thread" RUNNING {1001470613}>: An exception occurred in context #.(SB-SYS:INT-SAP #X0022C2C0): #.(SB-SYS:INT- SAP #X0022D4D0). (Exception code: 1722) Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Return from the exception handler 1: [ABORT ] Exit debugger, returning to top level. (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C2C0) #.(SB-SYS:INT-SA P #X0022D4D0)) 0] BACKTRACE Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001470613}> 0: (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C2C0) #.(SB-SYS:INT -SAP #X0022D4D0)) 1: ("foreign function: call_into_lisp") 2: ("foreign function: funcall2") 3: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DB8B}>) 4: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DB0B}>) 5: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DA8B}>) 6: ((LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER) (#<Qt::QWidget { 101B55C1F3}> #1="" #1# #1#) #<CLOSURE (LAMBDA (QT::STACK) :IN QT::%%CALL) {101B5 5D9CB}>) 7: (QT::%%NEW #<Qt::QFileDialog {101B55CD33}> (#<Qt::QWidget {101B55C1F3}> #1= "" #1# #1#) #<CLOSURE (LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER) {101B55D92B}> #.(SB-SYS:INT-SAP #X7FED6BB5550) 9 #.(SB-SYS:INT-SAP #X003253B0)) 8: (QT-TEST::MAIN) 9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QT-TEST::MAIN) #<NULL-LEXENV>) 10: (EVAL (QT-TEST::MAIN)) 11: (INTERACTIVE-EVAL (QT-TEST::MAIN) :EVAL NIL) 12: (SB-IMPL::REPL-FUN NIL) 13: ((FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP")) 14: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;COD E;TOPLEVEL.LISP") {22F7FB}>) 15: (SB-IMPL::TOPLEVEL-REPL NIL) 16: (SB-IMPL::TOPLEVEL-INIT) 17: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE)) 18: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE)) 19: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) 20: ("foreign function: call_into_lisp") 21: ("foreign function: funcall0") |#
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2018.12.19 09:38:03
debugger invoked on a SB-WIN32:EXCEPTION in thread #<THREAD "main thread" RUNNING {1001470613}>: An exception occurred in context #.(SB-SYS:INT-SAP #X0022C470): #.(SB-SYS:INT- SAP #X0022D680). (Exception code: 1722) Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Return from the exception handler 1: [ABORT ] Exit debugger, returning to top level. (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C470) #.(SB-SYS:INT-SA P #X0022D680)) 0] BACKTRACE Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001470613}> 0: (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C470) #.(SB-SYS:INT -SAP #X0022D680)) 1: ("foreign function: call_into_lisp") 2: ("foreign function: funcall2") 3: ((LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER) (#<Qt::QWidget { 102C497E23}> 17) #<CLOSURE (LAMBDA (QT::STACK) :IN QT::%%CALL) {102C49911B}>) 4: (QT::%%NEW #<Qt::QFileDialog {102C498513}> (#<Qt::QWidget {102C497E23}> 17) #<CLOSURE (LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER) {102C49907 B}> #.(SB-SYS:INT-SAP #X7FED6CD5550) 8 #.(SB-SYS:INT-SAP #X003953B0)) 5: (QT-TEST::MAIN) 6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QT-TEST::MAIN) #<NULL-LEXENV>) 7: (EVAL (QT-TEST::MAIN)) 8: (INTERACTIVE-EVAL (QT-TEST::MAIN) :EVAL NIL) 9: (SB-IMPL::REPL-FUN NIL) 10: ((FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP")) 11: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;COD E;TOPLEVEL.LISP") {22F7FB}>) 12: (SB-IMPL::TOPLEVEL-REPL NIL) 13: (SB-IMPL::TOPLEVEL-INIT) 14: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE)) 15: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE)) 16: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) 17: ("foreign function: call_into_lisp") 18: ("foreign function: funcall0")
Raw
Repaste
Edit