bldc/tests/test_assoc_3.lisp

(define alist (list '(1 . a) '(2 . b) '(3 . c) '(4 . d)))

(setassoc 'alist 3 'e)

(check (and (eq (assoc alist 3) 'c)
            (eq (assoc alist 1) 'a)))
Squashed 'lispBM/lispBM/' changes from c155cb49..90b18761 90b18761 potential small improvement in argument evaluation performance 0b41ce56 added some tests of alists git-subtree-dir: lispBM/lispBM git-subtree-split: 90b187612f957b2bac8e8de3a3576835b20cee4b 2022-05-01 10:16:24 -07:00			`(define alist (list '(1 . a) '(2 . b) '(3 . c) '(4 . d)))`

			`(setassoc 'alist 3 'e)`

Squashed 'lispBM/lispBM/' changes from f7c74492..5659e40a 5659e40a low-level flash errors propagate into the evaluator cd881c01 tweak lbmref db42aac7 tweak lbmref d1033e98 tweak lbmref 77783470 tweak refman bufcreate d9575830 incremental read-evaluate. Removed all types of arrays except for byte-arrays d5d5fdf1 type checking in array-extensions ca072954 buflen is ok on constant arrays 90614b33 bugfix in lbm_channel string_write de62dbd7 only one is_closure func git-subtree-dir: lispBM/lispBM git-subtree-split: 5659e40aac7a1e43b158a978e4e633ef118afeeb 2023-04-04 03:36:41 -07:00			`(check (and (eq (assoc alist 3) 'c)`
			`(eq (assoc alist 1) 'a)))`
Squashed 'lispBM/lispBM/' changes from c155cb49..90b18761 90b18761 potential small improvement in argument evaluation performance 0b41ce56 added some tests of alists git-subtree-dir: lispBM/lispBM git-subtree-split: 90b187612f957b2bac8e8de3a3576835b20cee4b 2022-05-01 10:16:24 -07:00