Adjust for SBCL changes.

stassats · Apr 22, 2016 · 60ca001 · 60ca001
1 parent 61bf0d3
commit 60ca001
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/util-sbcl.lisp b/util-sbcl.lisp
@@ -4,9 +4,8 @@
 (defun fast-allocate-instance (wrapper initforms)
   (declare (simple-vector initforms))
   (let ((instance (sb-pcl::%make-standard-instance
-                   (copy-seq initforms) (sb-pcl::get-instance-hash-code))))
-    (setf (sb-pcl::std-instance-wrapper instance)
-          wrapper)
+                   (copy-seq initforms) 0)))
+    (setf (sb-pcl::std-instance-wrapper instance) wrapper)
     instance))
 
 (defun preallocate-objects (array info)