Added support for finalize for ccl using trivial-garbage:finalize

blindglobe · Nov 15, 2012 · 16c64a2 · 16c64a2
1 parent 7fff778
commit 16c64a2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/foreign-numeric-vector.lisp b/foreign-numeric-vector.lisp
@@ -13,7 +13,8 @@
   #+sbcl (sb-ext:finalize object function)
   #+cmu (extensions:finalize object function)
   #+clisp (ext:finalize object function)
-  #-(or sbcl cmu clisp)
+  #+ccl (trivial-garbage:finalize object function)
+  #-(or sbcl cmu clisp ccl)
   (error "Please add an equivalent to FINALIZE for your lisp"))
 
 (defgeneric fnv-foreign-pointer (fnv))

diff --git a/packages.lisp b/packages.lisp
@@ -29,6 +29,7 @@
 (defpackage :org.middleangle.foreign-numeric-vector
   (:nicknames :foreign-numeric-vector :fnv)
   (:use :common-lisp :cffi :iterate :fnv-utils :fnv-lowlevel-copy)
+  #+ccl (:shadowing-import-from :trivial-garbage)
   (:export :fnv-foreign-pointer :fnv-length :fnv-copy 
 	   :*fnv-print-length* :fnv-allset :cffi-type-to-fnv-type