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/VECTOR.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/VECTOR.lsp')
| -rw-r--r-- | src/algebra/strap/VECTOR.lsp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp index 01f3fe2c..fa232c7d 100644 --- a/src/algebra/strap/VECTOR.lsp +++ b/src/algebra/strap/VECTOR.lsp @@ -13,7 +13,7 @@ |VECTOR;convert;$If;3|)) (DEFUN |VECTOR;vector;L$;1| (|l| $) - (SPADCALL |l| (|getShellEntry| $ 10))) + (SPADCALL |l| (|shellEntry| $ 10))) (DEFUN |VECTOR;maxIndex;$I;2| (|x| $) (DECLARE (IGNORE $)) @@ -21,10 +21,10 @@ (DEFUN |VECTOR;convert;$If;3| (|x| $) (SPADCALL - (LIST (SPADCALL '|vector| (|getShellEntry| $ 15)) - (SPADCALL (SPADCALL |x| (|getShellEntry| $ 16)) - (|getShellEntry| $ 17))) - (|getShellEntry| $ 19))) + (LIST (SPADCALL '|vector| (|shellEntry| $ 15)) + (SPADCALL (SPADCALL |x| (|shellEntry| $ 16)) + (|shellEntry| $ 17))) + (|shellEntry| $ 19))) (DEFUN |Vector| (#0=#:G1383) (DECLARE (SPECIAL |$ConstructorCache|)) |