bldc/tests/test_map_4.lisp


(define ls (list (list 1 2 3) (list 2 3 4) (list 3 4 5)))
(define rs (list (list 2 3 4) (list 3 4 5) (list 4 5 6)))

(defun f (x) (+ x 1))

(check (eq (map (lambda (x) (map f x)) ls) rs))
Squashed 'lispBM/lispBM/' changes from 1b286c45..81a5990a 81a5990a added a built in map git-subtree-dir: lispBM/lispBM git-subtree-split: 81a5990af2bccbbd7284d980a2f9504ef014699d 2022-10-28 02:44:54 -07:00
			`(define ls (list (list 1 2 3) (list 2 3 4) (list 3 4 5)))`
			`(define rs (list (list 2 3 4) (list 3 4 5) (list 4 5 6)))`

			`(defun f (x) (+ x 1))`

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 (eq (map (lambda (x) (map f x)) ls) rs))`