Commit dcd43ff1 authored by Eric Timmons's avatar Eric Timmons
Browse files

Switch to logical pathnames

parent ca071d38
......@@ -13,6 +13,6 @@
:version (:read-file-form "src/clpm/version.lisp" :at (2 2))
:description "A Common Lisp Package Manager"
:license "BSD-2-Clause"
:pathname "src/clpm-build/"
:pathname #p"clpm:src;clpm-build;"
:class :package-inferred-system
:depends-on (#:clpm-build/clpm-build))
......@@ -13,7 +13,7 @@
:version (:read-file-form "src/clpm/version.lisp" :at (2 2))
:description "A Common Lisp Package Manager"
:license "BSD-2-Clause"
:pathname "src/clpm/"
:pathname #p"clpm:src;clpm;"
:class :package-inferred-system
:defsystem-depends-on (#:clpm-build #:deploy)
:entry-point "clpm/cli/entry:main"
......
(in-package :cl-user)
;; Configure our logical pathnames.
;;
;; When using SLIME, LOAD this file (C-c C-l), not COMPILE and LOAD (C-c C-k).
(let ((clpm-root (uiop:pathname-directory-pathname (uiop:ensure-absolute-pathname *load-pathname*))))
(setf (logical-pathname-translations "clpm")
`(("clpm:src;**;*.*.*" ,(merge-pathnames "src/**/*.*" clpm-root)))))
......@@ -10,6 +10,8 @@
(in-package #:clpm-scripts)
(load (merge-pathnames "../logical-pathname.lisp" *load-truename*))
(setup-asdf "default")
(format uiop:*stderr*
......
......@@ -10,6 +10,8 @@
(in-package #:clpm-scripts)
(load (merge-pathnames "../logical-pathname.lisp" *load-truename*))
(setup-asdf "live")
;; Load CLPM
......
......@@ -13,9 +13,7 @@
(defvar *default-clpm-home* nil)
(deploy:define-resource-directory deploy-groveler "src/clpm-groveler/")
(deploy:define-resource-directory deploy-client "src/clpm-client/")
(deploy:define-resource-directory deploy-src "src/")
(uiop:register-image-restore-hook
(lambda ()
......@@ -29,7 +27,10 @@
(deploy:runtime-directory))))
(setf deploy:*data-location* (uiop:truenamize (uiop:ensure-directory-pathname
(uiop:ensure-absolute-pathname clpm-home))))
(setf *clpm-groveler-asd-pathname* (merge-pathnames "clpm-groveler/clpm-groveler.asd"
;; Fixup the logical pathnames
(setf (logical-pathname-translations "clpm")
`(("clpm:src;**;*.*.*" ,(merge-pathnames "src/**/*.*" deploy:*data-location*))))
(setf *clpm-groveler-asd-pathname* (merge-pathnames "src/clpm-groveler/clpm-groveler.asd"
deploy:*data-location*))
(unless (uiop:probe-file* clpm-home)
(format *error-output*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment