diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-16 11:56:31 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-16 19:04:32 -0700 |
commit | 8fa41a15f184660ab5bda5f86d645ba9b2582389 (patch) | |
tree | b532dba4b6862c6ab8b47c99f06e8a498422dda7 /src/property/schroot.lisp | |
parent | 91c96c933523c1a6a622061682c26a936068b295 (diff) | |
download | consfigurator-8fa41a15f184660ab5bda5f86d645ba9b2582389.tar.gz |
support indented heredocs, add new "Reader macros" manual section
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/schroot.lisp')
-rw-r--r-- | src/property/schroot.lisp | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/property/schroot.lisp b/src/property/schroot.lisp index e528f10..3601c45 100644 --- a/src/property/schroot.lisp +++ b/src/property/schroot.lisp @@ -44,22 +44,22 @@ Implicitly sets SCHROOT:USES-OVERLAYS. Shell script from <https://wiki.debian.org/sbuild>." (:desc "schroot overlays in tmpfs") (:hostattrs (push-hostattr 'uses-overlays t)) - (:apply (file:has-content "/etc/schroot/setup.d/04tmpfs" -#>EOF>#!/bin/sh + (:apply + (file:has-content "/etc/schroot/setup.d/04tmpfs" #>>~EOF>> + #!/bin/sh -set -e + set -e -. "$SETUP_DATA_DIR/common-data" -. "$SETUP_DATA_DIR/common-functions" -. "$SETUP_DATA_DIR/common-config" + . "$SETUP_DATA_DIR/common-data" + . "$SETUP_DATA_DIR/common-functions" + . "$SETUP_DATA_DIR/common-config" - -if [ $STAGE = "setup-start" ]; then - mount -t tmpfs overlay /var/lib/schroot/union/overlay -elif [ $STAGE = "setup-recover" ]; then - mount -t tmpfs overlay /var/lib/schroot/union/overlay -elif [ $STAGE = "setup-stop" ]; then - umount -f /var/lib/schroot/union/overlay -fi -EOF :mode #o755)) + if [ $STAGE = "setup-start" ]; then + mount -t tmpfs overlay /var/lib/schroot/union/overlay + elif [ $STAGE = "setup-recover" ]; then + mount -t tmpfs overlay /var/lib/schroot/union/overlay + elif [ $STAGE = "setup-stop" ]; then + umount -f /var/lib/schroot/union/overlay + fi + EOF :mode #o755)) (:unapply (file:does-not-exist "/etc/schroot/setup.d/04tmpfs"))) |