mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-05 18:20:36 -08:00
Code Issues Projects Releases Wiki Activity

use asdf:load-system

Browse source
This commit is contained in:
David Botton 2024-05-10 16:25:33 -04:00
parent 9c00ec92ef
commit 2cf7ec9974
2 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-projects.lisp
View file

@ -21,7 +21,7 @@
(setf (project-win app) nil))))))) (setf (project-win app) nil)))))))
(defun projects-load (fname) (defun projects-load (fname)
(funcall (read-from-string "ql:quickload") fname)) (funcall (read-from-string "asdf:load-system") fname))
(defun projects-list-local-systems () (defun projects-list-local-systems ()
(funcall (read-from-string "ql:list-local-systems"))) (funcall (read-from-string "ql:list-local-systems")))

29
tools/clog-builder.lisp
View file

@ -587,18 +587,19 @@ 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) #+windows
;; "Create a system index file for all system files under (defun make-system-index (pathname)
;; PATHNAME. Current format is one native namestring per line." "Create a system index file for all system files under
;; (setf pathname (truename pathname)) PATHNAME. Current format is one native namestring per line."
;; (with-open-file (stream (system-index-file pathname) (setf pathname (truename pathname))
;; :direction :output (with-open-file (stream (system-index-file pathname)
;; :if-exists :overwrite) :direction :output
;; (dolist (system-file (local-project-system-files pathname)) :if-exists :overwrite)
;; (let ((system-path (enough-namestring system-file pathname))) (dolist (system-file (local-project-system-files pathname))
;; (write-line (native-namestring system-path) stream))) (let ((system-path (enough-namestring system-file pathname)))
;; (probe-file stream))) (write-line (native-namestring system-path) stream)))
(probe-file stream)))