changeset 367: |
494d3b93b29b |
parent 366: |
2b7f0c032fc7 |
child 368: |
6c85d9131c3f |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 24 May 2024 18:11:20 -0400 |
files: |
skelfile x.lisp |
description: |
req fetch coping |
1.1--- a/skelfile Fri May 24 14:51:25 2024 -0400
1.2+++ b/skelfile Fri May 24 18:11:20 2024 -0400
1.3@@ -24,7 +24,7 @@
1.4 #$find emacs -name '*.elc' -type f -delete$#
1.5 #$find lisp -name '*.fasl' -type f -delete$#
1.6 #$echo 'cargo clean:' && cd rust && cargo clean$#)
1.7- (psl.dat ()
1.8+ (psl.dat () ;; req:fetch works in slime and sk-shell but not here? hmm..
1.9 (with-open-file (st ".stash/psl.dat" :direction :output :element-type 'octet)
1.10 (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t)
1.11 do (write-byte x st))))
1.12@@ -38,8 +38,8 @@
1.13 (std (x) #$./x save std$#)
1.14 (prelude (x) #$./x save prelude$#)
1.15 (box () #$podman build . --build-arg IMAGE=box -t core$#)
1.16- ;; x does the same thing, having issues with passing the shell input
1.17- ;; to SKEL though.
1.18+ ;; x does the same thing, but prompts for sudo -- having issues with
1.19+ ;; passing the shell input to SKEL though.
1.20 (install () #$d=/usr/local/bin
1.21 cd .stash
1.22 for f in $(find . -type f ! -name "*.*")
2.1--- a/x.lisp Fri May 24 14:51:25 2024 -0400
2.2+++ b/x.lisp Fri May 24 18:11:20 2024 -0400
2.3@@ -36,7 +36,7 @@
2.4 (require 'sb-cltl2)
2.5 (require 'sb-cover)
2.6 (require 'sb-sprof)
2.7-
2.8+(use-package :sb-gray)
2.9 ;; (require 'sb-aclrepl)
2.10 (sb-ext:enable-debugger)
2.11 (defvar *core-path* (directory-namestring #.(or *load-truename* *compile-file-truename* (error "run me as an executable!"))))