bldc/tests/test_read_program_8.lisp

(defun f (x)
   (+ x (eval-program (read-program "(+ 100 150)"))))


(check (and (= (f 1) 251)
            (= (f 2) 252)))
Squashed 'lispBM/lispBM/' changes from 9011df7f..7392b499 7392b499 tweak to eval-program to remove unintuitive behaviour 3683b038 tweak lbmref 79e26fd3 small tweak lbmref b62983d2 some additions and typo-fixes in lbmref 566fb8ce added more text about cond to lbmref git-subtree-dir: lispBM/lispBM git-subtree-split: 7392b4994dfadcc97ebb9e2ca8da552204495c9d 2022-11-02 10:49:31 -07:00			`(defun f (x)`
			`(+ x (eval-program (read-program "(+ 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 (and (= (f 1) 251)`
			`(= (f 2) 252)))`