contrapunctus/chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Address package lock errors

Browse Source
This commit is contained in:
contrapunctus 2022-03-26 23:33:02 +05:30
parent 0cc451fa03
commit 9ff6dd7edf
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cl/chronometrist.org
View File

@ -583,9 +583,9 @@ Return new position of point."
(point)))
#+END_SRC
*** make-hash-table :function:
*** make-hash-table-1 :function:
#+BEGIN_SRC lisp
(defun make-hash-table ()
(defun make-hash-table-1 ()
"Return an empty hash table with `equal' as test."
(make-hash-table :test #'equal))
#+END_SRC
@ -792,7 +792,7 @@ inclusive).
START and END must be ts structs (see `ts.el'). They will be
treated as though their time is 00:00:00."
(let ((subset (make-hash-table))
(let ((subset (make-hash-table-1))
(start (date-ts start))
(end (date-ts end)))
(maphash (lambda (key value)
@ -1648,7 +1648,7 @@ These can be implemented in terms of the minimal protocol above.
:accessor backend-file
:custom 'string
:documentation "Full path to backend file, with extension.")
(hash-table :initform (make-hash-table)
(hash-table :initform (make-hash-table-1)
:initarg :hash-table
:accessor backend-hash-table)
(file-watch :initform nil
@ -1845,9 +1845,6 @@ expression first)."
(backward-list 2)
(forward-list)
(point)))
(defun file-length (file)
(sexp-in-file file (point-max)))
#+END_SRC
**** file-hash :reader:
@ -2239,7 +2236,7 @@ In this backend, it's easier to implement this in terms of [[#program-backend-pl
(defmethod to-hash-table ((backend plist-backend))
(sexp-in-file (backend-file backend)
(goto-char (point-min))
(let ((table (make-hash-table))
(let ((table (make-hash-table-1))
expr pending-expr)
(while (or pending-expr
(setq expr (ignore-errors (read (current-buffer)))))
@ -2664,7 +2661,7 @@ Return value is either a list in the form
(defmethod to-hash-table ((backend plist-group-backend))
(with-slots (file) backend
(loop-sexp-file for plist-group in file
with table = (make-hash-table) do
with table = (make-hash-table-1) do
(puthash (first plist-group) (cl-rest plist-group) table)
finally return table)))
#+END_SRC
@ -2864,7 +2861,7 @@ We apply the same hack as in the [[hack-note-plist-group-insert][insert]] method
:VALUE: hash table
:END:
#+BEGIN_SRC lisp
(defvar migrate-table (make-hash-table))
(defvar migrate-table (make-hash-table-1))
#+END_SRC
*** EXTEND populate :writer: