Redo as a non-autoloaded package

Thanks for the great suggestion @MMatura

Author: rocky

mathics/autoload/combinatorica/README.rst

@@ -1,5 +1,9 @@
-(*
-This is a stripped-down version of Combinatorica
+(* ::Package:: *)
+
+(* :Title: Combinatorica Light *)
+
+(* :Summary:
+This is a stripped-down version of Combinatorica.
 
 Perhaps one day we'll be support the full thing, as an import.
 
@@ -22,7 +26,8 @@
 distributors and dealers shall in no event be liable for any indirect,
 incidental, or consequential damages.
 *)
-Begin["CombinatoricaSmall`"]
+
+BeginPackage["CombinatoricaSmall`"]
 
 PermutationQ::usage = "PermutationQ[p] yields True if p is a list representing a permutation and False otherwise."
 PermutationQ[e_List] := (Sort[e] === Range[Length[e]])
@@ -212,6 +217,5 @@
               ]
 	]
  *)
-End[]
 
-If[! MemberQ[$ContextPath, "CombinatoricaSmall`"] AppendTo[$ContextPath, "CombinatoricaSmall`"]]
+EndPackage[]

…oload/combinatorica/CombinatoricaSmall.m …/CombinatoricaSmall/CombinatoricaSmall.mmathics/autoload/combinatorica/CombinatoricaSmall.m renamed to mathics/packages/CombinatoricaSmall/CombinatoricaSmall.m mathics/autoload/combinatorica/CombinatoricaSmall.m renamed to mathics/packages/CombinatoricaSmall/CombinatoricaSmall.m

@@ -0,0 +1 @@
+Get[ "CombinatoricaSmall`CombinatoricaSmall`"]

mathics/packages/CombinatoricaSmall/Kernel/init.m

@@ -148,6 +148,10 @@ def test_quit():
 
 def test_combinatorica():
     # Permutation[3] doesn't work
+    session.evaluate("""
+     Needs["CombinatoricaSmall`"]
+     """)
+
     permutations3 = r"{{1, 2, 3}, {1, 3, 2}, {2, 1, 3}, {2, 3, 1}, {3, 1, 2}, {3, 2, 1}}"
     for str_expr, str_expected, message in (
         (