(CONDITIONALS% AND% ITERATIVE% STATEMENTS CHAPTER (67 111 110 100 105 116 105 111 110 97 108 115 32 97 110 100 32 73 116 101 114 97 116 105 118 101 32 83 116 97 116 101 109 101 110 116 115) NIL (9) 1) (DATA% TYPE% PREDICATES SUBSEC (68 97 116 97 32 84 121 112 101 32 80 114 101 100 105 99 97 116 101 115) NIL (1 9) 1) (LITATOM (Function) ((FONT . LISP) 40 76 73 84 65 84 79 77 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (LITATOMS TERM Litatoms NIL (1 9) 1) (SMALLP (Function) ((FONT . LISP) 40 83 77 65 76 76 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (SMALL% INTEGERS TERM small% integers NIL (1 9) 1) (FIXP (Function) ((FONT . LISP) 40 70 73 88 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (INTEGERS TERM integers NIL (1 9) 1) (SMALL% INTEGERS TERM small% integers NIL (1 9) 1) (LARGE% INTEGERS TERM large% integers NIL (1 9) 1) (FLOATP (Function) ((FONT . LISP) 40 70 76 79 65 84 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (FLOATING% POINT% NUMBERS TERM floating% point% numbers NIL (1 9) 1) (NUMBERP (Function) ((FONT . LISP) 40 78 85 77 66 69 82 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (NUMBERS TERM numbers NIL (1 9) 1) (ATOM (Function) ((FONT . LISP) 40 65 84 79 77 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 1) (ATOMS TERM Atoms NIL (1 9) 1) (LISTP (Function) ((FONT . LISP) 40 76 73 83 84 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 2) (LIST% CELLS TERM list% cells NIL (1 9) 2) (NLISTP (Function) ((FONT . LISP) 40 78 76 73 83 84 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 2) (STRINGP (Function) ((FONT . LISP) 40 83 84 82 73 78 71 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 2) (STRINGS TERM strings NIL (1 9) 2) (ARRAYP (Function) ((FONT . LISP) 40 65 82 82 65 89 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 2) (ARRAYS TERM arrays NIL (1 9) 2) (HARRAYP (Function) ((FONT . LISP) 40 72 65 82 82 65 89 80 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 9) 2) (NIL (Litatom) NIL NIL (1 9) 2) (EQUALITY% PREDICATES SUBSEC (69 113 117 97 108 105 116 121 32 80 114 101 100 105 99 97 116 101 115) NIL (2 9) 2) (EQ (Function) ((FONT . LISP) 40 69 81 32 (FONT . ARG) 88 32 89 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (NEQ (Function) ((FONT . LISP) 40 78 69 81 32 (FONT . ARG) 88 32 89 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (NULL (Function) ((FONT . LISP) 40 78 85 76 76 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (NOT (Function) ((FONT . LISP) 40 78 79 84 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (EQP (Function) ((FONT . LISP) 40 69 81 80 32 (FONT . ARG) 88 32 89 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (EQP (Function) NIL (*PRIMARY*) (2 9) 3) (EQUAL (Function) ((FONT . LISP) 40 69 81 85 65 76 32 (FONT . ARG) 88 32 89 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (EQUALALL (Function) ((FONT . LISP) 40 69 81 85 65 76 65 76 76 32 (FONT . ARG) 88 32 89 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 9) 3) (LOGICAL% PREDICATES SUBSEC (76 111 103 105 99 97 108 32 80 114 101 100 105 99 97 116 101 115) NIL (3 9) 3) (AND (Function) ((FONT . LISP) 40 65 78 68 32 (FONT . ARG) 88 (START.SUB) 49 (END.SUB) 32 88 (START.SUB) 50 (END.SUB) 32 46 46 46 32 88 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 9) 3) (OR (Function) ((FONT . LISP) 40 79 82 32 (FONT . ARG) 88 (START.SUB) 49 (END.SUB) 32 88 (START.SUB) 50 (END.SUB) 32 46 46 46 32 88 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 9) 4) (THE% COND% CONDITIONAL% FUNCTION SUBSEC (84 104 101 32 67 79 78 68 32 67 111 110 100 105 116 105 111 110 97 108 32 70 117 110 99 116 105 111 110) NIL (4 9) 4) (COND (Function) ((FONT . LISP) 40 67 79 78 68 32 (FONT . ARG) 67 76 65 85 83 69 (START.SUB) 49 (END.SUB) 32 67 76 65 85 83 69 (START.SUB) 50 (END.SUB) 32 46 46 46 32 67 76 65 85 83 69 (START.SUB) 75 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 9) 4) (COND% CLAUSE TERM COND% clause NIL (4 9) 4) (THE% IF% STATEMENT SUBSEC (84 104 101 32 73 70 32 83 116 97 116 101 109 101 110 116) NIL (5 9) 5) (IF (Statement) NIL (*PRIMARY*) (5 9) 5) (IF-THEN-ELSE% STATEMENTS TERM IF-THEN-ELSE% statements (*PRIMARY*) (5 9) 5) (CLISPIFWORDSPLST (Variable) NIL NIL (5 9) 5) (SELECTION% FUNCTIONS SUBSEC (83 101 108 101 99 116 105 111 110 32 70 117 110 99 116 105 111 110 115) NIL (6 9) 6) (SELECTQ (Function) ((FONT . LISP) 40 83 69 76 69 67 84 81 32 (FONT . ARG) 88 32 67 76 65 85 83 69 (START.SUB) 49 (END.SUB) 32 67 76 65 85 83 69 (START.SUB) 50 (END.SUB) 32 46 46 46 32 67 76 65 85 83 69 (START.SUB) 75 (END.SUB) 32 68 69 70 65 85 76 84 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (6 9) 6) (SELECTC (Function) ((FONT . LISP) 40 83 69 76 69 67 84 67 32 (FONT . ARG) 88 32 67 76 65 85 83 69 (START.SUB) 49 (END.SUB) 32 67 76 65 85 83 69 (START.SUB) 50 (END.SUB) 32 46 46 46 32 67 76 65 85 83 69 (START.SUB) 75 (END.SUB) 32 68 69 70 65 85 76 84 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (6 9) 7) (PROG% AND% ASSOCIATED% CONTROL% FUNCTIONS SUBSEC (80 82 79 71 32 97 110 100 32 65 115 115 111 99 105 97 116 101 100 32 67 111 110 116 114 111 108 32 70 117 110 99 116 105 111 110 115) NIL (7 9) 7) (PROG1 (Function) ((FONT . LISP) 40 80 82 79 71 49 32 (FONT . ARG) 88 (START.SUB) 49 (END.SUB) 32 88 (START.SUB) 50 (END.SUB) 32 46 46 46 32 88 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 7) (PROG2 (Function) ((FONT . LISP) 40 80 82 79 71 50 32 (FONT . ARG) 88 (START.SUB) 49 (END.SUB) 32 88 (START.SUB) 50 (END.SUB) 32 46 46 46 32 88 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 7) (PROGN (Function) ((FONT . LISP) 40 80 82 79 71 78 32 (FONT . ARG) 88 (START.SUB) 49 (END.SUB) 32 88 (START.SUB) 50 (END.SUB) 32 46 46 46 32 88 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 8) (PROG (Function) ((FONT . LISP) 40 80 82 79 71 32 (FONT . ARG) 86 65 82 76 83 84 32 69 (START.SUB) 49 (END.SUB) 32 69 (START.SUB) 50 (END.SUB) 32 46 46 46 32 69 (START.SUB) 78 (END.SUB) (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 8) (LOCAL% VARIABLES TERM local% variables NIL (7 9) 8) (ARG% NOT% LITATOM (Error Message) NIL NIL (7 9) 8) (ATTEMPT% TO% BIND% NIL% OR% T (Error Message) NIL NIL (7 9) 8) (PROG% LABEL TERM PROG% label NIL (7 9) 8) (GO (Function) ((FONT . LISP) 40 71 79 32 (FONT . ARG) 85 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 8) (UNDEFINED% OR% ILLEGAL% GO (Error Message) NIL NIL (7 9) 8) (RETURN (Function) ((FONT . LISP) 40 82 69 84 85 82 78 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 8) (ILLEGAL% RETURN (Error Message) NIL NIL (7 9) 8) (UNDEFINED% OR% ILLEGAL% GO (Error Message) NIL NIL (7 9) 8) (NLSETQ (Function) NIL NIL (7 9) 9) (ERSETQ (Function) NIL NIL (7 9) 9) (LET (Macro) ((FONT . LISP) (FONT . LISP) 40 76 69 84 32 (FONT . ARG) 86 65 82 76 83 84 (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 49 (END.SUB) (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 50 (END.SUB) (UNDO . FONT) 32 46 46 46 32 (FONT . ARG) 69 (START.SUB) 78 (END.SUB) (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 9) (LET* (Macro) ((FONT . LISP) (FONT . LISP) 40 76 69 84 42 32 (FONT . ARG) 86 65 82 76 83 84 (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 49 (END.SUB) (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 50 (END.SUB) (UNDO . FONT) 32 46 46 46 32 (FONT . ARG) 69 (START.SUB) 78 (END.SUB) (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 9) (PROG* (Macro) ((FONT . LISP) (FONT . LISP) 40 80 82 79 71 42 32 (FONT . ARG) 86 65 82 76 83 84 (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 49 (END.SUB) (UNDO . FONT) 32 (FONT . ARG) 69 (START.SUB) 50 (END.SUB) (UNDO . FONT) 32 46 46 46 32 (FONT . ARG) 69 (START.SUB) 78 (END.SUB) (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 9) 9) (THE% ITERATIVE% STATEMENT SUBSEC (84 104 101 32 73 116 101 114 97 116 105 118 101 32 83 116 97 116 101 109 101 110 116) NIL (8 9) 9) (ITERATIVESTATEMENT TAG NIL NIL (8 9) 9) (ITERATIVE% STATEMENTS TERM Iterative% statements (*PRIMARY*) (8 9) 9) (I.S.OPRS TERM I.s.oprs (*PRIMARY*) (8 9) 9) (CLISPFORWORDSPLST (Variable) NIL NIL (8 9) 10) (SPELLING% LISTS TERM spelling% lists NIL (8 9) 10) (DEFINED,% THEREFORE% DISABLED% IN% CLISP (Error Message) NIL NIL (8 9) 10) (I.S.TYPES SUBSEC (73 46 115 46 116 121 112 101 115) NIL (1 8 9) 10) (I.S.TYPES TERM I.s.types (*PRIMARY*) (1 8 9) 10) (I.S.TYPE TAG NIL NIL (1 8 9) 10) (DO (I.S. Operator) ((FONT . LISP) 68 79 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 10) (COLLECT (I.S. Operator) ((FONT . LISP) 67 79 76 76 69 67 84 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 10) (CLDISABLE (Function) NIL NIL (1 8 9) 11) (JOIN (I.S. Operator) ((FONT . LISP) 74 79 73 78 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (SUM (I.S. Operator) ((FONT . LISP) 83 85 77 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (COUNT (I.S. Operator) ((FONT . LISP) 67 79 85 78 84 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (ALWAYS (I.S. Operator) ((FONT . LISP) 65 76 87 65 89 83 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (NEVER (I.S. Operator) ((FONT . LISP) 78 69 86 69 82 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (THEREIS (I.S. Operator) ((FONT . LISP) 84 72 69 82 69 73 83 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 11) (LARGEST (I.S. Operator) ((FONT . LISP) 76 65 82 71 69 83 84 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 12) (SMALLEST (I.S. Operator) ((FONT . LISP) 83 77 65 76 76 69 83 84 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (1 8 9) 12) (EXTREME (Variable) ((FONT . LISP) 36 36 69 88 84 82 69 77 69 (UNDO . FONT)) NIL (1 8 9) 12) ($$EXTREME (Variable) NIL (*PRIMARY*) (1 8 9) 12) (VAL (Variable) ((FONT . LISP) 36 36 86 65 76 (UNDO . FONT)) NIL (1 8 9) 12) ($$VAL (Variable) NIL (*PRIMARY*) (1 8 9) 12) (ITERATION% VARIABLE% I.S.OPRS SUBSEC (73 116 101 114 97 116 105 111 110 32 86 97 114 105 97 98 108 101 32 73 46 115 46 111 112 114 115) NIL (2 8 9) 12) (FOR (I.S. Operator) ((FONT . LISP) 70 79 82 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 12) (FOR (I.S. Operator) ((FONT . LISP) 70 79 82 32 (FONT . ARG) 86 65 82 83 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 12) (FOR% OLD (I.S. Operator) ((FONT . LISP) 70 79 82 32 79 76 68 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 12) (BIND (I.S. Operator) ((FONT . LISP) 66 73 78 68 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 12) (BIND (I.S. Operator) ((FONT . LISP) 66 73 78 68 32 (FONT . ARG) 86 65 82 83 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 12) (IN (I.S. Operator) ((FONT . LISP) 73 78 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (ON (I.S. Operator) ((FONT . LISP) 79 78 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (IN% OLD (I.S. Operator) ((FONT . LISP) 73 78 32 79 76 68 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (IN (I.S. Operator) NIL NIL (2 8 9) 13) (OLD (I.S. Operator) NIL NIL (2 8 9) 13) (IN% OLD (I.S. Operator) ((FONT . LISP) (FONT . LISP) 73 78 32 79 76 68 32 40 (FONT . ARG) 86 65 82 (UNDO . FONT) 95 (FONT . ARG) 70 79 82 77 (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (OLD (I.S. Operator) NIL NIL (2 8 9) 13) (ON% OLD (I.S. Operator) ((FONT . LISP) 79 78 32 79 76 68 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (ON (I.S. Operator) NIL NIL (2 8 9) 13) (OLD (I.S. Operator) NIL NIL (2 8 9) 13) (IN% OLD (I.S. Operator) ((FONT . LISP) (FONT . LISP) 79 78 32 79 76 68 32 40 (FONT . ARG) 86 65 82 (UNDO . FONT) 95 (FONT . ARG) 70 79 82 77 (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (ON (I.S. Operator) NIL NIL (2 8 9) 13) (OLD (I.S. Operator) NIL NIL (2 8 9) 13) (INSIDE (I.S. Operator) ((FONT . LISP) 73 78 83 73 68 69 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 13) (FROM (I.S. Operator) ((FONT . LISP) 70 82 79 77 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 14) (BY (I.S. Operator) NIL NIL (2 8 9) 14) (TO (I.S. Operator) ((FONT . LISP) 84 79 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 14) (FROM (I.S. Operator) NIL NIL (2 8 9) 14) (BY (I.S. Operator) NIL NIL (2 8 9) 14) (BY (I.S. Operator) ((FONT . LISP) (FONT . LISP) 66 89 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) 32 (FONT) 40 119 105 116 104 32 (FONT . LISP) 73 78 (UNDO . FONT) 47 (FONT . LISP) 79 78 (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 14) (IN (I.S. Operator) NIL NIL (2 8 9) 14) (ON (I.S. Operator) NIL NIL (2 8 9) 14) (BY (I.S. Operator) ((FONT . LISP) (FONT . LISP) 66 89 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) 32 (FONT) 40 119 105 116 104 111 117 116 32 (FONT . LISP) 73 78 (UNDO . FONT) 47 (FONT . LISP) 79 78 (UNDO . FONT) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 14) (FROM (I.S. Operator) NIL NIL (2 8 9) 14) (TO (I.S. Operator) NIL NIL (2 8 9) 14) (FROM (I.S. Operator) NIL NIL (2 8 9) 15) (TO (I.S. Operator) NIL NIL (2 8 9) 15) (AS (I.S. Operator) ((FONT . LISP) 65 83 32 (FONT . ARG) 86 65 82 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 15) (AS (I.S. Operator) NIL NIL (2 8 9) 15) (OUTOF (I.S. Operator) ((FONT . LISP) 79 85 84 79 70 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (2 8 9) 15) (CONDITION% I.S.OPRS SUBSEC (67 111 110 100 105 116 105 111 110 32 73 46 115 46 111 112 114 115) NIL (3 8 9) 15) (WHEN (I.S. Operator) ((FONT . LISP) 87 72 69 78 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 15) (UNLESS (I.S. Operator) ((FONT . LISP) 85 78 76 69 83 83 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 16) (WHILE (I.S. Operator) ((FONT . LISP) 87 72 73 76 69 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 16) (UNTIL (I.S. Operator) ((FONT . LISP) 85 78 84 73 76 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 16) (UNTIL (I.S. Operator) ((FONT . LISP) (FONT . LISP) 85 78 84 73 76 32 (FONT . ARG) 78 (UNDO . FONT) (UNDO . FONT) 32 40 (FONT . ARG) 78 (UNDO . FONT) 32 97 32 110 117 109 98 101 114 41 (UNDO . FONT)) (*DEF*) (3 8 9) 16) (REPEATWHILE (I.S. Operator) ((FONT . LISP) 82 69 80 69 65 84 87 72 73 76 69 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 16) (REPEATUNTIL (I.S. Operator) ((FONT . LISP) 82 69 80 69 65 84 85 78 84 73 76 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (3 8 9) 16) (REPEATUNTIL (I.S. Operator) ((FONT . LISP) (FONT . LISP) 82 69 80 69 65 84 85 78 84 73 76 32 (FONT . ARG) 78 (UNDO . FONT) (UNDO . FONT) 32 40 (FONT . ARG) 78 (UNDO . FONT) 32 97 32 110 117 109 98 101 114 41 (UNDO . FONT)) (*DEF*) (3 8 9) 16) (OTHER% I.S.OPRS SUBSEC (79 116 104 101 114 32 73 46 115 46 111 112 114 115) NIL (4 8 9) 16) (FIRST (I.S. Operator) ((FONT . LISP) 70 73 82 83 84 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 16) (FINALLY (I.S. Operator) ((FONT . LISP) 70 73 78 65 76 76 89 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 16) (EACHTIME (I.S. Operator) ((FONT . LISP) 69 65 67 72 84 73 77 69 32 (FONT . ARG) 70 79 82 77 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 16) (DECLARE: (I.S. Operator) ((FONT . LISP) 68 69 67 76 65 82 69 58 32 (FONT . ARG) 68 69 67 76 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 17) (DECLARE (I.S. Operator) ((FONT . LISP) 68 69 67 76 65 82 69 32 (FONT . ARG) 68 69 67 76 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 17) (ORIGINAL (I.S. Operator) ((FONT . LISP) 79 82 73 71 73 78 65 76 32 (FONT . ARG) 73 46 83 46 79 80 82 32 79 80 69 82 65 78 68 (UNDO . FONT) (UNDO . FONT)) (*DEF*) (4 8 9) 17) (MISCELLANEOUS% HINTS% ON% I.S.OPRS SUBSEC (77 105 115 99 101 108 108 97 110 101 111 117 115 32 72 105 110 116 115 32 111 110 32 73 46 83 46 79 112 114 115) NIL (5 8 9) 17) (RETURN (in iterative statement) NIL NIL (5 8 9) 18) (GO (in iterative statement) NIL NIL (5 8 9) 18) (FIRST (I.S. Operator) NIL NIL (5 8 9) 18) (FINALLY (I.S. Operator) NIL NIL (5 8 9) 18) (EACHTIME (I.S. Operator) NIL NIL (5 8 9) 18) (BY (I.S. Operator) NIL NIL (5 8 9) 18) (IN (I.S. Operator) NIL NIL (5 8 9) 18) ($$VAL (Variable) NIL NIL (5 8 9) 19) (ERRORS% IN% ITERATIVE% STATEMENTS SUBSEC (69 114 114 111 114 115 32 105 110 32 73 116 101 114 97 116 105 118 101 32 83 116 97 116 101 109 101 110 116 115) NIL (6 8 9) 19) (ERRORS% IN% ITERATIVE% STATEMENTS TERM Errors% in% iterative% statements (*PRIMARY*) (6 8 9) 19) (NO% DO,% COLLECT,% OR% JOIN (Error Message) NIL NIL (6 8 9) 19) (POSSIBLE% NON-TERMINATING% ITERATIVE% STATEMENT (Error Message) NIL NIL (6 8 9) 20) (CLISPI.S.GAG (Variable) NIL NIL (6 8 9) 20) (DEFINING% NEW% ITERATIVE% STATEMENT% OPERATORS SUBSEC (68 101 102 105 110 105 110 103 32 78 101 119 32 73 116 101 114 97 116 105 118 101 32 83 116 97 116 101 109 101 110 116 32 79 112 101 114 97 116 111 114 115) NIL (7 8 9) 20) (DEFINING% ITERATIVE% STATEMENT% OPERATORS TERM Defining% iterative% statement% operators (*PRIMARY*) (7 8 9) 20) (I.S.OPR (Function) ((FONT . LISP) 40 73 46 83 46 79 80 82 32 (FONT . ARG) 78 65 77 69 32 70 79 82 77 32 79 84 72 69 82 83 32 69 86 65 76 70 76 71 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT)) (*DEF*) (7 8 9) 20) (I.S.TYPES TERM I.s.types NIL (7 8 9) 20) (GETDUMMYVAR (Function) NIL NIL (7 8 9) 20) (ORIGINAL (I.S. Operator) NIL NIL (7 8 9) 21) (WHERE (I.S. Operator) NIL NIL (7 8 9) 22) (SUCHTHAT (I.S. Operator) NIL NIL (7 8 9) 22) (ISTHERE (I.S. Operator) NIL NIL (7 8 9) 22) (FIND (I.S. Operator) NIL NIL (7 8 9) 22) (THRU (I.S. Operator) NIL NIL (7 8 9) 22) (MODIFIER (Litatom) NIL NIL (7 8 9) 22) (I.S.OPRS (File Package Command) NIL NIL (7 8 9) 22)