From 8aff54a1a63e8f1df06ebf6f5d645c466ede8a3f Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 5 Aug 2019 10:57:19 +0100
Subject: [PATCH] asdf-hack.lisp.in: Shore up and distribute.

For a long time, this was a private hack.  Shoring up involved using
`*load-pathname*' to find the right directory, and /that/ requires
actually having the hack be in the build directory rather than the
source, and that involves having the makefile put it there, and then it
needs shipping.
---
 Makefile.am       | 7 +++++++
 asdf-hack.lisp.in | 6 ++++++
 vars.am           | 1 +
 3 files changed, 14 insertions(+)
 create mode 100644 asdf-hack.lisp.in

diff --git a/Makefile.am b/Makefile.am
index c4fdc05..13b559f 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -56,6 +56,13 @@ SUBDIRS			+= test
 ###--------------------------------------------------------------------------
 ### Additional random things useful during development.
 
+## ASDF hacking for finding the system definitions.
+EXTRA_DIST		+= asdf-hack.lisp.in
+noinst_DATA		+= asdf-hack.lisp
+asdf-hack.lisp: asdf-hack.lisp.in Makefile
+	$(SUBST) $(srcdir)/asdf-hack.lisp.in >$@.new $(SUBSTITUTIONS) && \
+		mv $@.new $@
+
 ## Emacs hacking for indentation.
 EXTRA_DIST		+= emacs-hacks.el
 
diff --git a/asdf-hack.lisp.in b/asdf-hack.lisp.in
new file mode 100644
index 0000000..90125c2
--- /dev/null
+++ b/asdf-hack.lisp.in
@@ -0,0 +1,6 @@
+;; -*-lisp-*-
+
+(declaim (optimize debug))
+(asdf:initialize-source-registry
+ `(:source-registry :inherit-configuration
+		    (:directory (,*load-pathname* "src"))))
diff --git a/vars.am b/vars.am
index 07735d1..e4406ca 100644
--- a/vars.am
+++ b/vars.am
@@ -42,6 +42,7 @@ BUILT_SOURCES		 =
 bin_PROGRAMS		 =
 check_PROGRAMS		 =
 pkginclude_HEADERS	 =
+noinst_DATA		 =
 TESTS			 =
 
 dist_man_MANS		 =
-- 
2.11.0