Browse code
Merge branch 'master' of git.fiddlerwoaroof.com:u/edwlan/fwoar.lisputils
Edward Langley authored on 28/08/2022 06:52:07
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -325,6 +325,16 @@ |
325 | 325 |
(acons key datum alist)) |
326 | 326 |
(define-modify-macro aconsf (key datum) do-acons) |
327 | 327 |
|
328 |
+ |
|
329 |
+(defun do-adjoin (list item &rest r &key key test test-not) |
|
330 |
+ (declare (ignore key test test-not)) |
|
331 |
+ (apply #'adjoin item list r)) |
|
332 |
+(define-compiler-macro do-adjoin (list item &rest r) |
|
333 |
+ (alexandria:once-only (list item) |
|
334 |
+ `(adjoin ,item ,list ,@r))) |
|
335 |
+(define-modify-macro adjoinf (item &rest r) |
|
336 |
+ do-adjoin) |
|
337 |
+ |
|
328 | 338 |
;;(defun ensure-list (val) |
329 | 339 |
;; (typecase val |
330 | 340 |
;; (list val) |
... | ... |
@@ -32,12 +32,7 @@ |
32 | 32 |
#:transform-first-value #:may #:defun-ct |
33 | 33 |
#:define-cluser-entrypoint #:new #:make-constructor #:dive |
34 | 34 |
#:empty-hash-table-like #:v-assoc #:defclass+ |
35 |
- #:closing |
|
36 |
- #:inits |
|
37 |
- #:retry-once |
|
38 |
- #:hashtable-slot-mixin |
|
39 |
- #:hsm-doc |
|
40 |
- #:str->stream)) |
|
35 |
+ #:closing #:inits #:retry-once #:hashtable-slot-mixin #:hsm-doc #:adjoinf)) |
|
41 | 36 |
|
42 | 37 |
|
43 | 38 |
(defpackage :fwoar.lisputils.shortcuts |