summaryrefslogtreecommitdiff
path: root/Lisp/init.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/init.lisp')
-rw-r--r--Lisp/init.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/Lisp/init.lisp b/Lisp/init.lisp
index a56d2e2..f965995 100644
--- a/Lisp/init.lisp
+++ b/Lisp/init.lisp
@@ -4,6 +4,8 @@
(eval-when (:load-toplevel)
(unless (boundp '+nil+)
+ ;; As nil is never deallocated, we can safely use MAKE-INSTANCE
+ ;; here.
(defconstant +nil+
(make-instance 'id :pointer (objcl-get-nil))))
(unless (boundp '+yes+)