sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tiny revisions

Browse source
This commit is contained in:
polos 2016-11-29 14:33:39 +01:00
parent 7bef996a8e
commit 39bd46a814
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/9-simple-lisp-editor/editor.lisp
View file

@ -1047,8 +1047,8 @@
("setStandardButtons" (logior |QMessageBox.Yes| |QMessageBox.No|))
("setDefaultButton(QMessageBox::StandardButton)" |QMessageBox.No|)
("exec")))))
(! "startDetached" "QProcess" "eql" (list "-norc" (or (path-to-server "eql-local-server.fas")
(path-to-server "local-server.lisp"))))
(! "startDetached" "QProcess" "eql5" (list "-norc" (or (path-to-server "eql-local-server.fas")
(path-to-server "local-server.lisp"))))
;; wait max. 15 seconds
(dotimes (i 150)
(qprocess-events)

2
src/lisp/quic.lisp
View file

@ -38,7 +38,7 @@
*line-nr* 0)
(with-open-file (in ui.h :direction :input)
(with-open-file (out ui.lisp :direction :output :if-exists :supersede)
(format out ";;; THIS FILE IS GENERATED (see 'eql -quic')~
(format out ";;; THIS FILE IS GENERATED (see 'eql5 -quic')~
~%~
~%(defpackage ~(~S~)~% (:use :common-lisp :eql)"
ui-package)