bldc/tests/test_cossa_2.lisp

(define alist (list '(p . a) '(q . b) '(r . c) '(s . d)))

(setvar 'alist (acons 't 'e alist))

(check (and (eq (cossa alist 'b) 'q)
            (eq (cossa alist 'd) 's)
            (eq (cossa alist 'e) 't)))
Squashed 'lispBM/lispBM/' changes from cdfd116c..27abc6a9 27abc6a9 added backwards lookup function for assoc structures e82dc20f update benchmarking git-subtree-dir: lispBM/lispBM git-subtree-split: 27abc6a960d2e8deb98b1c6ed5b383d587d5ca7b 2022-07-13 04:30:58 -07:00			`(define alist (list '(p . a) '(q . b) '(r . c) '(s . d)))`

			`(setvar 'alist (acons 't 'e alist))`

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 (cossa alist 'b) 'q)`
			`(eq (cossa alist 'd) 's)`
			`(eq (cossa alist 'e) 't)))`