Plaster
New
List
Login
text
apl
aspx
asterisk
brainfuck
c
c++hdr
c++src
cassandra
ceylon
clojure
clojurescript
cmake
cobol
coffeescript
common-lisp
crystal
csharp
css
cypher-query
cython
d
dart
diff
django
dockerfile
dylan
ebnf
ecl
ecmascript
edn
eiffel
ejs
elm
erb
erlang
ez80
factor
fcl
feature
forth
fortran
fragment
gfm
go
gql
groovy
gss
haml
handlebars-template
haskell
haxe
hive
html
http
httpd-php
httpd-php-open
hxml
ini
java
javascript
json
jsp
jsx
julia
kotlin
latex
less
literate-haskell
lua
mariadb
markdown
mbox
mirc
mscgen
msgenny
mssql
mumps
mysql
n-triples
nesc
nginx-conf
nsis
objectivec
octave
oz
pascal
perl
pgp
pgp-keys
pgp-signature
pgsql
php
pig
plsql
properties
protobuf
puppet
python
q
rpm-changes
rpm-spec
rsrc
ruby
rustsrc
sas
sass
scala
scheme
scss
sieve
slim
smarty
solr
soy
sparql-query
spreadsheet
sql
squirrel
stex
styl
swift
systemverilog
tcl
textile
tiddlywiki
tiki
tlv
tornado
ttcn-asn
ttcn-cfg
turtle
twig
typescript
typescript-jsx
vb
vbscript
velocity
verilog
vertex
vhdl
vue
webidl
xml
xml-dtd
xquery
xu
yaml
z80
default
Visibility:
public
unlisted
private
(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") |#