From d9ac18064cf40f6fbbb09ec8ca74de212c012326 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 15 Sep 2007 23:52:00 +0200
Subject: Reimplement PRIMITIVE-INVOKE and rename the old version
 UNSAFE-PRIMITIVE-INVOKE.

darcs-hash:a941bade2677db3d5773c20ffda171c7c9721a98
---
 Lisp/data-types.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp/data-types.lisp')

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 6f66e8c..c757070 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -42,7 +42,7 @@
   ((pointer :type     c-pointer
             :reader   pointer-to
             :initarg  :pointer
-            :initform nil)))
+            :initform (cffi:null-pointer))))
 
 
 (defclass selector   (c-pointer-wrapper) ()
-- 
cgit v1.2.3