From 265833ead03e4b774ceefe1688594f3b21015e22 Mon Sep 17 00:00:00 2001 Message-Id: <265833ead03e4b774ceefe1688594f3b21015e22.1713971796.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 6 Nov 2008 17:26:53 +0000 Subject: [PATCH] Exporting all symbols for raw memory access Organization: Straylight/Edgeware From: espen --- gffi/defpackage.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/gffi/defpackage.lisp b/gffi/defpackage.lisp index 619a897..4fdde99 100644 --- a/gffi/defpackage.lisp +++ b/gffi/defpackage.lisp @@ -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.14 2008-11-04 20:15:35 espen Exp $ +;; $Id: defpackage.lisp,v 1.15 2008-11-06 17:26:53 espen Exp $ (defpackage "GFFI" (:use "COMMON-LISP" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") @@ -46,7 +46,9 @@ (defpackage "GFFI" #+sbcl(:import-from "SB-ALIEN" "VOID" "C-STRING") ;; Symbols from memory.lisp (:export "MAKE-POINTER" "POINTER-ADDRESS" "NULL-POINTER-P" "POINTER=" - "POINTER+" "REF-POINTER" "REF-BYTE" "REF-INT-32" "REF-UINT-32" + "POINTER+" "REF-POINTER" + "REF-INT-8" "REF-INT-16" "REF-INT-32" "REF-INT-64" + "REF-UINT-8" "REF-UINT-16" "REF-UINT-32" "REF-UINT-64" "REF-DOUBLE-FLOAT" "REF-SINGLE-FLOAT" "ALLOCATE-MEMORY" "DEALLOCATE-MEMORY" "COPY-MEMORY" "CLEAR-MEMORY" "MEMORY-CLEAR-P" "WITH-MEMORY" "WITH-POINTER" "*MEMORY-ALLOCATOR*" @@ -71,9 +73,9 @@ (defpackage "GFFI" ;; Symbols from vector.lisp (:export "MAKE-C-VECTOR" "MAP-C-VECTOR" "WITH-C-VECTOR" "COUNTED-VECTOR" "NULL-TERMINATED-VECTOR" "VECTOR-READER-FUNCTION" - "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-WRITER-FUNCTION" "VECTOR-REF-INT-8" "VECTOR-REF-INT-16" + "VECTOR-REF-UINT-8" "VECTOR-REF-UINT-16" "VECTOR-REF-UINT-32" + "VECTOR-REF-UINT-64" "VECTOR-REF-DOUBLE-FLOAT" "VECTOR-REF-SINGLE-FLOAT" "UNBOXED-VECTOR") ;; Symbols from enums.lisp (:export "ENUM" "ENUM-INT" "INT-ENUM" "ENUM-MAPPING" "DEFINE-ENUM-TYPE" -- [mdw]