TYPEP: Treat NIL as an atom, not as a cons.

1 files changed, 18 insertions, 1 deletions

diff --git a/util.lisp b/util.lisp
index c06305f..2bde209 100644
--- a/util.lisp
+++ b/util.lisp
@@ -1,5 +1,5 @@
 (export '(and or not let* list* case cond append reverse macroexpand
-          otherwise unless when eq))
+          otherwise unless when eq boundp))
 
 
 (%defmacro %defun args
@@ -207,3 +207,20 @@
 (%shadowing-export eq)
 (%defun* eq (x y)
   (sys::eq x y))
+
+(%defun* boundp (symbol)
+  (send-by-name (send-by-name (find-objc-class "MLKDynamicContext")
+                              "currentContext")
+                "boundp:"
+                symbol))
+
+(unless (boundp '+nil+)
+  (setq +nil+ (gensym)))
+
+(%defun* denullify (x)
+  (if (eq x +nil+)
+      nil
+      x))
+
+(%defun* nullify (x)
+  (or x +nil+))