bldc/tests/test_match_8.lisp


(define f (lambda (x) (+ x 2)))

(check (eq (match (f 1)
                  ( 3  't)
                  ( _  'nil))
           't))
Squashed 'lispBM/lispBM/' changes from dde9b593..c2bd0cd0 c2bd0cd0 added some more range tests and updated the refman d96fd1a3 reversing range if end point is smaller than starting point 15bd7eb4 update ref man and added a test of range e83d6ca8 Added fundamental operation that creates a list numbers in a range. range f0641f43 added a built in operation that computes the length of a proper list 952fb423 added indexing into lists from the rear. Use a negaive index to index from the rear of a list using ix f6618b69 bugfix related to environment handling in match git-subtree-dir: lispBM/lispBM git-subtree-split: c2bd0cd0745acdc078e541a717ccc82642036018 2022-10-24 00:58:05 -07:00
			`(define f (lambda (x) (+ x 2)))`

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 (match (f 1)`
			`( 3 't)`
			`( _ 'nil))`
			`'t))`