From dfad32fe641e500abd6fb0c2afe59f27f70b7544 Mon Sep 17 00:00:00 2001 From: cdwensley Date: Wed, 13 Aug 2025 09:42:56 +0100 Subject: [PATCH] now using DeclareGlobalName and BindGlobal --- lib/files.gd | 4 ++-- lib/files.gi | 4 ++-- lib/groups.gd | 6 +++--- lib/groups.gi | 7 ++++--- lib/iterator.gd | 10 +++++----- lib/iterator.gi | 10 +++++----- lib/latex.gd | 6 +++--- lib/latex.gi | 6 +++--- lib/lcset.gd | 4 ++-- lib/lcset.gi | 5 +++-- lib/lists.gd | 10 +++++----- lib/lists.gi | 10 +++++----- lib/magma.gd | 4 ++-- lib/magma.gi | 2 +- lib/number.gd | 10 +++++----- lib/number.gi | 10 +++++----- lib/print.gd | 4 ++-- lib/print.gi | 4 ++-- lib/record.gd | 6 +++--- lib/record.gi | 6 +++--- lib/string.gd | 4 ++-- lib/string.gi | 4 ++-- 22 files changed, 69 insertions(+), 67 deletions(-) diff --git a/lib/files.gd b/lib/files.gd index 6ae50c5..20138ea 100644 --- a/lib/files.gd +++ b/lib/files.gd @@ -3,7 +3,7 @@ #W files.gd GAP4 package `Utils' Sebastian Gutsche ## Max Horn ## Stefan Kohl -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from RCWA @@ -20,7 +20,7 @@ ## ## - Adapt the style file rcwa/doc/gaplog.css to your taste. ## -DeclareGlobalFunction( "Log2HTML" ); +DeclareGlobalName( "Log2HTML" ); ############################################################################# ## diff --git a/lib/files.gi b/lib/files.gi index e82694f..031b5ab 100644 --- a/lib/files.gi +++ b/lib/files.gi @@ -3,14 +3,14 @@ #W files.gi GAP4 package `Utils' Sebastian Gutsche ## Max Horn ## Stefan Kohl -#Y Copyright (C) 2015-2018, The GAP Group, +#Y Copyright (C) 2015-2025, The GAP Group, ############################################################################# ## this function has been transferred from RCWA ## #F Log2HTML ( logfilename ) . . . . convert GAP logfile to XHTML 1.0 Strict ## -InstallGlobalFunction( Log2HTML, +BindGlobal( "Log2HTML", function ( logfilename ) diff --git a/lib/groups.gd b/lib/groups.gd index 68c2625..8e9ea7a 100644 --- a/lib/groups.gd +++ b/lib/groups.gd @@ -2,7 +2,7 @@ ## #W groups.gd GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2016, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses @@ -34,7 +34,7 @@ if not IsBound( FittingLength ) then ## #F ListOfPowers( , ) . . . . . . list of powers ^1 .. ^ ## -DeclareGlobalFunction( "ListOfPowers" ); +DeclareGlobalName( "ListOfPowers" ); ############################################################################# ## this function has been transferred from RCWA @@ -49,7 +49,7 @@ DeclareOperation( "GeneratorsAndInverses", [ IsMagmaWithInverses ] ); ## #O SubdirectProductWithEmbeddings(, , , ) ## -DeclareGlobalFunction("SubdirectProductWithEmbeddings"); +DeclareGlobalName( "SubdirectProductWithEmbeddings" ); DeclareOperation( "SubdirectProductWithEmbeddingsOp", [ IsGroup, IsGroup, IsGroupHomomorphism, IsGroupHomomorphism ] ); DeclareAttribute( "SubdirectProductWithEmbeddingsInfo", IsGroup, "mutable" ); diff --git a/lib/groups.gi b/lib/groups.gi index 87ff007..4334c8c 100644 --- a/lib/groups.gi +++ b/lib/groups.gi @@ -2,7 +2,7 @@ ## #W groups.gi GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2022, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses @@ -84,7 +84,7 @@ InstallMethod( FittingLength, "default method", true, [ IsGroup ], 0, ## #F ListOfPowers( , ) . . . . . . list of powers ^1 .. ^ ## -InstallGlobalFunction( ListOfPowers, +BindGlobal( "ListOfPowers", function ( g, exp ) @@ -111,7 +111,8 @@ InstallMethod( GeneratorsAndInverses, "for groups", true, [ IsGroup ], 0, ############################################################################# ## temporary methods for SubdirectProductWithEmbeddings ## -InstallGlobalFunction(SubdirectProductWithEmbeddings,function(G,H,ghom,hhom) +BindGlobal( "SubdirectProductWithEmbeddings", +function(G,H,ghom,hhom) local iso; if ( Range( ghom, G ) <> Range( hhom, H ) ) or ( Image( ghom, G ) <> Image( hhom, H ) ) then diff --git a/lib/iterator.gd b/lib/iterator.gd index 7cb17d6..01d41a7 100644 --- a/lib/iterator.gd +++ b/lib/iterator.gd @@ -2,7 +2,7 @@ ## #W iterator.gd GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2019, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## These functions complement AllHomomorphisms, AllEndomorphisms, and @@ -15,7 +15,7 @@ #O AllIsomorphisms( , ) ## DeclareOperation( "AllIsomorphismsIterator", [ IsGroup, IsGroup ] ); -DeclareGlobalFunction( "DoAllIsomorphismsIterator" ); +DeclareGlobalName( "DoAllIsomorphismsIterator" ); DeclareOperation( "AllIsomorphismsNumber", [ IsGroup, IsGroup ] ); DeclareOperation( "AllIsomorphisms", [ IsGroup, IsGroup ] ); @@ -26,7 +26,7 @@ DeclareOperation( "AllIsomorphisms", [ IsGroup, IsGroup ] ); #F DoAllSubgroupsIterator ## DeclareOperation( "AllSubgroupsIterator", [ IsGroup ] ); -DeclareGlobalFunction( "DoAllSubgroupsIterator" ); +DeclareGlobalName( "DoAllSubgroupsIterator" ); ############################################################################# ## These functions provide ways of combining two iterators into one @@ -37,6 +37,6 @@ DeclareGlobalFunction( "DoAllSubgroupsIterator" ); #F DoUnorderedPairsIterator ## DeclareOperation( "CartesianIterator", [ IsIterator, IsIterator ] ); -DeclareGlobalFunction( "DoCartesianIterator" ); +DeclareGlobalName( "DoCartesianIterator" ); DeclareOperation( "UnorderedPairsIterator", [ IsIterator ] ); -DeclareGlobalFunction( "DoUnorderedPairsIterator" ); +DeclareGlobalName( "DoUnorderedPairsIterator" ); diff --git a/lib/iterator.gi b/lib/iterator.gi index 4ff0484..4e4d89a 100644 --- a/lib/iterator.gi +++ b/lib/iterator.gi @@ -2,7 +2,7 @@ ## #W iterator.gi GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2019, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################## ## @@ -27,7 +27,7 @@ BindGlobal( "ShallowCopy_AllIsomorphisms", iter -> rec( firstiso := iter!.firstiso, autoIterator := ShallowCopy( iter!.autoIterator ) ) ); -InstallGlobalFunction( "DoAllIsomorphismsIterator", +BindGlobal( "DoAllIsomorphismsIterator", function( G, H ) local iso, autoiter, iter; @@ -117,7 +117,7 @@ BindGlobal( "ShallowCopy_AllSubgroups", classIterator := ShallowCopy( iter!.classIterator ), subgpIterator := ShallowCopy( iter!.subgpIterator ) ) ); -InstallGlobalFunction( "DoAllSubgroupsIterator", +BindGlobal( "DoAllSubgroupsIterator", function( G ) local lat, ccs, classIterator, subgpIterator, iter; @@ -171,7 +171,7 @@ BindGlobal( "ShallowCopy_CartesianIterator", Iterator2 := ShallowCopy( iter!.Iterator2 ), Iterator2Copy := ShallowCopy( iter!.Iterator2Copy ) ) ); -InstallGlobalFunction( "DoCartesianIterator", +BindGlobal( "DoCartesianIterator", function( iter1, iter2 ) local iter; @@ -231,7 +231,7 @@ BindGlobal( "ShallowCopy_UnorderedPairs", Iterator2 := ShallowCopy( iter!.Iterator2 ), Iterator1Copy := ShallowCopy( iter!.Iterator1Copy ) ) ); -InstallGlobalFunction( "DoUnorderedPairsIterator", +BindGlobal( "DoUnorderedPairsIterator", function( iter0 ) local iter; diff --git a/lib/latex.gd b/lib/latex.gd index 9850be4..121ecf8 100644 --- a/lib/latex.gd +++ b/lib/latex.gd @@ -2,14 +2,14 @@ ## #W latex.gd GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2016, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses ## #F IntOrInfinityToLaTeX( n ) . LaTeX string representing integer or infinity ## -DeclareGlobalFunction( "IntOrInfinityToLaTeX" ); +DeclareGlobalName( "IntOrInfinityToLaTeX" ); ############################################################################# ## this function has been transferred from RCWA @@ -19,7 +19,7 @@ DeclareGlobalFunction( "IntOrInfinityToLaTeX" ); ## Returns the prime factorization of the integer as a string in LaTeX ## format. ## -DeclareGlobalFunction( "LaTeXStringFactorsInt" ); +DeclareGlobalName( "LaTeXStringFactorsInt" ); ############################################################################# ## diff --git a/lib/latex.gi b/lib/latex.gi index 6758301..b8b9d00 100644 --- a/lib/latex.gi +++ b/lib/latex.gi @@ -2,14 +2,14 @@ ## #W latex.gi GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2016, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses ## #F IntOrInfinityToLaTeX( n ) . LaTeX string for a given integer or infinity ## -InstallGlobalFunction( IntOrInfinityToLaTeX, +BindGlobal( "IntOrInfinityToLaTeX", function( n ) if IsInt(n) then return String(n); @@ -22,7 +22,7 @@ InstallGlobalFunction( IntOrInfinityToLaTeX, ## #F LaTeXStringFactorsInt( ) . . . . prime factorization in LaTeX format ## -InstallGlobalFunction( LaTeXStringFactorsInt, +BindGlobal( "LaTeXStringFactorsInt", function ( n ) diff --git a/lib/lcset.gd b/lib/lcset.gd index 6c10464..a5aaf10 100644 --- a/lib/lcset.gd +++ b/lib/lcset.gd @@ -2,7 +2,7 @@ ## #W lcset.gd GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2022, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## @@ -31,5 +31,5 @@ DeclareOperation( "LeftCoset", [ IsObject, IsGroup ] ); #O LeftCosets( , ) . . . . . . . . . . . . . . . cosets gU for g in G #O LeftCosetsNC( , ) . . . . . . . . . . . . . . cosets gU for g in G ## -DeclareGlobalFunction( "LeftCosets" ); +DeclareGlobalName( "LeftCosets" ); DeclareOperation( "LeftCosetsNC", [ IsGroup, IsGroup ] ); diff --git a/lib/lcset.gi b/lib/lcset.gi index 84d2ad3..448f14f 100644 --- a/lib/lcset.gi +++ b/lib/lcset.gi @@ -2,7 +2,7 @@ ## #W lcset.gi GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2022, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## @@ -138,7 +138,8 @@ end); #F LeftCosets( ) . . . . . . . . . . . . left cosets of U by g \in G #O LeftCosetsNC( ) . . . . . . . . . . . left cosets of U by g \in G ## -InstallGlobalFunction( LeftCosets, function( G, U ) +BindGlobal( "LeftCosets", +function( G, U ) if not IsSubset( G, U ) then Error("not contained"); fi; diff --git a/lib/lists.gd b/lib/lists.gd index 01a988b..00c5829 100644 --- a/lib/lists.gd +++ b/lib/lists.gd @@ -2,7 +2,7 @@ ## #W lists.gd GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## these functions have been transferred from ResClasses @@ -11,9 +11,9 @@ #F QuotientsList( ) . . . . . . quotients of consecutive list entries #F FloatQuotientsList( ) . . . . . . . . . . . . dito, but as floats ## -DeclareGlobalFunction( "DifferencesList" ); -DeclareGlobalFunction( "QuotientsList" ); -DeclareGlobalFunction( "FloatQuotientsList" ); +DeclareGlobalName( "DifferencesList" ); +DeclareGlobalName( "QuotientsList" ); +DeclareGlobalName( "FloatQuotientsList" ); ############################################################################# ## this function has been transferred from ResClasses @@ -29,7 +29,7 @@ DeclareOperation( "RandomCombination", [ IsListOrCollection, IsPosInt ] ); ## #F SearchCycle( ) . . . a utility function for detecting cycles in lists ## -DeclareGlobalFunction( "SearchCycle" ); +DeclareGlobalName( "SearchCycle" ); ############################################################################# ## these functions have been have been transferred from XMod diff --git a/lib/lists.gi b/lib/lists.gi index ad5d24d..d8760a6 100644 --- a/lib/lists.gi +++ b/lib/lists.gi @@ -2,7 +2,7 @@ ## #W lists.gi GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## these functions have been transferred from ResClasses @@ -12,11 +12,11 @@ #F FloatQuotientsList( ) . . . . . . . . . . . . dito, but as floats ## -InstallGlobalFunction( DifferencesList, +BindGlobal( "DifferencesList", list -> List( [ 2..Length(list) ], pos -> list[ pos ] - list[ pos-1 ] ) ); -InstallGlobalFunction( QuotientsList, +BindGlobal( "QuotientsList", function( list ) local len, pos, quot; len := Length( list ); @@ -31,7 +31,7 @@ InstallGlobalFunction( QuotientsList, return quot; end ); -InstallGlobalFunction( FloatQuotientsList, +BindGlobal( "FloatQuotientsList", list -> List( QuotientsList( list ), Float ) ); ############################################################################# @@ -62,7 +62,7 @@ InstallMethod( RandomCombination, "default method", ## #F SearchCycle( ) . a utility function for detecting cycles in lists ## -InstallGlobalFunction( SearchCycle, +BindGlobal( "SearchCycle", function ( list ) diff --git a/lib/magma.gd b/lib/magma.gd index 961bfb3..c1e46b8 100644 --- a/lib/magma.gd +++ b/lib/magma.gd @@ -3,7 +3,7 @@ #W magma.gd GAP4 package `Utils' Max Horn ## Alexander Hulpke ## -#Y Copyright (C) 2015-2017, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function is new in Utils but calls functions which have been @@ -11,7 +11,7 @@ ## #F ConvertToMagmaInputString( ) . . output a string readable by Magma ## -DeclareGlobalFunction( "ConvertToMagmaInputString" ); +DeclareGlobalName( "ConvertToMagmaInputString" ); ############################################################################# ## this function was originally authored by Alexander Hulpke; diff --git a/lib/magma.gi b/lib/magma.gi index 98321dc..0c0adae 100644 --- a/lib/magma.gi +++ b/lib/magma.gi @@ -9,7 +9,7 @@ ## #F ConvertToMagmaInputString( ) . . output a string readable by Magma ## -InstallGlobalFunction( ConvertToMagmaInputString, +BindGlobal( "ConvertToMagmaInputString", function ( arg ) diff --git a/lib/number.gd b/lib/number.gd index ee47965..9c4e896 100644 --- a/lib/number.gd +++ b/lib/number.gd @@ -2,7 +2,7 @@ ## #W number.gd GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from RCWA @@ -17,7 +17,7 @@ ## `IsProbablyPrimeInt' instead of `IsPrimeInt'. ## For large , this function is much faster than `NextPrimeInt'. ## -DeclareGlobalFunction( "NextProbablyPrimeInt" ); +DeclareGlobalName( "NextProbablyPrimeInt" ); ############################################################################# ## this function has been transferred from RCWA @@ -27,7 +27,7 @@ DeclareGlobalFunction( "NextProbablyPrimeInt" ); ## Returns the set of all integers in the range [1..] which have only ## prime divisors in the range [2..]. ## -DeclareGlobalFunction( "AllSmoothIntegers" ); +DeclareGlobalName( "AllSmoothIntegers" ); ############################################################################# ## this function has been transferred from RCWA @@ -37,7 +37,7 @@ DeclareGlobalFunction( "AllSmoothIntegers" ); ## ## Iterator running through the prime numbers in ascending order. ## -DeclareGlobalFunction ( "PrimeNumbersIterator" ); +DeclareGlobalName( "PrimeNumbersIterator" ); ############################################################################# ## this function has been transferred from RCWA @@ -49,7 +49,7 @@ DeclareGlobalFunction ( "PrimeNumbersIterator" ); ## The only difference to `RestrictedPartitions' is that no repetitions are ## allowed. ## -DeclareGlobalFunction( "RestrictedPartitionsWithoutRepetitions" ); +DeclareGlobalName( "RestrictedPartitionsWithoutRepetitions" ); ############################################################################# ## this function has been transferred from RCWA diff --git a/lib/number.gi b/lib/number.gi index 27ee345..f3e3b9c 100644 --- a/lib/number.gi +++ b/lib/number.gi @@ -2,7 +2,7 @@ ## #W number.gi GAP4 package `Utils' Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from RCWA @@ -10,7 +10,7 @@ #F AllSmoothIntegers( , ) #F AllSmoothIntegers( , ) ## -InstallGlobalFunction( AllSmoothIntegers, +BindGlobal( "AllSmoothIntegers", function ( maxp, maxn ) @@ -44,7 +44,7 @@ InstallGlobalFunction( AllSmoothIntegers, ## #F NextProbablyPrimeInt( ) . . next integer passing `IsProbablyPrimeInt' ## -InstallGlobalFunction( NextProbablyPrimeInt, +BindGlobal( "NextProbablyPrimeInt", function ( n ) if -3 = n then n := -2; @@ -70,7 +70,7 @@ InstallGlobalFunction( NextProbablyPrimeInt, ## The only difference to `RestrictedPartitions' is that no repetitions are ## allowed. ## -InstallGlobalFunction( RestrictedPartitionsWithoutRepetitions, +BindGlobal( "RestrictedPartitionsWithoutRepetitions", function ( n, S ) @@ -106,7 +106,7 @@ InstallGlobalFunction( RestrictedPartitionsWithoutRepetitions, #F PrimeNumbersIterator( ) #F PrimeNumbersIterator( chunksize ) ## -InstallGlobalFunction( PrimeNumbersIterator, +BindGlobal( "PrimeNumbersIterator", function ( arg ) diff --git a/lib/print.gd b/lib/print.gd index f9de2f2..dc4b6b7 100644 --- a/lib/print.gd +++ b/lib/print.gd @@ -2,12 +2,12 @@ ## #W print.gd GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################## ## added global function and methods to print subsets of lists/iterators ## -DeclareGlobalFunction( "PrintSelection" ); +DeclareGlobalName( "PrintSelection" ); DeclareOperation( "PrintSelectionFromList", [ IsList, IsPosInt, IsPosInt, IsPosInt ] ); DeclareOperation( "PrintSelectionFromIterator", diff --git a/lib/print.gi b/lib/print.gi index 7175766..8085c0c 100644 --- a/lib/print.gi +++ b/lib/print.gi @@ -2,7 +2,7 @@ ## #W print.gi GAP4 package `Utils' Chris Wensley ## -#Y Copyright (C) 2015-2024, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## these operations have not been transferred from any other package @@ -11,7 +11,7 @@ #M PrintSelectionFromList( , , , ) #M PrintSelectionFromIterator( , , , ) ## -InstallGlobalFunction( "PrintSelection", +BindGlobal( "PrintSelection", function( arg ) diff --git a/lib/record.gd b/lib/record.gd index 3420889..d170aa5 100644 --- a/lib/record.gd +++ b/lib/record.gd @@ -3,7 +3,7 @@ #W record.gd GAP4 package `Utils' Sebastian Gutsche ## Max Horn ## Stefan Kohl -#Y Copyright (C) 2015-2022, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from RCWA @@ -13,7 +13,7 @@ ## This auxiliary function assigns the record components of to ## global variables with the same names. ## -DeclareGlobalFunction( "AssignGlobals" ); +DeclareGlobalName( "AssignGlobals" ); ############################################################################# @@ -24,7 +24,7 @@ DeclareGlobalFunction( "AssignGlobals" ); ## This auxiliary function assigns the record components of to ## global variables with the same names. ## -DeclareGlobalFunction( "OptionRecordWithDefaults" ); +DeclareGlobalName( "OptionRecordWithDefaults" ); ############################################################################# ## diff --git a/lib/record.gi b/lib/record.gi index 15eb4e2..8b1190c 100644 --- a/lib/record.gi +++ b/lib/record.gi @@ -3,7 +3,7 @@ #W record.gi GAP4 package `Utils' Sebastian Gutsche ## Max Horn ## Stefan Kohl -#Y Copyright (C) 2015-2022, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from RCWA @@ -13,7 +13,7 @@ ## This auxiliary function assigns the record components of ## to global variables with the same names. ## -InstallGlobalFunction( AssignGlobals, +BindGlobal( "AssignGlobals", function ( record ) @@ -41,7 +41,7 @@ InstallGlobalFunction( AssignGlobals, end ); -InstallGlobalFunction( OptionRecordWithDefaults, +BindGlobal( "OptionRecordWithDefaults", function(default, useroptions) local name, ret; ret := rec(); diff --git a/lib/string.gd b/lib/string.gd index 27332fd..ff8b194 100644 --- a/lib/string.gd +++ b/lib/string.gd @@ -3,14 +3,14 @@ #W string.gd GAP4 package `Utils' Sebastian Gutsche ## Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses ## #F BlankFreeString( ) . . . . . . . . . . . . . string without blanks ## -DeclareGlobalFunction( "BlankFreeString" ); +DeclareGlobalName( "BlankFreeString" ); ############################################################################# ## diff --git a/lib/string.gi b/lib/string.gi index 9cc753b..9432ec5 100644 --- a/lib/string.gi +++ b/lib/string.gi @@ -3,14 +3,14 @@ #W string.gi GAP4 package `Utils' Sebastian Gutsche ## Stefan Kohl ## -#Y Copyright (C) 2015-2018, The GAP Group +#Y Copyright (C) 2015-2025, The GAP Group ############################################################################# ## this function has been transferred from ResClasses ## #F BlankFreeString( ) . . . . . . . . . . . . . string without blanks ## -InstallGlobalFunction( BlankFreeString, +BindGlobal( "BlankFreeString", function ( obj )