diff options
Diffstat (limited to 'src/algebra/strap/URAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/URAGG-.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index e9d5c793..12a47db1 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -378,7 +378,7 @@ ((< |m| |n|) (|error| "index out of range")) (T (SPADCALL (SPADCALL |x| - (LET ((#0=#:G1502 (- |m| |n|))) + (LET ((#0=#:G1477 (- |m| |n|))) (|check-subtype| (NOT (MINUSP #0#)) '(|NonNegativeInteger|) #0#)) (|getShellEntry| $ 62)) @@ -483,7 +483,7 @@ ((< |n| 1) (|error| "index out of range")) (T (SEQ (SETQ |p| (SPADCALL |p| - (LET ((#0=#:G1528 (- |n| 1))) + (LET ((#0=#:G1503 (- |n| 1))) (|check-subtype| (NOT (MINUSP #0#)) '(|NonNegativeInteger|) #0#)) (|getShellEntry| $ 62))) |