diff options
Diffstat (limited to 'src/algebra/strap/CHAR.lsp')
| -rw-r--r-- | src/algebra/strap/CHAR.lsp | 85 |
1 files changed, 45 insertions, 40 deletions
diff --git a/src/algebra/strap/CHAR.lsp b/src/algebra/strap/CHAR.lsp index 9fd5e64d..ef10b20b 100644 --- a/src/algebra/strap/CHAR.lsp +++ b/src/algebra/strap/CHAR.lsp @@ -126,22 +126,22 @@ (DEFUN |CHAR;coerce;$Of;12| (|c| $) (DECLARE (IGNORE $)) |c|) (DEFUN |CHAR;digit?;$B;13| (|c| $) - (SPADCALL |c| (|spadConstant| $ 23) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 29) (|getShellEntry| $ 31))) (DEFUN |CHAR;hexDigit?;$B;14| (|c| $) - (SPADCALL |c| (|spadConstant| $ 27) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 33) (|getShellEntry| $ 31))) (DEFUN |CHAR;upperCase?;$B;15| (|c| $) - (SPADCALL |c| (|spadConstant| $ 29) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 35) (|getShellEntry| $ 31))) (DEFUN |CHAR;lowerCase?;$B;16| (|c| $) - (SPADCALL |c| (|spadConstant| $ 31) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 37) (|getShellEntry| $ 31))) (DEFUN |CHAR;alphabetic?;$B;17| (|c| $) - (SPADCALL |c| (|spadConstant| $ 33) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 39) (|getShellEntry| $ 31))) (DEFUN |CHAR;alphanumeric?;$B;18| (|c| $) - (SPADCALL |c| (|spadConstant| $ 35) (|getShellEntry| $ 25))) + (SPADCALL |c| (|spadConstant| $ 41) (|getShellEntry| $ 31))) (DEFUN |CHAR;latex;$S;19| (|c| $) (STRCONC "\\mbox{`" (STRCONC (MAKE-FULL-CVEC 1 |c|) "'}"))) @@ -149,8 +149,8 @@ (DEFUN |CHAR;char;S$;20| (|s| $) (COND ((EQL (QCSIZE |s|) 1) - (SPADCALL |s| (SPADCALL |s| (|getShellEntry| $ 40)) - (|getShellEntry| $ 41))) + (SPADCALL |s| (SPADCALL |s| (|getShellEntry| $ 49)) + (|getShellEntry| $ 50))) ('T (|userError| "String is not a single character")))) (DEFUN |CHAR;upperCase;2$;21| (|c| $) @@ -184,7 +184,7 @@ (RETURN (PROGN (LETT |dv$| '(|Character|) . #0=(|Character|)) - (LETT $ (|newShell| 46) . #0#) + (LETT $ (|newShell| 55) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) @@ -195,45 +195,50 @@ (MAKEPROP '|Character| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|Boolean|) |CHAR;=;2$B;1| |CHAR;<;2$B;2| (|NonNegativeInteger|) |CHAR;size;Nni;3| - |CHAR;char;Nni$;6| (|PositiveInteger|) |CHAR;index;Pi$;4| - |CHAR;ord;$Nni;7| |CHAR;lookup;$Pi;5| |CHAR;random;$;8| - |CHAR;space;$;9| |CHAR;quote;$;10| |CHAR;escape;$;11| - (|OutputForm|) |CHAR;coerce;$Of;12| (|CharacterClass|) - (0 . |digit|) (|Character|) (4 . |member?|) - |CHAR;digit?;$B;13| (10 . |hexDigit|) - |CHAR;hexDigit?;$B;14| (14 . |upperCase|) - |CHAR;upperCase?;$B;15| (18 . |lowerCase|) - |CHAR;lowerCase?;$B;16| (22 . |alphabetic|) - |CHAR;alphabetic?;$B;17| (26 . |alphanumeric|) - |CHAR;alphanumeric?;$B;18| (|String|) |CHAR;latex;$S;19| - (|Integer|) (30 . |minIndex|) (35 . |elt|) + (|PositiveInteger|) (0 . |One|) (4 . |One|) (|Integer|) + (8 . -) |CHAR;char;Nni$;6| |CHAR;index;Pi$;4| + |CHAR;ord;$Nni;7| (14 . +) |CHAR;lookup;$Pi;5| + (20 . |random|) |CHAR;random;$;8| |CHAR;space;$;9| + |CHAR;quote;$;10| |CHAR;escape;$;11| (|OutputForm|) + |CHAR;coerce;$Of;12| (|CharacterClass|) (25 . |digit|) + (|Character|) (29 . |member?|) |CHAR;digit?;$B;13| + (35 . |hexDigit|) |CHAR;hexDigit?;$B;14| + (39 . |upperCase|) |CHAR;upperCase?;$B;15| + (43 . |lowerCase|) |CHAR;lowerCase?;$B;16| + (47 . |alphabetic|) |CHAR;alphabetic?;$B;17| + (51 . |alphanumeric|) |CHAR;alphanumeric?;$B;18| + (|String|) (55 . |new|) (61 . |concat|) |CHAR;latex;$S;19| + (67 . |#|) (72 . |one?|) (77 . |minIndex|) (82 . |elt|) |CHAR;char;S$;20| |CHAR;upperCase;2$;21| |CHAR;lowerCase;2$;22| (|SingleInteger|)) - '#(~= 41 |upperCase?| 47 |upperCase| 52 |space| 57 |size| 61 - |random| 65 |quote| 69 |ord| 73 |min| 78 |max| 88 - |lowerCase?| 98 |lowerCase| 103 |lookup| 108 |latex| 113 - |index| 118 |hexDigit?| 123 |hash| 128 |escape| 133 - |digit?| 137 |coerce| 142 |char| 147 |alphanumeric?| 157 - |alphabetic?| 162 >= 167 > 173 = 179 <= 185 < 191) + '#(~= 88 |upperCase?| 94 |upperCase| 99 |space| 104 |size| + 108 |random| 112 |quote| 116 |ord| 120 |min| 125 |max| 135 + |lowerCase?| 145 |lowerCase| 150 |lookup| 155 |latex| 160 + |index| 165 |hexDigit?| 170 |hash| 175 |escape| 180 + |digit?| 184 |coerce| 189 |char| 194 |alphanumeric?| 204 + |alphabetic?| 209 >= 214 > 220 = 226 <= 232 < 238) 'NIL (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0)) (CONS '#(NIL |OrderedSet&| NIL |SetCategory&| |BasicType&| NIL) (CONS '#((|OrderedFinite|) (|OrderedSet|) (|Finite|) (|SetCategory|) (|BasicType|) - (|CoercibleTo| 20)) - (|makeByteWordVec2| 45 - '(0 22 0 23 2 22 6 24 0 25 0 22 0 27 0 - 22 0 29 0 22 0 31 0 22 0 33 0 22 0 35 - 1 37 39 0 40 2 37 24 0 39 41 2 0 6 0 - 0 1 1 0 6 0 30 1 0 0 0 43 0 0 0 17 0 - 0 9 10 0 0 0 16 0 0 0 18 1 0 9 0 14 0 - 0 0 1 2 0 0 0 0 1 0 0 0 1 2 0 0 0 0 1 - 1 0 6 0 32 1 0 0 0 44 1 0 12 0 15 1 0 - 37 0 38 1 0 0 12 13 1 0 6 0 28 1 0 45 - 0 1 0 0 0 19 1 0 6 0 26 1 0 20 0 21 1 - 0 0 9 11 1 0 0 37 42 1 0 6 0 36 1 0 6 - 0 34 2 0 6 0 0 1 2 0 6 0 0 1 2 0 6 0 + (|CoercibleTo| 26)) + (|makeByteWordVec2| 54 + '(0 11 0 12 0 9 0 13 2 14 0 0 0 15 2 9 + 0 0 0 19 1 9 0 0 21 0 28 0 29 2 28 6 + 30 0 31 0 28 0 33 0 28 0 35 0 28 0 37 + 0 28 0 39 0 28 0 41 2 43 0 9 30 44 2 + 43 0 0 0 45 1 43 9 0 47 1 9 6 0 48 1 + 43 14 0 49 2 43 30 0 14 50 2 0 6 0 0 + 1 1 0 6 0 36 1 0 0 0 52 0 0 0 23 0 0 + 9 10 0 0 0 22 0 0 0 24 1 0 9 0 18 0 0 + 0 1 2 0 0 0 0 1 0 0 0 1 2 0 0 0 0 1 1 + 0 6 0 38 1 0 0 0 53 1 0 11 0 20 1 0 + 43 0 46 1 0 0 11 17 1 0 6 0 34 1 0 54 + 0 1 0 0 0 25 1 0 6 0 32 1 0 26 0 27 1 + 0 0 9 16 1 0 0 43 51 1 0 6 0 42 1 0 6 + 0 40 2 0 6 0 0 1 2 0 6 0 0 1 2 0 6 0 0 7 2 0 6 0 0 1 2 0 6 0 0 8))))) '|lookupComplete|)) |