* algebra/op.spad.pamphlet (BasicOperator): Use string$String

	instead of coercion from Identifier to String.

7 files changed, 17 insertions, 11 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 4617517c..52a51dd0 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
 2011-09-08  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
+	* algebra/op.spad.pamphlet (BasicOperator): Use string$String
+	instead of coercion from Identifier to String.
+
+2011-09-08  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
 	* algebra/string.spad.pamphlet (String) [string]: New overload to
 	convert from Identifier.
 
diff --git a/src/algebra/op.spad.pamphlet b/src/algebra/op.spad.pamphlet
index 61bb3de6..f5914d47 100644
--- a/src/algebra/op.spad.pamphlet
+++ b/src/algebra/op.spad.pamphlet
@@ -116,6 +116,7 @@ BasicOperator(): Exports == Implementation where
     macro DISPLAY == '%display
     macro SEXPR == '%input
     import Arity
+    import String
     -- if narg < 0 then the operator ahs variable arity.
     Rep == Record(opname:Symbol, narg: Arity, props:P)
 
@@ -130,11 +131,11 @@ BasicOperator(): Exports == Implementation where
     operator(s: Symbol, a: Arity) == per [s, a, table()]
     property(op: %, name: String)   == search(name, rep(op).props)
     property(op: %, p: Identifier) == 
-      case search(STRING(p)$Lisp, rep(op).props) is
+      case search(string p, rep(op).props) is
         val@None => just val
         otherwise => nothing
     assert(op: %, p: Identifier) == setProperty(op, p, NIL$Lisp)
-    has?(op: %, name: Identifier) == key?(STRING(name)$Lisp, rep(op).props)
+    has?(op: %, name: Identifier) == key?(string name, rep(op).props)
     weight(op, n)        == setProperty(op, WEIGHT, n pretend None)
     nullary? op          == zero? rep(op).narg
     unary? op            == one? rep(op).narg
@@ -144,13 +145,13 @@ BasicOperator(): Exports == Implementation where
     display(op:$, f:O -> O)        == display(op, f first #1)
     deleteProperty!(op: %, name: String) == (remove!(name, properties op); op)
     deleteProperty!(op: %, p: Identifier) == 
-      remove!(p::String, properties op)
+      remove!(string p, properties op)
       op
     setProperty(op: %, name: String, valu: None) == 
       rep(op).props.name := valu
       op
     setProperty(op: %, p: Identifier, valu: None) == 
-      rep(op).props.(p::String) := valu
+      rep(op).props.(string p) := valu
       op
     coerce(op:$):OutputForm        == name(op)::OutputForm
     input(op:$, f:List SEX -> SEX) == setProperty(op, SEXPR, f pretend None)
diff --git a/src/share/algebra/browse.daase b/src/share/algebra/browse.daase
index 366a719e..264c4f1e 100644
--- a/src/share/algebra/browse.daase
+++ b/src/share/algebra/browse.daase
@@ -1,5 +1,5 @@
 
-(2277008 . 3524516111)       
+(2277008 . 3524519070)       
 (-18 A S) 
 ((|constructor| (NIL "One-dimensional-array aggregates serves as models for one-dimensional arrays. Categorically,{} these aggregates are finite linear aggregates with the \\spadatt{shallowlyMutable} property,{} that is,{} any component of the array may be changed without affecting the identity of the overall array. Array data structures are typically represented by a fixed area in storage and therefore cannot efficiently grow or shrink on demand as can list structures (see however \\spadtype{FlexibleArray} for a data structure which is a cross between a list and an array). Iteration over,{} and access to,{} elements of arrays is extremely fast (and often can be optimized to open-code). Insertion and deletion however is generally slow since an entirely new data structure must be created for the result."))) 
 NIL 
diff --git a/src/share/algebra/category.daase b/src/share/algebra/category.daase
index 4caa2225..ed439878 100644
--- a/src/share/algebra/category.daase
+++ b/src/share/algebra/category.daase
@@ -1,5 +1,5 @@
 
-(207263 . 3524516115)        
+(207263 . 3524519074)        
 ((((-877)) . T)) 
 ((((-877)) . T)) 
 ((((-877)) . T)) 
diff --git a/src/share/algebra/compress.daase b/src/share/algebra/compress.daase
index 1fe8cf8d..0fe36c6b 100644
--- a/src/share/algebra/compress.daase
+++ b/src/share/algebra/compress.daase
@@ -1,5 +1,5 @@
 
-(30 . 3524516110)            
+(30 . 3524519069)            
 (4428 |Enumeration| |Mapping| |Record| |Union| |ofCategory| |isDomain|
  ATTRIBUTE |package| |domain| |category| CATEGORY |nobranch| AND |Join|
  |ofType| SIGNATURE "failed" "algebra" |OneDimensionalArrayAggregate&|
diff --git a/src/share/algebra/interp.daase b/src/share/algebra/interp.daase
index 3b9c993f..94bbcbbb 100644
--- a/src/share/algebra/interp.daase
+++ b/src/share/algebra/interp.daase
@@ -1,5 +1,5 @@
 
-(3097005 . 3524516122)       
+(3097005 . 3524519081)       
 ((-1935 (((-114) (-1 (-114) |#2| |#2|) $) 86 T ELT) (((-114) $) NIL T ELT)) (-1933 (($ (-1 (-114) |#2| |#2|) $) 18 T ELT) (($ $) NIL T ELT)) (-4218 ((|#2| $ (-558) |#2|) NIL T ELT) ((|#2| $ (-1255 (-558)) |#2|) 44 T ELT)) (-2510 (($ $) 80 T ELT)) (-4272 ((|#2| (-1 |#2| |#2| |#2|) $ |#2| |#2|) 52 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $ |#2|) 50 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $) 49 T ELT)) (-3839 (((-558) (-1 (-114) |#2|) $) 27 T ELT) (((-558) |#2| $) NIL T ELT) (((-558) |#2| $ (-558)) 96 T ELT)) (-3290 (((-661 |#2|) $) 13 T ELT)) (-3938 (($ (-1 (-114) |#2| |#2|) $ $) 64 T ELT) (($ $ $) NIL T ELT)) (-2160 (($ (-1 |#2| |#2|) $) 37 T ELT)) (-4388 (($ (-1 |#2| |#2|) $) NIL T ELT) (($ (-1 |#2| |#2| |#2|) $ $) 60 T ELT)) (-2517 (($ |#2| $ (-558)) NIL T ELT) (($ $ $ (-558)) 67 T ELT)) (-1468 (((-3 |#2| "failed") (-1 (-114) |#2|) $) 29 T ELT)) (-2158 (((-114) (-1 (-114) |#2|) $) 23 T ELT)) (-4230 ((|#2| $ (-558) |#2|) NIL T ELT) ((|#2| $ (-558)) NIL T ELT) (($ $ (-1255 (-558))) 66 T ELT)) (-2518 (($ $ (-558)) 76 T ELT) (($ $ (-1255 (-558))) 75 T ELT)) (-2157 (((-791) (-1 (-114) |#2|) $) 34 T ELT) (((-791) |#2| $) NIL T ELT)) (-1934 (($ $ $ (-558)) 69 T ELT)) (-3820 (($ $) 68 T ELT)) (-3950 (($ (-661 |#2|)) 73 T ELT)) (-4232 (($ $ |#2|) NIL T ELT) (($ |#2| $) NIL T ELT) (($ $ $) 87 T ELT) (($ (-661 $)) 85 T ELT)) (-4376 (((-877) $) 92 T ELT)) (-2159 (((-114) (-1 (-114) |#2|) $) 22 T ELT)) (-3454 (((-114) $ $) 95 T ELT)) (-3086 (((-114) $ $) 99 T ELT))) 
 (((-18 |#1| |#2|) (-10 -7 (-15 -3454 ((-114) |#1| |#1|)) (-15 -4376 ((-877) |#1|)) (-15 -3086 ((-114) |#1| |#1|)) (-15 -1933 (|#1| |#1|)) (-15 -1933 (|#1| (-1 (-114) |#2| |#2|) |#1|)) (-15 -2510 (|#1| |#1|)) (-15 -1934 (|#1| |#1| |#1| (-558))) (-15 -1935 ((-114) |#1|)) (-15 -3938 (|#1| |#1| |#1|)) (-15 -3839 ((-558) |#2| |#1| (-558))) (-15 -3839 ((-558) |#2| |#1|)) (-15 -3839 ((-558) (-1 (-114) |#2|) |#1|)) (-15 -1935 ((-114) (-1 (-114) |#2| |#2|) |#1|)) (-15 -3938 (|#1| (-1 (-114) |#2| |#2|) |#1| |#1|)) (-15 -4218 (|#2| |#1| (-1255 (-558)) |#2|)) (-15 -2517 (|#1| |#1| |#1| (-558))) (-15 -2517 (|#1| |#2| |#1| (-558))) (-15 -2518 (|#1| |#1| (-1255 (-558)))) (-15 -2518 (|#1| |#1| (-558))) (-15 -4388 (|#1| (-1 |#2| |#2| |#2|) |#1| |#1|)) (-15 -4232 (|#1| (-661 |#1|))) (-15 -4232 (|#1| |#1| |#1|)) (-15 -4232 (|#1| |#2| |#1|)) (-15 -4232 (|#1| |#1| |#2|)) (-15 -4230 (|#1| |#1| (-1255 (-558)))) (-15 -3950 (|#1| (-661 |#2|))) (-15 -1468 ((-3 |#2| "failed") (-1 (-114) |#2|) |#1|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2| |#2|)) (-15 -4230 (|#2| |#1| (-558))) (-15 -4230 (|#2| |#1| (-558) |#2|)) (-15 -4218 (|#2| |#1| (-558) |#2|)) (-15 -2157 ((-791) |#2| |#1|)) (-15 -3290 ((-661 |#2|) |#1|)) (-15 -2157 ((-791) (-1 (-114) |#2|) |#1|)) (-15 -2158 ((-114) (-1 (-114) |#2|) |#1|)) (-15 -2159 ((-114) (-1 (-114) |#2|) |#1|)) (-15 -2160 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -4388 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -3820 (|#1| |#1|))) (-19 |#2|) (-1238)) (T -18)) 
 NIL 
@@ -326,7 +326,7 @@ NIL
 ((-2967 (((-114) $ $) NIL T ELT)) (-2526 (($ $) 9 T ELT)) (-3742 (($ $ $) 14 T ELT)) (-3256 (($) 6 T CONST)) (-3538 (((-791)) 23 T ELT)) (-3395 (($) 31 T ELT)) (-2960 (($ $ $) 12 T ELT)) (-2959 (($ $) 8 T ELT)) (-1414 (($ $ $) 15 T ELT)) (-1415 (($ $ $) 16 T ELT)) (-2930 (($ $ $) NIL T ELT) (($) NIL T CONST)) (-3258 (($ $ $) NIL T ELT) (($) NIL T CONST)) (-2220 (((-938) $) 29 T ELT)) (-3660 (((-1180) $) NIL T ELT)) (-2631 (($ (-938)) 27 T ELT)) (-3254 (($ $ $) 19 T ELT)) (-3661 (((-1141) $) NIL T ELT)) (-3255 (($) 7 T CONST)) (-3253 (($ $ $) 20 T ELT)) (-4402 (((-547) $) 33 T ELT)) (-4376 (((-877) $) 35 T ELT)) (-1378 (((-114) $ $) NIL T ELT)) (-2961 (($ $ $) 10 T ELT)) (-2524 (($ $ $) 13 T ELT)) (-2965 (((-114) $ $) NIL T ELT)) (-2966 (((-114) $ $) NIL T ELT)) (-3454 (((-114) $ $) 18 T ELT)) (-3085 (((-114) $ $) NIL T ELT)) (-3086 (((-114) $ $) 21 T ELT)) (-2525 (($ $ $) 11 T ELT))) 
 (((-114) (-13 (-857) (-988) (-631 (-547)) (-10 -8 (-15 -3742 ($ $ $)) (-15 -1415 ($ $ $)) (-15 -1414 ($ $ $))))) (T -114)) 
 ((-3742 (*1 *1 *1 *1) (-5 *1 (-114))) (-1415 (*1 *1 *1 *1) (-5 *1 (-114))) (-1414 (*1 *1 *1 *1) (-5 *1 (-114)))) 
-((-2967 (((-114) $ $) NIL T ELT)) (-1654 (((-791) $) 92 T ELT) (($ $ (-791)) 37 T ELT)) (-1400 (((-114) $) 41 T ELT)) (-1394 (($ $ (-1180) (-793)) 59 T ELT) (($ $ (-518) (-793)) 33 T ELT)) (-1393 (($ $ (-45 (-1180) (-793))) 16 T ELT)) (-3242 (((-3 (-793) "failed") $ (-1180)) 27 T ELT) (((-711 (-793)) $ (-518)) 32 T ELT)) (-1402 (((-45 (-1180) (-793)) $) 15 T ELT)) (-4023 (($ (-1198)) 20 T ELT) (($ (-1198) (-791)) 23 T ELT) (($ (-1198) (-55)) 24 T ELT)) (-1401 (((-114) $) 39 T ELT)) (-1399 (((-114) $) 43 T ELT)) (-3970 (((-1198) $) 8 T ELT)) (-2930 (($ $ $) NIL T ELT)) (-3258 (($ $ $) NIL T ELT)) (-3660 (((-1180) $) NIL T ELT)) (-3032 (((-114) $ (-1198)) 11 T ELT)) (-2343 (($ $ (-1 (-547) (-661 (-547)))) 65 T ELT) (((-711 (-1 (-547) (-661 (-547)))) $) 69 T ELT)) (-3661 (((-1141) $) NIL T ELT)) (-1396 (((-114) $ (-518)) 36 T ELT)) (-1398 (($ $ (-1 (-114) $ $)) 45 T ELT)) (-4047 (((-711 (-1 (-877) (-661 (-877)))) $) 67 T ELT) (($ $ (-1 (-877) (-661 (-877)))) 51 T ELT) (($ $ (-1 (-877) (-877))) 53 T ELT)) (-1395 (($ $ (-1180)) 55 T ELT) (($ $ (-518)) 57 T ELT)) (-3820 (($ $) 75 T ELT)) (-1397 (($ $ (-1 (-114) $ $)) 46 T ELT)) (-4376 (((-877) $) 61 T ELT)) (-1378 (((-114) $ $) NIL T ELT)) (-3193 (($ $ (-518)) 34 T ELT)) (-2917 (((-55) $) 70 T ELT)) (-2965 (((-114) $ $) NIL T ELT)) (-2966 (((-114) $ $) NIL T ELT)) (-3454 (((-114) $ $) 88 T ELT)) (-3085 (((-114) $ $) NIL T ELT)) (-3086 (((-114) $ $) 104 T ELT))) 
+((-2967 (((-114) $ $) NIL T ELT)) (-1654 (((-791) $) 92 T ELT) (($ $ (-791)) 38 T ELT)) (-1400 (((-114) $) 42 T ELT)) (-1394 (($ $ (-1180) (-793)) 59 T ELT) (($ $ (-518) (-793)) 34 T ELT)) (-1393 (($ $ (-45 (-1180) (-793))) 16 T ELT)) (-3242 (((-3 (-793) "failed") $ (-1180)) 27 T ELT) (((-711 (-793)) $ (-518)) 33 T ELT)) (-1402 (((-45 (-1180) (-793)) $) 15 T ELT)) (-4023 (($ (-1198)) 20 T ELT) (($ (-1198) (-791)) 23 T ELT) (($ (-1198) (-55)) 24 T ELT)) (-1401 (((-114) $) 40 T ELT)) (-1399 (((-114) $) 44 T ELT)) (-3970 (((-1198) $) 8 T ELT)) (-2930 (($ $ $) NIL T ELT)) (-3258 (($ $ $) NIL T ELT)) (-3660 (((-1180) $) NIL T ELT)) (-3032 (((-114) $ (-1198)) 11 T ELT)) (-2343 (($ $ (-1 (-547) (-661 (-547)))) 65 T ELT) (((-711 (-1 (-547) (-661 (-547)))) $) 69 T ELT)) (-3661 (((-1141) $) NIL T ELT)) (-1396 (((-114) $ (-518)) 37 T ELT)) (-1398 (($ $ (-1 (-114) $ $)) 46 T ELT)) (-4047 (((-711 (-1 (-877) (-661 (-877)))) $) 67 T ELT) (($ $ (-1 (-877) (-661 (-877)))) 52 T ELT) (($ $ (-1 (-877) (-877))) 54 T ELT)) (-1395 (($ $ (-1180)) 56 T ELT) (($ $ (-518)) 57 T ELT)) (-3820 (($ $) 75 T ELT)) (-1397 (($ $ (-1 (-114) $ $)) 47 T ELT)) (-4376 (((-877) $) 61 T ELT)) (-1378 (((-114) $ $) NIL T ELT)) (-3193 (($ $ (-518)) 35 T ELT)) (-2917 (((-55) $) 70 T ELT)) (-2965 (((-114) $ $) NIL T ELT)) (-2966 (((-114) $ $) NIL T ELT)) (-3454 (((-114) $ $) 88 T ELT)) (-3085 (((-114) $ $) NIL T ELT)) (-3086 (((-114) $ $) 104 T ELT))) 
 (((-115) (-13 (-861) (-849 (-1198)) (-10 -8 (-15 -1402 ((-45 (-1180) (-793)) $)) (-15 -3820 ($ $)) (-15 -4023 ($ (-1198))) (-15 -4023 ($ (-1198) (-791))) (-15 -4023 ($ (-1198) (-55))) (-15 -1401 ((-114) $)) (-15 -1400 ((-114) $)) (-15 -1399 ((-114) $)) (-15 -1654 ((-791) $)) (-15 -1654 ($ $ (-791))) (-15 -1398 ($ $ (-1 (-114) $ $))) (-15 -1397 ($ $ (-1 (-114) $ $))) (-15 -4047 ((-711 (-1 (-877) (-661 (-877)))) $)) (-15 -4047 ($ $ (-1 (-877) (-661 (-877))))) (-15 -4047 ($ $ (-1 (-877) (-877)))) (-15 -2343 ($ $ (-1 (-547) (-661 (-547))))) (-15 -2343 ((-711 (-1 (-547) (-661 (-547)))) $)) (-15 -1396 ((-114) $ (-518))) (-15 -3193 ($ $ (-518))) (-15 -1395 ($ $ (-1180))) (-15 -1395 ($ $ (-518))) (-15 -3242 ((-3 (-793) "failed") $ (-1180))) (-15 -3242 ((-711 (-793)) $ (-518))) (-15 -1394 ($ $ (-1180) (-793))) (-15 -1394 ($ $ (-518) (-793))) (-15 -1393 ($ $ (-45 (-1180) (-793))))))) (T -115)) 
 ((-1402 (*1 *2 *1) (-12 (-5 *2 (-45 (-1180) (-793))) (-5 *1 (-115)))) (-3820 (*1 *1 *1) (-5 *1 (-115))) (-4023 (*1 *1 *2) (-12 (-5 *2 (-1198)) (-5 *1 (-115)))) (-4023 (*1 *1 *2 *3) (-12 (-5 *2 (-1198)) (-5 *3 (-791)) (-5 *1 (-115)))) (-4023 (*1 *1 *2 *3) (-12 (-5 *2 (-1198)) (-5 *3 (-55)) (-5 *1 (-115)))) (-1401 (*1 *2 *1) (-12 (-5 *2 (-114)) (-5 *1 (-115)))) (-1400 (*1 *2 *1) (-12 (-5 *2 (-114)) (-5 *1 (-115)))) (-1399 (*1 *2 *1) (-12 (-5 *2 (-114)) (-5 *1 (-115)))) (-1654 (*1 *2 *1) (-12 (-5 *2 (-791)) (-5 *1 (-115)))) (-1654 (*1 *1 *1 *2) (-12 (-5 *2 (-791)) (-5 *1 (-115)))) (-1398 (*1 *1 *1 *2) (-12 (-5 *2 (-1 (-114) (-115) (-115))) (-5 *1 (-115)))) (-1397 (*1 *1 *1 *2) (-12 (-5 *2 (-1 (-114) (-115) (-115))) (-5 *1 (-115)))) (-4047 (*1 *2 *1) (-12 (-5 *2 (-711 (-1 (-877) (-661 (-877))))) (-5 *1 (-115)))) (-4047 (*1 *1 *1 *2) (-12 (-5 *2 (-1 (-877) (-661 (-877)))) (-5 *1 (-115)))) (-4047 (*1 *1 *1 *2) (-12 (-5 *2 (-1 (-877) (-877))) (-5 *1 (-115)))) (-2343 (*1 *1 *1 *2) (-12 (-5 *2 (-1 (-547) (-661 (-547)))) (-5 *1 (-115)))) (-2343 (*1 *2 *1) (-12 (-5 *2 (-711 (-1 (-547) (-661 (-547))))) (-5 *1 (-115)))) (-1396 (*1 *2 *1 *3) (-12 (-5 *3 (-518)) (-5 *2 (-114)) (-5 *1 (-115)))) (-3193 (*1 *1 *1 *2) (-12 (-5 *2 (-518)) (-5 *1 (-115)))) (-1395 (*1 *1 *1 *2) (-12 (-5 *2 (-1180)) (-5 *1 (-115)))) (-1395 (*1 *1 *1 *2) (-12 (-5 *2 (-518)) (-5 *1 (-115)))) (-3242 (*1 *2 *1 *3) (|partial| -12 (-5 *3 (-1180)) (-5 *2 (-793)) (-5 *1 (-115)))) (-3242 (*1 *2 *1 *3) (-12 (-5 *3 (-518)) (-5 *2 (-711 (-793))) (-5 *1 (-115)))) (-1394 (*1 *1 *1 *2 *3) (-12 (-5 *2 (-1180)) (-5 *3 (-793)) (-5 *1 (-115)))) (-1394 (*1 *1 *1 *2 *3) (-12 (-5 *2 (-518)) (-5 *3 (-793)) (-5 *1 (-115)))) (-1393 (*1 *1 *1 *2) (-12 (-5 *2 (-45 (-1180) (-793))) (-5 *1 (-115))))) 
 ((-2914 (((-3 (-1 |#1| (-661 |#1|)) #1="failed") (-115)) 23 T ELT) (((-115) (-115) (-1 |#1| |#1|)) 13 T ELT) (((-115) (-115) (-1 |#1| (-661 |#1|))) 11 T ELT) (((-3 |#1| #1#) (-115) (-661 |#1|)) 25 T ELT)) (-1403 (((-3 (-661 (-1 |#1| (-661 |#1|))) #1#) (-115)) 29 T ELT) (((-115) (-115) (-1 |#1| |#1|)) 33 T ELT) (((-115) (-115) (-661 (-1 |#1| (-661 |#1|)))) 30 T ELT)) (-1404 (((-115) |#1|) 63 T ELT)) (-1405 (((-3 |#1| #1#) (-115)) 58 T ELT))) 
@@ -2540,7 +2540,7 @@ NIL
 ((-2816 (((-1056) (-229) (-229) (-229) (-229) (-558)) 62 T ELT)) (-2815 (((-1056) (-229) (-229) (-229) (-558)) 61 T ELT)) (-2814 (((-1056) (-229) (-229) (-229) (-558)) 60 T ELT)) (-2813 (((-1056) (-229) (-229) (-558)) 59 T ELT)) (-2812 (((-1056) (-229) (-558)) 58 T ELT)) (-2811 (((-1056) (-229) (-558)) 57 T ELT)) (-2810 (((-1056) (-229) (-558)) 56 T ELT)) (-2809 (((-1056) (-229) (-558)) 55 T ELT)) (-2808 (((-1056) (-229) (-558)) 54 T ELT)) (-2807 (((-1056) (-229) (-558)) 53 T ELT)) (-2806 (((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558)) 52 T ELT)) (-2805 (((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558)) 51 T ELT)) (-2804 (((-1056) (-229) (-558)) 50 T ELT)) (-2803 (((-1056) (-229) (-558)) 49 T ELT)) (-2802 (((-1056) (-229) (-558)) 48 T ELT)) (-2801 (((-1056) (-229) (-558)) 47 T ELT)) (-2800 (((-1056) (-558) (-229) (-171 (-229)) (-558) (-1180) (-558)) 46 T ELT)) (-2799 (((-1056) (-1180) (-171 (-229)) (-1180) (-558)) 45 T ELT)) (-2798 (((-1056) (-1180) (-171 (-229)) (-1180) (-558)) 44 T ELT)) (-2797 (((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558)) 43 T ELT)) (-2796 (((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558)) 42 T ELT)) (-2795 (((-1056) (-229) (-558)) 39 T ELT)) (-2794 (((-1056) (-229) (-558)) 38 T ELT)) (-2793 (((-1056) (-229) (-558)) 37 T ELT)) (-2792 (((-1056) (-229) (-558)) 36 T ELT)) (-2791 (((-1056) (-229) (-558)) 35 T ELT)) (-2790 (((-1056) (-229) (-558)) 34 T ELT)) (-2789 (((-1056) (-229) (-558)) 33 T ELT)) (-2788 (((-1056) (-229) (-558)) 32 T ELT)) (-2787 (((-1056) (-229) (-558)) 31 T ELT)) (-2786 (((-1056) (-229) (-558)) 30 T ELT)) (-2785 (((-1056) (-229) (-229) (-229) (-558)) 29 T ELT)) (-2784 (((-1056) (-229) (-558)) 28 T ELT)) (-2783 (((-1056) (-229) (-558)) 27 T ELT)) (-2782 (((-1056) (-229) (-558)) 26 T ELT)) (-2781 (((-1056) (-229) (-558)) 25 T ELT)) (-2780 (((-1056) (-229) (-558)) 24 T ELT)) (-2779 (((-1056) (-171 (-229)) (-558)) 21 T ELT))) 
 (((-778) (-10 -7 (-15 -2779 ((-1056) (-171 (-229)) (-558))) (-15 -2780 ((-1056) (-229) (-558))) (-15 -2781 ((-1056) (-229) (-558))) (-15 -2782 ((-1056) (-229) (-558))) (-15 -2783 ((-1056) (-229) (-558))) (-15 -2784 ((-1056) (-229) (-558))) (-15 -2785 ((-1056) (-229) (-229) (-229) (-558))) (-15 -2786 ((-1056) (-229) (-558))) (-15 -2787 ((-1056) (-229) (-558))) (-15 -2788 ((-1056) (-229) (-558))) (-15 -2789 ((-1056) (-229) (-558))) (-15 -2790 ((-1056) (-229) (-558))) (-15 -2791 ((-1056) (-229) (-558))) (-15 -2792 ((-1056) (-229) (-558))) (-15 -2793 ((-1056) (-229) (-558))) (-15 -2794 ((-1056) (-229) (-558))) (-15 -2795 ((-1056) (-229) (-558))) (-15 -2796 ((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558))) (-15 -2797 ((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558))) (-15 -2798 ((-1056) (-1180) (-171 (-229)) (-1180) (-558))) (-15 -2799 ((-1056) (-1180) (-171 (-229)) (-1180) (-558))) (-15 -2800 ((-1056) (-558) (-229) (-171 (-229)) (-558) (-1180) (-558))) (-15 -2801 ((-1056) (-229) (-558))) (-15 -2802 ((-1056) (-229) (-558))) (-15 -2803 ((-1056) (-229) (-558))) (-15 -2804 ((-1056) (-229) (-558))) (-15 -2805 ((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558))) (-15 -2806 ((-1056) (-229) (-171 (-229)) (-558) (-1180) (-558))) (-15 -2807 ((-1056) (-229) (-558))) (-15 -2808 ((-1056) (-229) (-558))) (-15 -2809 ((-1056) (-229) (-558))) (-15 -2810 ((-1056) (-229) (-558))) (-15 -2811 ((-1056) (-229) (-558))) (-15 -2812 ((-1056) (-229) (-558))) (-15 -2813 ((-1056) (-229) (-229) (-558))) (-15 -2814 ((-1056) (-229) (-229) (-229) (-558))) (-15 -2815 ((-1056) (-229) (-229) (-229) (-558))) (-15 -2816 ((-1056) (-229) (-229) (-229) (-229) (-558))))) (T -778)) 
 ((-2816 (*1 *2 *3 *3 *3 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2815 (*1 *2 *3 *3 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2814 (*1 *2 *3 *3 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2813 (*1 *2 *3 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2812 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2811 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2810 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2809 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2808 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2807 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2806 (*1 *2 *3 *4 *5 *6 *5) (-12 (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *6 (-1180)) (-5 *3 (-229)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2805 (*1 *2 *3 *4 *5 *6 *5) (-12 (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *6 (-1180)) (-5 *3 (-229)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2804 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2803 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2802 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2801 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2800 (*1 *2 *3 *4 *5 *3 *6 *3) (-12 (-5 *3 (-558)) (-5 *5 (-171 (-229))) (-5 *6 (-1180)) (-5 *4 (-229)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2799 (*1 *2 *3 *4 *3 *5) (-12 (-5 *3 (-1180)) (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2798 (*1 *2 *3 *4 *3 *5) (-12 (-5 *3 (-1180)) (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2797 (*1 *2 *3 *4 *5 *6 *5) (-12 (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *6 (-1180)) (-5 *3 (-229)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2796 (*1 *2 *3 *4 *5 *6 *5) (-12 (-5 *4 (-171 (-229))) (-5 *5 (-558)) (-5 *6 (-1180)) (-5 *3 (-229)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2795 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2794 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2793 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2792 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2791 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2790 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2789 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2788 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2787 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2786 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2785 (*1 *2 *3 *3 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2784 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2783 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2782 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2781 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2780 (*1 *2 *3 *4) (-12 (-5 *3 (-229)) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778)))) (-2779 (*1 *2 *3 *4) (-12 (-5 *3 (-171 (-229))) (-5 *4 (-558)) (-5 *2 (-1056)) (-5 *1 (-778))))) 
-((-2822 (((-1294)) 20 T ELT)) (-2818 (((-1180)) 34 T ELT)) (-2817 (((-1180)) 33 T ELT)) (-2820 (((-1124) (-1198) (-709 (-558))) 47 T ELT) (((-1124) (-1198) (-709 (-229))) 43 T ELT)) (-2821 (((-114)) 19 T ELT)) (-2819 (((-1180) (-1180)) 37 T ELT))) 
+((-2822 (((-1294)) 20 T ELT)) (-2818 (((-1180)) 35 T ELT)) (-2817 (((-1180)) 34 T ELT)) (-2820 (((-1124) (-1198) (-709 (-558))) 48 T ELT) (((-1124) (-1198) (-709 (-229))) 44 T ELT)) (-2821 (((-114)) 19 T ELT)) (-2819 (((-1180) (-1180)) 38 T ELT))) 
 (((-779) (-10 -7 (-15 -2817 ((-1180))) (-15 -2818 ((-1180))) (-15 -2819 ((-1180) (-1180))) (-15 -2820 ((-1124) (-1198) (-709 (-229)))) (-15 -2820 ((-1124) (-1198) (-709 (-558)))) (-15 -2821 ((-114))) (-15 -2822 ((-1294))))) (T -779)) 
 ((-2822 (*1 *2) (-12 (-5 *2 (-1294)) (-5 *1 (-779)))) (-2821 (*1 *2) (-12 (-5 *2 (-114)) (-5 *1 (-779)))) (-2820 (*1 *2 *3 *4) (-12 (-5 *3 (-1198)) (-5 *4 (-709 (-558))) (-5 *2 (-1124)) (-5 *1 (-779)))) (-2820 (*1 *2 *3 *4) (-12 (-5 *3 (-1198)) (-5 *4 (-709 (-229))) (-5 *2 (-1124)) (-5 *1 (-779)))) (-2819 (*1 *2 *2) (-12 (-5 *2 (-1180)) (-5 *1 (-779)))) (-2818 (*1 *2) (-12 (-5 *2 (-1180)) (-5 *1 (-779)))) (-2817 (*1 *2) (-12 (-5 *2 (-1180)) (-5 *1 (-779))))) 
 ((-2824 (($ $ $) 10 T ELT)) (-2825 (($ $ $ $) 9 T ELT)) (-2823 (($ $ $) 12 T ELT))) 
diff --git a/src/share/algebra/operation.daase b/src/share/algebra/operation.daase
index 1ece65e8..c01ebb9c 100644
--- a/src/share/algebra/operation.daase
+++ b/src/share/algebra/operation.daase
@@ -1,5 +1,5 @@
 
-(719468 . 3524516113)        
+(719468 . 3524519071)        
 (((*1 *2 *3 *4)
   (|partial| -12 (-5 *3 (-1288 *4)) (-4 *4 (-13 (-1070) (-658 (-558))))
    (-5 *2 (-1288 (-419 (-558)))) (-5 *1 (-1317 *4)))))