1.1--- a/lisp/lib/dat/dat.asd Fri May 24 20:08:31 2024 -0400
1.2+++ b/lisp/lib/dat/dat.asd Sun May 26 15:39:55 2024 -0400
1.3@@ -1,6 +1,6 @@
1.4 (defsystem :dat
1.5 :description "Data formats"
1.6- :depends-on (:cl-ppcre :std :obj :png :flexi-streams)
1.7+ :depends-on (:cl-ppcre :std :obj #+png :png :flexi-streams)
1.8 :version "0.1.0"
1.9 :serial t
1.10 :components ((:file "pkg")
1.11@@ -22,8 +22,9 @@
1.12 (:file "toml")
1.13 (:file "arff")
1.14 (:file "midi")
1.15+ #+png (:file "png")
1.16 (:file "base64")
1.17- #+nil (:file "bencode"))
1.18+ #+bencode (:file "bencode"))
1.19 :in-order-to ((test-op (test-op "dat/tests"))))
1.20
1.21 (defsystem :dat/tests
2.1--- a/lisp/lib/dat/pkg.lisp Fri May 24 20:08:31 2024 -0400
2.2+++ b/lisp/lib/dat/pkg.lisp Sun May 26 15:39:55 2024 -0400
2.3@@ -208,7 +208,7 @@
2.4 (:use :cl :std :dat/proto))
2.5
2.6 (defpackage :dat/png
2.7- (:use :cl :std :dat/proto :png))
2.8+ (:use :cl :std :dat/proto #+png :png))
2.9
2.10 (uiop:define-package :dat
2.11 (:use-reexport :dat/proto :dat/csv :dat/arff :dat/toml :dat/json :dat/sxp :dat/xml :dat/bencode
3.1--- a/lisp/lib/net/proto/http.lisp Fri May 24 20:08:31 2024 -0400
3.2+++ b/lisp/lib/net/proto/http.lisp Sun May 26 15:39:55 2024 -0400
3.3@@ -325,7 +325,7 @@
3.4
3.5 ;;; byte-vector
3.6 (defconstant +cr+ (char-code #\Return))
3.7-(defconstant +lf+ (char-code #\Newline))
3.8+(defconstant +lf+ (char-code #\Linefeed))
3.9 (defconstant +space+ (char-code #\Space))
3.10 (defconstant +tab+ (char-code #\Tab))
3.11 (defconstant +page+ (char-code #\Page))
4.1--- a/lisp/lib/packy/db.lisp Fri May 24 20:08:31 2024 -0400
4.2+++ b/lisp/lib/packy/db.lisp Sun May 26 15:39:55 2024 -0400
4.3@@ -1,29 +1,29 @@
4.4 (in-package :packy/core)
4.5
4.6-(defclass packy-database (database) ()
4.7+(defclass packy-db (database) ()
4.8 (:default-initargs
4.9 :db (make-rdb "packy" (default-rdb-opts) #())))
4.10
4.11 (defmethod make-db ((engine (eql :packy)) &rest initargs &key &allow-other-keys)
4.12- (apply #'make-instance 'packy-database initargs))
4.13+ (apply #'make-instance 'packy-db initargs))
4.14
4.15-(defmethod connect-db ((db packy-database) &key &allow-other-keys)
4.16+(defmethod connect-db ((db packy-db) &key &allow-other-keys)
4.17 (open-db (db db)))
4.18
4.19-(defmethod db-query ((db packy-database) query &key &allow-other-keys))
4.20+(defmethod db-query ((db packy-db) query &key &allow-other-keys))
4.21
4.22-(defmethod db-get ((db packy-database) (key simple-string) &key &allow-other-keys)
4.23+(defmethod db-get ((db packy-db) (key simple-string) &key &allow-other-keys)
4.24 ;; lol
4.25 (with-db (db (db db))
4.26 (get-kv-str-raw db key)))
4.27
4.28-(defmethod close-db ((db packy-database) &key &allow-other-keys)
4.29+(defmethod close-db ((db packy-db) &key &allow-other-keys)
4.30 (close-db (db db)))
4.31
4.32-(defmethod destroy-db ((db packy-database))
4.33+(defmethod destroy-db ((db packy-db))
4.34 (destroy-db (db db)))
4.35
4.36-(defmethod get-val ((obj packy-database) (elt simple-string) &optional data-type)
4.37+(defmethod get-val ((obj packy-db) (elt simple-string) &optional data-type)
4.38 (declare (ignore data-type))
4.39 (db-get obj elt))
4.40
5.1--- a/lisp/lib/parse/parse.asd Fri May 24 20:08:31 2024 -0400
5.2+++ b/lisp/lib/parse/parse.asd Sun May 26 15:39:55 2024 -0400
5.3@@ -2,7 +2,7 @@
5.4 :version "0.1.0"
5.5 :maintainer "ellis <ellis@rwest.io>"
5.6 :bug-tracker "https://lab.rwest.io/ellis/packy/issues"
5.7- :depends-on (:cl-ppcre :std)
5.8+ :depends-on (:cl-ppcre :std :babel)
5.9 :components ((:file "pkg")
5.10 (:file "bytes")
5.11 (:file "lex")
6.1--- a/lisp/lib/parse/pkg.lisp Fri May 24 20:08:31 2024 -0400
6.2+++ b/lisp/lib/parse/pkg.lisp Sun May 26 15:39:55 2024 -0400
6.3@@ -35,7 +35,7 @@
6.4 :yacc-parse-error-value :yacc-parse-error-expected-terminals))
6.5
6.6 (defpackage parse/bytes
6.7- (:use :cl)
6.8+ (:use :cl :babel)
6.9 (:import-from :sb-cltl2
6.10 :variable-information)
6.11 (:import-from :std :with-gensyms :once-only
7.1--- a/lisp/lib/skel/ext/net.lisp Fri May 24 20:08:31 2024 -0400
7.2+++ b/lisp/lib/skel/ext/net.lisp Sun May 26 15:39:55 2024 -0400
7.3@@ -0,0 +1,5 @@
7.4+;;; skel/ext/net.lisp --- Skel Network
7.5+
7.6+;;
7.7+
7.8+;;; Code:
8.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
8.2+++ b/lisp/std/macs/var.lisp Sun May 26 15:39:55 2024 -0400
8.3@@ -0,0 +1,15 @@
8.4+;;; std/macs/var.lisp --- Dynamic Variable Macros
8.5+
8.6+;;
8.7+
8.8+;;; Code:
8.9+(in-package :std/macs)
8.10+
8.11+;; from HUNCHENTOOT
8.12+(defmacro defvar-unbound (name &optional (doc-string ""))
8.13+ "Convenience macro to declare unbound special variables with a
8.14+documentation string."
8.15+ `(progn
8.16+ (defvar ,name)
8.17+ (setf (documentation ',name 'variable) ,doc-string)
8.18+ ',name))
9.1--- a/lisp/std/pkg.lisp Fri May 24 20:08:31 2024 -0400
9.2+++ b/lisp/std/pkg.lisp Sun May 26 15:39:55 2024 -0400
9.3@@ -237,6 +237,7 @@
9.4 :if-let*
9.5 :if*
9.6 :define-constant
9.7+ :defvar-unbound
9.8 :def!
9.9 :eval-always
9.10 ;; ana
10.1--- a/skelfile Fri May 24 20:08:31 2024 -0400
10.2+++ b/skelfile Sun May 26 15:39:55 2024 -0400
10.3@@ -11,7 +11,7 @@
10.4 :vc :hg
10.5 :docs ((:org "readme"))
10.6 :scripts "x.lisp"
10.7-:env ((cc "clang") shell term (psl-url "https://publicsuffix.org/lisp/public_suffix_list.dat"))
10.8+:env ((cc "clang"))
10.9 :rules
10.10 ((all (x compile std prelude build))
10.11 (x ()
10.12@@ -25,9 +25,10 @@
10.13 #$find lisp -name '*.fasl' -type f -delete$#
10.14 #$echo 'cargo clean:' && cd rust && cargo clean$#)
10.15 (psl.dat () ;; req:fetch works in slime and sk-shell but not here? hmm..
10.16- (with-open-file (st ".stash/psl.dat" :direction :output :element-type 'octet)
10.17- (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t)
10.18- do (write-byte x st))))
10.19+ (with-open-file
10.20+ (st ".stash/psl.dat" :direction :output :element-type 'octet)
10.21+ (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t)
10.22+ do (write-byte x st))))
10.23 (rdb (x) #$./x build rdb$#)
10.24 (skel (x) #$./x build skel$#)
10.25 (organ (x) #$./x build organ$#)