mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 14:51:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'cl-repl': allow renaming file to path with new directories (file dialog)

Browse source
This commit is contained in:
pls.153 2022-12-07 21:26:43 +01:00
parent 3434391067
commit 70d0292019
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/cl-repl/lisp/dialogs.lisp
View file

@ -118,7 +118,7 @@
(qlater 'pop-dialog)))))
(defun rename-file* (from to) ; called from QML
(ensure-directories-exist to) ; for moving files around
(ensure-directories-exist (merge-pathnames to from)) ; for moving files around
(ignore-errors (rename-file from to)))
(defun location (name)