mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

correct error

Browse source
This commit is contained in:
David Botton 2024-06-14 14:25:56 -04:00
parent e443a34dc5
commit d01cf432ee
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -643,7 +643,7 @@ PATHNAME. Current format is one native namestring per line."
(setf pathname (truename pathname))
(with-open-file (stream (system-index-file pathname)
:direction :output
:if-exists :nil)
:if-exists nil)
(when stream
(dolist (system-file (local-project-system-files pathname))
(let ((system-path (enough-namestring system-file pathname)))