Explicitly state UFFI symbol package as UFFI:
Thu Aug 10 07:30:58 PDT 2006 Daniel Dickison (danieldickison@gmail.com)
* Explicitly state UFFI symbol package as UFFI:
diff -rN -u old-c2ffi/C-to-FFI.lisp new-c2ffi/C-to-FFI.lisp
--- old-c2ffi/C-to-FFI.lisp 2014-08-01 08:54:34.000000000 -0700
+++ new-c2ffi/C-to-FFI.lisp 2014-08-01 08:54:34.000000000 -0700
@@ -86,7 +86,7 @@
(collect (node-attribute "id" file))))))
(defun function-generator (node)
- `(def-function
+ `(uffi:def-function
,(get-name-with-id (node-attribute "id" node))
,(iter
(for arg in (find-in-tree node "Argument" () :all t))
@@ -95,12 +95,12 @@
:returning ,(get-type-with-id (node-attribute "returns" node))))
(defun typedef-generator (node)
- `(def-foreign-type
+ `(uffi:def-foreign-type
,(get-name-symbol (node-attribute "id" node))
,(get-type-with-id (node-attribute "type" node))))
(defun enum-generator (node)
- `(def-enum
+ `(uffi:def-enum
,(get-name-symbol (node-attribute "id" node))
,(iter
(for val in (find-in-tree node "EnumValue" () :all t))
@@ -109,7 +109,7 @@
(parse-integer (node-attribute "init" val)))))))
(defun struct-generator (node root)
- `(def-struct
+ `(uffi:def-struct
,(get-name-symbol (node-attribute "id" node))
,@(iter
(for field-id in (split-sequence #\space (node-attribute "members" node)
diff -rN -u old-c2ffi/Test.lisp new-c2ffi/Test.lisp
--- old-c2ffi/Test.lisp 2014-08-01 08:54:34.000000000 -0700
+++ new-c2ffi/Test.lisp 2014-08-01 08:54:34.000000000 -0700
@@ -2,4 +2,4 @@
(asdf:operate 'asdf:load-op "c2ffi")
(let ((*default-pathname-defaults* (make-pathname :directory (pathname-directory *load-truename*))))
- (c-to-ffi:make-uffi-for-files "Test/*.h" "Test/xplane-gccopts.txt"))
+ (c2ffi:make-uffi-for-files "Test/*.h" "Test/xplane-gccopts.txt"))