changeset 368: |
6c85d9131c3f |
parent 367: |
494d3b93b29b |
child 369: |
de40bd522c84 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 24 May 2024 20:08:31 -0400 |
files: |
lisp/lib/skel/core/obj.lisp skelfile |
description: |
env stuff |
1.1--- a/lisp/lib/skel/core/obj.lisp Fri May 24 18:11:20 2024 -0400
1.2+++ b/lisp/lib/skel/core/obj.lisp Fri May 24 20:08:31 2024 -0400
1.3@@ -12,6 +12,7 @@
1.4 (defparameter *default-skel-license-kind* :mpl2)
1.5 (declaim (type sk-project *skel-project*))
1.6 (defvar *skel-project*)
1.7+(defvar *skel-env*)
1.8 ;; TODO (defvar *skelfile-boundary* nil "Set an upper bounds on how
1.9 ;; many times and how far to walk an arbitrary file directory.")
1.10
1.11@@ -453,8 +454,7 @@
1.12 (sb-int:keywordicate e)
1.13 (sb-posix:getenv (string-upcase e))))
1.14 (list
1.15- (cons (sb-int:keywordicate (car e)) (cdr e)))))
1.16-
1.17+ (cons (sb-int:keywordicate (car e)) (cadr e)))))
1.18 env)))
1.19 (when-let ((rules (sk-rules self)))
1.20 (setf (sk-rules self) (map 'vector
2.1--- a/skelfile Fri May 24 18:11:20 2024 -0400
2.2+++ b/skelfile Fri May 24 20:08:31 2024 -0400
2.3@@ -11,7 +11,7 @@
2.4 :vc :hg
2.5 :docs ((:org "readme"))
2.6 :scripts "x.lisp"
2.7-:env (home (cc "clang") shell term)
2.8+:env ((cc "clang") shell term (psl-url "https://publicsuffix.org/lisp/public_suffix_list.dat"))
2.9 :rules
2.10 ((all (x compile std prelude build))
2.11 (x ()