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

shorten

Browse source
This commit is contained in:
SANO Masatoshi 2016-12-24 11:12:57 +09:00
parent 639bca7ddd
commit 98e6822b82
2 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/init.ros
View file

@ -9,16 +9,16 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(ros:include "util"))
(defpackage :ros.script.init.3672012201
(:use :cl :ros))
(:use :cl :ros :ros.util))
(in-package :ros.script.init.3672012201)
(defun main (&optional name &rest r)
(if name
(let* ((date (get-universal-time))
(path
(or (probe-file (merge-pathnames (format nil "templates/~A/template.asd" name) (ros.util:homedir)))
(or (probe-file (merge-pathnames (format nil "templates/~A/template.asd" name) (homedir)))
(unless (find #\/ name)
(let ((dir (directory (merge-pathnames (format nil "templates/*/~A/template.asd" name) (ros.util:homedir)))))
(let ((dir (directory (merge-pathnames (format nil "templates/*/~A/template.asd" name) (homedir)))))
(cond
((>= (length dir) 2)
(format *error-output* "ambiguous ~{~A~%~}" dir)

6
lisp/locations.lisp
View file

@ -1,7 +1,3 @@
(cl:in-package :cl-user)
(when (cl:find-package :ros.locations)
(pushnew :ros.locations *features*))
(defpackage :ros.locations
(:use :cl))
(in-package :ros.locations)
@ -48,5 +44,3 @@
(defuri sbcl-bin-uri)
(defuri slime-uri "https://github.com/slime/slime.git")
(push :ros.locations *features*)