; "Sample DO usage #FALSE (\"NO-MORE\")) \"GEN\" (Z .FOO T) \"EXTRA\" Y) > )> >> " (POST-CODE PRE-TEST POST-TEST) ]>> (PRE-CODE) (VALUE) FORM) ) (<=? .NAM "GEN"> ) (<=? .NAM "WHILE"> ) (<=? .NAM "UNTIL"> ) (<=? .NAM "VALUE"> ) ( <=? .NAM "AUX">> ) (ELSE )>) (<==? .STATE ,COLON-NONE> ) (ELSE > )> >) (,COLON-GEN >) (,COLON-WHILE ) (,COLON-UNTIL ) (,COLON-VALUE )>)> > .ARGL>> ) .RETURNS>>

) .RETURNS >> .PRE-CODE> ;"FOR tests" !) .RETURNS >> .PRE-TEST> ;"WHILE tests" !.BODY !) .RETURNS >> .POST-TEST> ;"UNTIL tests" !.POST-CODE ;"FOR updates">> > \ ;"Generators for DO" > <==? .STEP 0> <==? .STEP 0.0000000>>) ( > ;"Stepping up ?" .FINAL> !.VAL))>) ( > ;"Stepping down ?" .FINAL> !.VAL))>) (ELSE ;"Assume unknown stepping direction" .FINAL>) ( .FINAL>)> !.VAL))>)> .STEP>>)> (.VARIABLE .INITIAL)> )> )>)> (.VARIABLE .INITIAL)> !.VAL))>> > > ) (ELSE )>> (DEF BODY) LIST) )>> .DEF) (ELSE 1>>> >> .BODY)>> \ ; "Sample CASE usage (ATOM 0) (FIX 1) (FLOAT 2) DEFAULT ( 3) (!'(LIST VECTOR UVECTOR ,XTRA) 4) (STRING 5)> " )) #DECL ((CASES) LIST (DEFAULT-CASE) (VALUE) FORM) <==? 2> <==? <1 .PRED> GVAL> ATOM>> >) ( >)> ) (ELSE )> ) (> > ) (> ) (> SEGMENT>> ( !)) ( ( !)) (<==? <1 .EXPR> QUOTE> > >>> ) (ELSE ()> !))>) (ELSE ( !))>> .CASES> !.DEFAULT-CASE>>> <==? .PRED PRIMTYPE?> > ) (ELSE > .OPS>) FORM>)>> \ .AMT>>> .AMT>>> .AMT>>> > !.BODY)>> ) (> <1 .BODY>>) (ELSE )) #DECL ((OB) ATOM (VALUE) ) > .BODY>) FORM> '.OB)>>)>>