Cleanup: use #isNotNil instead of #notNil

Fix #13
pharo-contributions · Oct 26, 2023 · 8e6c146 · 8e6c146
1 parent 4c51364
commit 8e6c146
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 11 deletions.
diff --git a/src/XML-Writer-Core/XMLAttributeDeclarationWriter.class.st b/src/XML-Writer-Core/XMLAttributeDeclarationWriter.class.st
@@ -40,7 +40,7 @@ XMLAttributeDeclarationWriter >> defaultPragma [
 { #category : #accessing }
 XMLAttributeDeclarationWriter >> defaultPragma: aDefaultPragma [
 
-	defaultPragma := (aDefaultPragma notNil and: [
+	defaultPragma := (aDefaultPragma isNotNil and: [
 		                  aDefaultPragma notEmpty and: [
 			                  aDefaultPragma first == $# ] ])
 		                 ifTrue: [ aDefaultPragma allButFirst ]

diff --git a/src/XML-Writer-Core/XMLMarkupWriter.class.st b/src/XML-Writer-Core/XMLMarkupWriter.class.st
@@ -104,7 +104,7 @@ XMLMarkupWriter >> isDoctypeDeclarationWriter [
 { #category : #testing }
 XMLMarkupWriter >> isEmbedded [
 
-	^ self parent notNil
+	^ self parent isNotNil
 ]
 
 { #category : #testing }

diff --git a/src/XML-Writer-Core/XMLTagWriter.class.st b/src/XML-Writer-Core/XMLTagWriter.class.st
@@ -57,13 +57,13 @@ XMLTagWriter >> attributes: anAssociationCollection [
 { #category : #testing }
 XMLTagWriter >> hasAttributes [
 
-	^ attributes notNil and: [ attributes notEmpty ]
+	^ attributes isNotNil and: [ attributes notEmpty ]
 ]
 
 { #category : #testing }
 XMLTagWriter >> hasXMLNSDeclarations [
 
-	^ xmlnsDeclarations notNil and: [ xmlnsDeclarations notEmpty ]
+	^ xmlnsDeclarations isNotNil and: [ xmlnsDeclarations notEmpty ]
 ]
 
 { #category : #testing }

diff --git a/src/XML-Writer-Core/XMLUnsafeStartTagWriter.class.st b/src/XML-Writer-Core/XMLUnsafeStartTagWriter.class.st
@@ -52,13 +52,13 @@ XMLUnsafeStartTagWriter >> attributes: anAssociationCollection [
 { #category : #testing }
 XMLUnsafeStartTagWriter >> hasAttributes [
 
-	^ attributes notNil and: [ attributes notEmpty ]
+	^ attributes isNotNil and: [ attributes notEmpty ]
 ]
 
 { #category : #testing }
 XMLUnsafeStartTagWriter >> hasXMLNSDeclarations [
 
-	^ xmlnsDeclarations notNil and: [ xmlnsDeclarations notEmpty ]
+	^ xmlnsDeclarations isNotNil and: [ xmlnsDeclarations notEmpty ]
 ]
 
 { #category : #testing }

diff --git a/src/XML-Writer-Core/XMLWriter.class.st b/src/XML-Writer-Core/XMLWriter.class.st
@@ -634,8 +634,8 @@ XMLWriter >> entityValueEscapes [
 { #category : #testing }
 XMLWriter >> escapesContentEntityReferences [
 	^ self isEscaping
-		and: [(contentEscapes at: $& asciiValue) notNil
-			and: [(contentStringEscapes at: $& asciiValue) notNil]]
+		and: [(contentEscapes at: $& asciiValue) isNotNil
+			and: [(contentStringEscapes at: $& asciiValue) isNotNil]]
 ]
 
 { #category : #accessing }
@@ -792,12 +792,12 @@ XMLWriter >> hadActiveTagWriter [
 
 { #category : #testing }
 XMLWriter >> hasActiveTagWriter [
-	^ self activeTagWriter notNil
+	^ self activeTagWriter isNotNil
 ]
 
 { #category : #testing }
 XMLWriter >> hasFormatter [
-	^ formatter notNil
+	^ formatter isNotNil
 ]
 
 { #category : #testing }
@@ -1175,7 +1175,7 @@ XMLWriter >> write: aString escapedWith: anEscapeTable [
 		| nextChar asciiValue |
 		((asciiValue := (nextChar := aString at: i) asciiValue) > 0 and: [
 			 asciiValue <= tableSize and: [
-				 (anEscapeTable at: asciiValue) notNil ] ])
+				 (anEscapeTable at: asciiValue) isNotNil ] ])
 			ifTrue: [
 				| replacement |
 				(replacement := anEscapeTable at: asciiValue) == #LineBreak