diff options
Diffstat (limited to 'src/algebra/strap/VECTOR.lsp')
-rw-r--r-- | src/algebra/strap/VECTOR.lsp | 55 |
1 files changed, 27 insertions, 28 deletions
diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp index f7ad2d7f..50609410 100644 --- a/src/algebra/strap/VECTOR.lsp +++ b/src/algebra/strap/VECTOR.lsp @@ -8,14 +8,14 @@ |VECTOR;convert;$If;2|)) (DEFUN |VECTOR;vector;L$;1| (|l| $) - (SPADCALL |l| (|getShellEntry| $ 8))) + (SPADCALL |l| (|getShellEntry| $ 10))) (DEFUN |VECTOR;convert;$If;2| (|x| $) (SPADCALL - (LIST (SPADCALL '|vector| (|getShellEntry| $ 12)) - (SPADCALL (SPADCALL |x| (|getShellEntry| $ 13)) - (|getShellEntry| $ 14))) - (|getShellEntry| $ 16))) + (LIST (SPADCALL '|vector| (|getShellEntry| $ 14)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 15)) + (|getShellEntry| $ 16))) + (|getShellEntry| $ 18))) (DEFUN |Vector| (#0=#:G1408) (PROG () @@ -40,7 +40,7 @@ (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|Vector|)) (LETT |dv$| (LIST '|Vector| |dv$1|) . #0#) - (LETT $ (|newShell| 35) . #0#) + (LETT $ (|newShell| 36) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| @@ -89,23 +89,23 @@ (|setShellEntry| $ 6 |#1|) (COND ((|testBitVector| |pv$| 3) - (|setShellEntry| $ 17 + (|setShellEntry| $ 19 (CONS (|dispatchFunction| |VECTOR;convert;$If;2|) $)))) $)))) (MAKEPROP '|Vector| '|infovec| (LIST '#(NIL NIL NIL NIL NIL (|IndexedVector| 6 (NRTEVAL 1)) - (|local| |#1|) (|List| 6) (0 . |construct|) - |VECTOR;vector;L$;1| (|Symbol|) (|InputForm|) - (5 . |convert|) (10 . |parts|) (15 . |convert|) (|List| $) - (20 . |convert|) (25 . |convert|) (|Mapping| 6 6 6) - (|Boolean|) (|NonNegativeInteger|) (|Equation| 6) - (|List| 21) (|Integer|) (|Mapping| 19 6) - (|Mapping| 19 6 6) (|UniversalSegment| 23) (|Void|) - (|Mapping| 6 6) (|OutputForm|) (|Matrix| 6) + (|local| |#1|) (|Integer|) (0 . |One|) (|List| 6) + (4 . |construct|) |VECTOR;vector;L$;1| (|Symbol|) + (|InputForm|) (9 . |convert|) (14 . |parts|) + (19 . |convert|) (|List| $) (24 . |convert|) + (29 . |convert|) (|Mapping| 6 6 6) (|Boolean|) + (|NonNegativeInteger|) (|Equation| 6) (|List| 23) + (|Mapping| 21 6) (|Mapping| 21 6 6) (|UniversalSegment| 7) + (|Void|) (|Mapping| 6 6) (|OutputForm|) (|Matrix| 6) (|SingleInteger|) (|String|) (|Union| 6 '"failed") - (|List| 23)) - '#(|vector| 30 |parts| 35 |convert| 40 |construct| 45) + (|List| 7)) + '#(|vector| 34 |parts| 39 |convert| 44 |construct| 49) '((|shallowlyMutable| . 0) (|finiteAggregate| . 0)) (CONS (|makeByteWordVec2| 5 '(0 0 0 0 0 0 0 5 0 0 1 4 0 0 1 2 3 4)) @@ -121,18 +121,17 @@ (|OneDimensionalArrayAggregate| 6) (|FiniteLinearAggregate| 6) (|LinearAggregate| 6) - (|IndexedAggregate| 23 6) + (|IndexedAggregate| 7 6) (|Collection| 6) (|HomogeneousAggregate| 6) (|OrderedSet|) (|Aggregate|) - (|EltableAggregate| 23 6) (|Evalable| 6) - (|SetCategory|) (|Type|) - (|Eltable| 23 6) (|InnerEvalable| 6 6) - (|CoercibleTo| 29) (|ConvertibleTo| 11) - (|BasicType|)) - (|makeByteWordVec2| 17 - '(1 0 0 7 8 1 11 0 10 12 1 0 7 0 13 1 7 - 11 0 14 1 11 0 15 16 1 0 11 0 17 1 0 - 0 7 9 1 0 7 0 13 1 3 11 0 17 1 0 0 7 - 8))))) + (|EltableAggregate| 7 6) (|Evalable| 6) + (|SetCategory|) (|Type|) (|Eltable| 7 6) + (|InnerEvalable| 6 6) (|CoercibleTo| 30) + (|ConvertibleTo| 13) (|BasicType|)) + (|makeByteWordVec2| 19 + '(0 7 0 8 1 0 0 9 10 1 13 0 12 14 1 0 9 + 0 15 1 9 13 0 16 1 13 0 17 18 1 0 13 + 0 19 1 0 0 9 11 1 0 9 0 15 1 3 13 0 + 19 1 0 0 9 10))))) '|lookupIncomplete|)) |