Remove more dead code

Author: jecisc

src/Metacello-Core/MetacelloMCBaselineOfProjectSpec.class.st

@@ -65,22 +65,6 @@ MetacelloMCBaselineOfProjectSpec >> copyForRegistration: aMetacelloProjectRegist
         ifAbsent: [ aBlock value: nil ] ]
 ]
 
-{ #category : 'loading' }
-MetacelloMCBaselineOfProjectSpec >> determineCurrentVersionForLoad [
-    ^ self version
-]
-
-{ #category : 'loading' }
-MetacelloMCBaselineOfProjectSpec >> ensureConfigurationLoaded: vrsn ensured: ensured withEngine: anObject [
-  "answer true if the configuration should be reloaded"
-
-  "see Issue #181 for details ... basically we always want to consider loading the baseline from a project reference, especially if the two project specs are not the same..."
-
-  "https://github.com/dalehenrich/metacello-work/issues/181"
-
-  ^ true
-]
-
 { #category : 'printing' }
 MetacelloMCBaselineOfProjectSpec >> hasClassName [
 

src/Metacello-Core/MetacelloMemberListSpec.class.st

@@ -43,15 +43,6 @@ MetacelloMemberListSpec >> copy: aMemberSpec [
 	self addMember: aMemberSpec
 ]
 
-{ #category : 'toolbox support' }
-MetacelloMemberListSpec >> deleteSpec: aSpec [
-	"remove the spec from list"
-
-	self list
-		detect: [ :aMember | aMember spec = aSpec ]
-		ifFound: [ :member | self list remove: member ]
-]
-
 { #category : 'enumeration' }
 MetacelloMemberListSpec >> detect: aBlock [
 	"Evaluate aBlock with each of the receiver's elements as the argument. 

src/Metacello-Core/MetacelloProjectRegistration.class.st

@@ -299,12 +299,6 @@ MetacelloProjectRegistration >> currentVersionString [
 		  ifNil: [ baselineProjectSpec repositoryVersionString ]
 ]
 
-{ #category : 'testing' }
-MetacelloProjectRegistration >> currentlyLoadedClassesInProject [
-
-	^ self projectSpec currentlyLoadedClassesInVersion asSet
-]
-
 { #category : 'testing' }
 MetacelloProjectRegistration >> hasLoadConflicts: aProjectRegistration [
 	"5 combinations of loads with no load conflicts:

src/Metacello-Core/MetacelloProjectSpec.class.st

@@ -342,14 +342,6 @@ MetacelloProjectSpec >> copyForScriptingInto: aProjectSpec [
         file: file
 ]
 
-{ #category : 'enumerating' }
-MetacelloProjectSpec >> currentlyLoadedClassesInVersion [
-
-	self versionOrNil ifNotNil: [ :vrsn |
-		^ vrsn spec currentlyLoadedClassesInVersion ].
-	^ #(  )
-]
-
 { #category : 'loading' }
 MetacelloProjectSpec >> ensureProjectLoadedWithEngine: anEngine [
 	"Ensure that the MetacelloProject is loaded in image. 

src/Metacello-Core/MetacelloVersionSpec.class.st

@@ -188,7 +188,7 @@ MetacelloVersionSpec >> configPackagesSpecMethodOn: aStream indent: indent [
 			projectDo: [ :proj | member spec name ifNotNil: [ projectSpecs add: member ] ]
 			packageDo: [ :package | member spec name ifNotNil: [ packageSpecs add: member ] ]
 			groupDo: [ :group | member spec name ifNotNil: [ groupSpecs add: member ] ] ].
-	projectSpecs isEmpty not ifTrue: [
+	projectSpecs ifNotEmpty: [
 		aStream
 			tab: indent;
 			nextPutAll: 'spec '.
@@ -199,8 +199,8 @@ MetacelloVersionSpec >> configPackagesSpecMethodOn: aStream indent: indent [
 		1 to: projectSpecs size do: [ :index |
 			(projectSpecs at: index) configMethodCascadeOn: aStream last: index == projectSpecs size indent: indent + 1.
 			index ~= projectSpecs size ifTrue: [ aStream tab: indent + 1 ] ] ].
-	packageSpecs isEmpty not ifTrue: [
-		projectSpecs isEmpty not ifTrue: [ aStream cr ].
+	packageSpecs ifNotEmpty: [
+		projectSpecs ifNotEmpty: [ aStream cr ].
 		aStream
 			tab: indent;
 			nextPutAll: 'spec '.
@@ -211,8 +211,8 @@ MetacelloVersionSpec >> configPackagesSpecMethodOn: aStream indent: indent [
 		1 to: packageSpecs size do: [ :index |
 			(packageSpecs at: index) configMethodCascadeOn: aStream last: index == packageSpecs size indent: indent + 1.
 			index ~= packageSpecs size ifTrue: [ aStream tab: indent + 1 ] ] ].
-	groupSpecs isEmpty not ifTrue: [
-		projectSpecs isEmpty not | packageSpecs isEmpty not ifTrue: [ aStream cr ].
+	groupSpecs ifNotEmpty: [
+		(projectSpecs isNotEmpty or: [ packageSpecs isNotEmpty ]) ifTrue: [ aStream cr ].
 		aStream
 			tab: indent;
 			nextPutAll: 'spec '.
@@ -231,23 +231,6 @@ MetacelloVersionSpec >> createVersion [
 	^ self versionClass fromSpec: self
 ]
 
-{ #category : 'enumerating' }
-MetacelloVersionSpec >> currentlyLoadedClassesInVersion [
-
-	| classes |
-	classes := Set new.
-	self
-		projectDo: [ :ignored |  ]
-		packageDo: [ :packageSpec |
-			([ packageSpec workingCopy ]
-				 on: Error
-				 do: [ :ex | ex return: nil ]) ifNotNil: [ :workingCopy |
-				workingCopy systemPackage ifNotNil: [ :package |
-					classes addAll: package classes ] ] ]
-		groupDo: [ :ignored |  ].
-	^ classes
-]
-
 { #category : 'loading' }
 MetacelloVersionSpec >> defaultPackageNames [
 	"if there is a package named 'default' (a group) then it defines the default package names,
@@ -257,13 +240,6 @@ MetacelloVersionSpec >> defaultPackageNames [
 	^#('default')
 ]
 
-{ #category : 'toolbox support' }
-MetacelloVersionSpec >> deleteSpec: aSpec [
-    "remove the spec from packages"
-
-    self packages deleteSpec: aSpec
-]
-
 { #category : 'accessing' }
 MetacelloVersionSpec >> description [
 
@@ -366,14 +342,10 @@ MetacelloVersionSpec >> mergeSpec: anotherSpec [
 	| newSpec map anotherPackages anotherRepositories |
 	newSpec := super mergeSpec: anotherSpec.
 	map := anotherSpec mergeMap.
-	(anotherPackages := map at: #packageList) isEmpty not ifTrue: [
-		newSpec packages: (self packages isEmpty
-				 ifTrue: [ anotherPackages ]
-				 ifFalse: [ self packages mergeSpec: anotherPackages ]) ].
-	(anotherRepositories := map at: #repositories) isEmpty not ifTrue: [
-		newSpec repositories: (self repositories isEmpty
-				 ifTrue: [ anotherRepositories ]
-				 ifFalse: [ self repositories mergeSpec: anotherRepositories ]) ].
+	(anotherPackages := map at: #packageList) ifNotEmpty: [
+		newSpec packages: (self packages ifEmpty: [ anotherPackages ] ifNotEmpty: [ self packages mergeSpec: anotherPackages ]) ].
+	(anotherRepositories := map at: #repositories) ifNotEmpty: [
+		newSpec repositories: (self repositories ifEmpty: [ anotherRepositories ] ifNotEmpty: [ self repositories mergeSpec: anotherRepositories ]) ].
 	^ newSpec
 ]
 
@@ -478,11 +450,6 @@ MetacelloVersionSpec >> packageSpecsInLoadOrderForMap: packageMap [
 	^ pkgs
 ]
 
-{ #category : 'querying' }
-MetacelloVersionSpec >> packageSpecsInLoadOrderWithEngine: anObject [
-  ^ self packages packageSpecsInLoadOrderFor: self
-]
-
 { #category : 'accessing' }
 MetacelloVersionSpec >> packages [
 	"leave reference to packages for upgrade purposes"
@@ -636,15 +603,6 @@ MetacelloVersionSpec >> specListProjectDo: projectBlock packageDo: packageBlock
 		pkgSpec projectDo: projectBlock packageDo: packageBlock groupDo: groupBlock ]
 ]
 
-{ #category : 'enumerating' }
-MetacelloVersionSpec >> specsNamed: packageAndProjectNames projectDo: projectBlock packageDo: packageBlock groupDo: groupBlock [
-
-	| map |
-	map := self packages map.
-	packageAndProjectNames do: [ :name |
-		(map at: name ifAbsent: [  ]) ifNotNil: [ :pkgSpec | pkgSpec projectDo: projectBlock packageDo: packageBlock groupDo: groupBlock ] ]
-]
-
 { #category : 'accessing' }
 MetacelloVersionSpec >> timestamp [