diff options
Diffstat (limited to 'src/algebra/strap/CHAR.lsp')
-rw-r--r-- | src/algebra/strap/CHAR.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/CHAR.lsp b/src/algebra/strap/CHAR.lsp index 317ee9de..8f93519a 100644 --- a/src/algebra/strap/CHAR.lsp +++ b/src/algebra/strap/CHAR.lsp @@ -133,7 +133,7 @@ (PROG (#0=#:G1407) (RETURN (PROG1 (LETT #0# (+ 1 (CHAR-CODE |c|)) |CHAR;lookup;$Pi;8|) - (|check-subtype| (< 0 #0#) '(|PositiveInteger|) #0#))))) + (|check-subtype| (> #0# 0) '(|PositiveInteger|) #0#))))) (DEFUN |CHAR;char;Nni$;9| (|n| $) (DECLARE (IGNORE $)) |