bldc/tests/test_read_program_7.lisp

(check (let ((r 100)
             (a 250))
         (and ( = r (eval-program (read-program "(+ 50 50)")))
              ( = a (eval-program (read-program "(+ 20 20) (+ 100 150)"))))))
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 (let ((r 100)`
			`(a 250))`
			`(and ( = r (eval-program (read-program "(+ 50 50)")))`
			`( = a (eval-program (read-program "(+ 20 20) (+ 100 150)"))))))`