common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix duplicate addition by "ros template add"

Browse source
This commit is contained in:
eshamster 2018-02-10 03:38:00 +00:00
parent 445d335392
commit 84e7192115
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/util-template.lisp
View file

@ -203,7 +203,7 @@
(info (template-read template-name)))
(uiop:copy-file path-copy-from
(ensure-directories-exist (template-file-path template-name file-name)))
(unless (find file-name (getf info :files) :key (lambda (x) (getf x :name)))
(unless (find file-name (getf info :files) :key (lambda (x) (getf x :name)) :test 'equal)
(push (list :name file-name :method "copy") (getf info :files)))
(template-write template-name info)))