chiark / gitweb /
Exporting UNBOXED-VECTOR
authorespen <espen>
Tue, 29 Apr 2008 22:12:32 +0000 (22:12 +0000)
committerespen <espen>
Tue, 29 Apr 2008 22:12:32 +0000 (22:12 +0000)
gffi/defpackage.lisp

index 082ebcc..55b6390 100644 (file)
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: defpackage.lisp,v 1.12 2007-09-07 07:28:42 espen Exp $
+;; $Id: defpackage.lisp,v 1.13 2008-04-29 22:12:32 espen Exp $
 
 (defpackage "GFFI"
   (:use "COMMON-LISP" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
@@ -50,7 +50,7 @@ (defpackage "GFFI"
           "REF-DOUBLE-FLOAT" "REF-SINGLE-FLOAT" "ALLOCATE-MEMORY"
           "DEALLOCATE-MEMORY" "COPY-MEMORY" "CLEAR-MEMORY" "MEMORY-CLEAR-P"
           "WITH-MEMORY" "WITH-POINTER" "*MEMORY-ALLOCATOR*" 
-          "*MEMORY-DEALLOCATOR*")
+          "*MEMORY-DEALLOCATOR*" #+cmu"WITH-PINNED-OBJECTS")
   ;; Symbols from interface.lisp
   (:export "DEFBINDING" "MKBINDING" "USE-PREFIX" "PACKAGE-PREFIX" 
           "DEFINE-CALLBACK" "CALLBACK" "CALLBACK-ADDRESS"
@@ -74,7 +74,7 @@ (defpackage "GFFI"
           "VECTOR-WRITER-FUNCTION" "VECTOR-REF-BYTE" "VECTOR-REF-INT-16"
           "VECTOR-REF-UINT-16" "VECTOR-REF-INT-32" "VECTOR-REF-UINT-32"
           "VECTOR-REF-INT-64" "VECTOR-REF-UINT-64" "VECTOR-REF-DOUBLE-FLOAT" 
-          "VECTOR-REF-SINGLE-FLOAT")
+          "VECTOR-REF-SINGLE-FLOAT" "UNBOXED-VECTOR")
   ;; Symbols from enums.lisp
   (:export "ENUM" "ENUM-INT" "INT-ENUM" "ENUM-MAPPING" "DEFINE-ENUM-TYPE"
           "FLAGS" "DEFINE-FLAGS-TYPE")