diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 20:16:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 20:16:37 +0000 |
| commit | 66f5a47122d91ad3a395cc02549908b8daf1bdd8 (patch) | |
| tree | 4e68e616461527448a43a18318c292f7bb2915d8 /src/algebra/strap/UFD-.lsp | |
| parent | 35e4595e5312af1ad327ae7fda4eefa0d60d31c6 (diff) | |
| download | open-axiom-66f5a47122d91ad3a395cc02549908b8daf1bdd8.tar.gz | |
Rename getShellEntry to shellEntry now that it is a macro accessor that designate a place (usable in SETF).
Diffstat (limited to 'src/algebra/strap/UFD-.lsp')
| -rw-r--r-- | src/algebra/strap/UFD-.lsp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/strap/UFD-.lsp b/src/algebra/strap/UFD-.lsp index 504f5eb8..c947b666 100644 --- a/src/algebra/strap/UFD-.lsp +++ b/src/algebra/strap/UFD-.lsp @@ -12,11 +12,11 @@ (RETURN (SPADCALL (SPADCALL - (LETT |s| (SPADCALL |x| (|getShellEntry| $ 8)) + (LETT |s| (SPADCALL |x| (|shellEntry| $ 8)) |UFD-;squareFreePart;2S;1|) - (|getShellEntry| $ 10)) + (|shellEntry| $ 10)) (LET ((#0=#:G1380 NIL) (#1=#:G1381 T) - (#2=#:G1394 (SPADCALL |s| (|getShellEntry| $ 14)))) + (#2=#:G1394 (SPADCALL |s| (|shellEntry| $ 14)))) (LOOP (COND ((ATOM #2#) @@ -27,15 +27,15 @@ (#1# (SETQ #0# #3#)) (T (SETQ #0# (SPADCALL #0# #3# - (|getShellEntry| $ 15))))) + (|shellEntry| $ 15))))) (SETQ #1# NIL))))) (SETQ #2# (CDR #2#)))) - (|getShellEntry| $ 15))))) + (|shellEntry| $ 15))))) (DEFUN |UFD-;prime?;SB;2| (|x| $) (EQL (LIST-LENGTH - (SPADCALL (SPADCALL |x| (|getShellEntry| $ 18)) - (|getShellEntry| $ 22))) + (SPADCALL (SPADCALL |x| (|shellEntry| $ 18)) + (|shellEntry| $ 22))) 1)) (DEFUN |UniqueFactorizationDomain&| (|#1|) |