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

revert hot fix to quicklisp

Browse source
This commit is contained in:
David Botton 2024-05-10 15:43:41 -04:00
parent 90b9b9e06e
commit 9c00ec92ef
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

26
tools/clog-builder.lisp
View file

@ -587,18 +587,18 @@ instead of the project window will be displayed."
(format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port) (format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port)
(open-browser :url (format nil "http://127.0.0.1:~A/builder" port)))) (open-browser :url (format nil "http://127.0.0.1:~A/builder" port))))
(in-package #:quicklisp-client) ;;(in-package #:quicklisp-client)
;;
;; patch, if-exists of :rename-and-delete does not work well on windows ;; patch, if-exists of :rename-and-delete does not work well on windows
(defun make-system-index (pathname) ;; (defun make-system-index (pathname)
"Create a system index file for all system files under ;; "Create a system index file for all system files under
PATHNAME. Current format is one native namestring per line." ;; PATHNAME. Current format is one native namestring per line."
(setf pathname (truename pathname)) ;; (setf pathname (truename pathname))
(with-open-file (stream (system-index-file pathname) ;; (with-open-file (stream (system-index-file pathname)
:direction :output ;; :direction :output
:if-exists :overwrite) ;; :if-exists :overwrite)
(dolist (system-file (local-project-system-files pathname)) ;; (dolist (system-file (local-project-system-files pathname))
(let ((system-path (enough-namestring system-file pathname))) ;; (let ((system-path (enough-namestring system-file pathname)))
(write-line (native-namestring system-path) stream))) ;; (write-line (native-namestring system-path) stream)))
(probe-file stream))) ;; (probe-file stream)))