diff options
Diffstat (limited to 'src/algebra/strap/CHAR.lsp')
| -rw-r--r-- | src/algebra/strap/CHAR.lsp | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/src/algebra/strap/CHAR.lsp b/src/algebra/strap/CHAR.lsp index e1d85545..e8bfbd0f 100644 --- a/src/algebra/strap/CHAR.lsp +++ b/src/algebra/strap/CHAR.lsp @@ -123,17 +123,13 @@ (DEFUN |CHAR;size;Nni;6| ($) (DECLARE (IGNORE $)) 256) (DEFUN |CHAR;index;Pi$;7| (|n| $) - (PROG (#0=#:G1403) - (RETURN - (CODE-CHAR - (PROG1 (LETT #0# (- |n| 1) |CHAR;index;Pi$;7|) - (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)))))) + (CODE-CHAR + (LET ((#0=#:G1404 (- |n| 1))) + (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)))) (DEFUN |CHAR;lookup;$Pi;8| (|c| $) - (PROG (#0=#:G1405) - (RETURN - (PROG1 (LETT #0# (+ 1 (CHAR-CODE |c|)) |CHAR;lookup;$Pi;8|) - (|check-subtype| (> #0# 0) '(|PositiveInteger|) #0#))))) + (LET ((#0=#:G1406 (+ 1 (CHAR-CODE |c|)))) + (|check-subtype| (> #0# 0) '(|PositiveInteger|) #0#))) (DEFUN |CHAR;char;Nni$;9| (|n| $) (DECLARE (IGNORE $)) |