changeset 160: |
a0d16a88c5f2 |
parent 159: |
c8e25fa271bc |
child 161: |
c87410230a12 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Sun, 28 Jan 2024 13:08:04 -0500 |
files: |
etc/sbclrc scripts/sbcl-make-bin.sh scripts/sbcl-save-core.sh |
description: |
try registering with ql local projects |
1.1--- a/etc/sbclrc Sun Jan 28 11:55:44 2024 -0500
1.2+++ b/etc/sbclrc Sun Jan 28 13:08:04 2024 -0500
1.3@@ -17,6 +17,6 @@
1.4 (let ((quicklisp-init #P"/usr/local/share/quicklisp/setup.lisp"))
1.5 (when (probe-file quicklisp-init)
1.6 (load quicklisp-init)))
1.7-(pushnew #P"/usr/local/lisp/" ql:*local-project-directories* )
1.8-(pushnew #P"/usr/share/lisp/" ql:*local-project-directories* )
1.9+(pushnew #P"/usr/local/lisp/" ql:*local-project-directories*)
1.10+(pushnew #P"/usr/share/lisp/" ql:*local-project-directories*)
1.11 (pushnew #P"/usr/local/share/lisp/" ql:*local-project-directories*)
2.1--- a/scripts/sbcl-make-bin.sh Sun Jan 28 11:55:44 2024 -0500
2.2+++ b/scripts/sbcl-make-bin.sh Sun Jan 28 13:08:04 2024 -0500
2.3@@ -1,7 +1,7 @@
2.4 #!/usr/bin/env bash
2.5 CORE_SRC=${2:-/usr/local/src/core/}
2.6 FORM="(progn (pushnew #P\"$CORE_SRC\" asdf:*central-registry*) "
2.7-FORM+="(ql:quickload :std) "
2.8+FORM+="(pushnew #P\"$CORE_SRC\" ql:*local-project-directories*) (ql:quickload :std)"
2.9 FORM+=" (ql:quickload \""
2.10 FORM+="${1:-bin/skel}"
2.11 FORM+="\") (asdf:make \""
3.1--- a/scripts/sbcl-save-core.sh Sun Jan 28 11:55:44 2024 -0500
3.2+++ b/scripts/sbcl-save-core.sh Sun Jan 28 13:08:04 2024 -0500
3.3@@ -1,5 +1,5 @@
3.4 #!/bin/sh
3.5 # save an sbcl core image
3.6 CORE_SRC=${2:-/usr/local/src/core/}
3.7-FORM="(progn (pushnew #P\"$CORE_SRC\" asdf:*central-registry*) (ql:quickload :std) ${3} (save-lisp-and-die \"${1:-std.core}\"))"
3.8+FORM="(progn (pushnew #P\"$CORE_SRC\" asdf:*central-registry*) (pushnew #P\"$CORE_SRC\" ql:*local-project-directories*) (ql:quickload :std) ${3} (save-lisp-and-die \"${1:-std.core}\"))"
3.9 sbcl --noinform --non-interactive --eval "$FORM"