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

tiny revisions/oversights

Browse source
This commit is contained in:
polos 2019-03-02 22:51:19 +01:00
parent 3501d8e5ac
commit a87a32d60e
4 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doc/EQL-Slime-Integration.htm
View file

@ -50,7 +50,7 @@
return Cnil;
}
</pre>
<p>Now the Lisp closure will run on the UI/main thread, and the implementation of the Qt function <code>runInGuiThread</code> is as simple as:</p>
<p>Now the Lisp closure will run on the UI/main thread, and the implementation of the Qt function <code>runOnUiThread</code> is as simple as:</p>
<pre>
Q_INVOKABLE void runOnUiThread(void* closure) // note Q_INVOKABLE

2
examples/7-Sokoban/eql-sokoban.lisp
View file

@ -123,7 +123,7 @@
(let (pixmaps)
(defun create-item (type)
(let* ((file (in-home (format nil "examples/7-Sokoban/pics/~(~A~).png" type)))
(let* ((file (in-src (format nil "examples/7-Sokoban/pics/~(~A~).png" type)))
(pixmap (cdr (or (assoc file pixmaps :test 'string=)
(first (push (cons file (qnew "QPixmap(QString)" file))
pixmaps)))))

4
helper/generate.lisp
View file

@ -300,7 +300,7 @@
((upper-case-p (char type 0))
(format nil "(~A)0" type))
(t
(error (format nil "No C null value defined for ~S" arg))))))
(error "No C null value defined for ~S" arg)))))
(defun arg-to-simple-c (arg)
(x:cc (if (and (const-p arg)
@ -667,7 +667,7 @@
type
(1+ (if-it (position super methods :test 'string= :key 'class-name*)
it
(error (format t "~%Class missing: ~S~%~%" super)))))
(error "~%Class missing: ~S~%~%" super))))
"QObject")
class)
(dolist (fun (rest obj))

2
my_app/tr.lisp
View file

@ -22,5 +22,5 @@
context
source
(if (= -1 n) "" (format nil ", ~D" n))))
(error (format nil "[TR: error] ~S from context ~S doesn't evaluate to a string" src context)))))
(error "[TR: error] ~S from context ~S doesn't evaluate to a string" src context))))
form))