beClean; start dev with clean packages

index.html

@@ -54,6 +54,7 @@
                         return amber.loadPackages(["amber/devel", "amber/legacy/Benchfib", "helios/all", "amber_cli/AmberCli"]);
                     })
                     .then(function () {
+                        amber.beClean();
                         messageBox.appendChild(done);
                     });
             });

lang/API-CHANGES.txt

@@ -3,6 +3,10 @@
 * Namespace change: amber_core => amber/core.
 * amber/boot api addClass only takes 3 params; 4 param version deprecated
 
++ SmalltalkImage >>
+  + beClean
++ amber/helpers exports >>
+  + beClean
 + amber/boot api
   + setInstanceVariables(klass, arrayOfNames)
 

lang/base/helpers.js

@@ -70,6 +70,10 @@ define(["amber/boot", "require"], function (boot, require) {
         });
     };
 
+    exports.beClean = function () {
+        return globals.Smalltalk._beClean();
+    };
+
     // Exports
 
     return exports;

lang/src/Kernel-Infrastructure.js

@@ -3119,6 +3119,30 @@ messageSends: ["parse:"]
 }),
 $globals.SmalltalkImage);
 
+$core.addMethod(
+$core.method({
+selector: "beClean",
+protocol: "packages",
+fn: function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+$recv($self._packages())._do_("beClean");
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"beClean",{},$globals.SmalltalkImage)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "beClean\x0a\x09\x22Marks all packages clean.\x22\x0a\x0a\x09self packages do: #beClean",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["do:", "packages"]
+}),
+$globals.SmalltalkImage);
+
 $core.addMethod(
 $core.method({
 selector: "cancelOptOut:",

lang/src/Kernel-Infrastructure.st

@@ -993,6 +993,12 @@ postLoad
 
 !SmalltalkImage methodsFor: 'packages'!
 
+beClean
+	"Marks all packages clean."
+
+	self packages do: #beClean
+!
+
 createPackage: packageName
 	| package announcement |