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

debug

Browse source
This commit is contained in:
SANO Masatoshi 2016-10-30 21:37:48 +09:00
parent c0677151ce
commit 94568ef91a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/util-install.lisp
View file

@ -91,12 +91,13 @@ ARGV2 contains a (possibly modified) ARGV.")
(defun install-localpath-if-probed (namestring)
;; tbd
(when (and (eql #\. (aref path 0))
(find #\/ path))
(when (and (eql #\. (aref namestring 0))
(find #\/ namestring))
(let* ((path (truename namestring))
(system (or (pathname-name path)
(first (last (pathname-directory path)))))
(dir (make-pathname :defaults path :name nil :type nil)))
(declare (ignore system dir))
)))
(defun github-version (uri project filter)