Evaluate a sequence of forms that return state
Example Form: (pprogn (cond ((or (equal (car l) #\) (equal (car l) slash-char)) (princ$ #\ channel state)) (t state)) (princ$ (car l) channel state) (mv (cdr l) state))
The convention for
If you are using single-threaded objects you may wish to define an analogue of this function for your own stobj.
(PPROGN form1 form2 ... formk result-form)
This general form is equivalent, via macro expansion, to:
(LET ((STATE form1)) (LET ((STATE form2)) ... (LET ((STATE formk)) result-form)))