added: Object>>isNotNil
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 26 Oct 2014 02:31:37 +0100
changeset 16908 25523cfdfa62
parent 16907 402df2d3c1d7
child 16909 d02e5b66902a
added: Object>>isNotNil
UndefinedObject.st
--- a/UndefinedObject.st	Sun Oct 26 02:31:23 2014 +0100
+++ b/UndefinedObject.st	Sun Oct 26 02:31:37 2014 +0100
@@ -108,6 +108,7 @@
     "Modified: 3.1.1997 / 15:06:15 / cg"
 ! !
 
+
 !UndefinedObject class methodsFor:'queries'!
 
 canBeSubclassed
@@ -152,6 +153,10 @@
 ! !
 
 
+
+
+
+
 !UndefinedObject methodsFor:'converting'!
 
 asBoolean
@@ -671,6 +676,16 @@
     "Modified: / 13.11.2001 / 13:28:15 / cg"
 !
 
+isNotNil
+    "Return true, if the receiver not nil.
+     Since I am definitely nil, unconditionally return false here.      
+     the receiver is definitely not nil here, so unconditionally return false."
+
+    ^ false
+
+    "Created: / 26-10-2014 / 01:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 notEmptyOrNil
     "Squeak compatibility:
      return true if I am neither nil nor an empty collection."
@@ -706,14 +721,15 @@
     ^ aVisitor visitNilWith:aParameter
 ! !
 
+
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.77 2014-07-09 16:20:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.78 2014-10-26 01:31:37 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.77 2014-07-09 16:20:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.78 2014-10-26 01:31:37 vrany Exp $'
 ! !