simyager/lspack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

parse cli arguments and call create project in main

Browse Source
This commit is contained in:
emre
2026-07-02 10:34:30 +03:00
parent 7609fcc6c8
commit e8d4483aa0
4 changed files with 88 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/starter.lisp
+5 -5
View File
@@ -61,12 +61,12 @@
:if-exists :supersede
:if-does-not-exist :create)
(project-defsystem-write project out))
(format *error-output* "~&Created ~S" path)))
(format *error-output* "~&Created ~S~%" path)))
(defmethod project-ensure-root ((project <project>))
(with-slots (root) project
(ensure-directories-exist (uiop:physicalize-pathname root))
(format *error-output* "~&Starting project at ~S" root)))
(format *error-output* "~&Starting project at ~S~%" root)))
(defmethod project-source-pathname ((project <project>))
(uiop:merge-pathnames* (uiop:ensure-directory-pathname (project-pathname project))
@@ -78,7 +78,7 @@
(format *error-output* "~&Source directory: ~S" src)
(unless (string= pathname "")
(ensure-directories-exist (uiop:physicalize-pathname src))
(format *error-output* " created.")))))
(format *error-output* " created.~%")))))
(defmethod project-write-notice ((project <project>) stream)
(uiop:if-let ((notice (get-notice (project-license project))))
@@ -95,7 +95,7 @@
:if-does-not-exist :create)
(project-write-notice project out)
(format out "~&(defpackage :~a~% (:use :cl))~%" name))
(format *error-output* "~&Created ~S" path))))
(format *error-output* "~&Created ~S~%" path))))
(defmethod project-license-create ((project <project>))
(let ((license (get-license (project-license project))))
@@ -108,7 +108,7 @@
:if-exists :supersede
:if-does-not-exist :create)
(funcall writer project out))
(format *error-output* "~&Created ~S" license-file))))))
(format *error-output* "~&Created ~S~%" license-file))))))
(defmethod project-start ((project <project>))
(project-ensure-root project)