Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Eliminate all references to cffi-utils package.

  • Loading branch information...
commit b0f53fc03367e9718b1d7ac8dfbcbb737c9c00b8 1 parent 89b6cd7
@sionescu sionescu authored
View
2  examples/gettimeofday.lisp
@@ -32,7 +32,7 @@
;;; arguments to a foreign function.
(defpackage #:cffi-example-gettimeofday
- (:use #:common-lisp #:cffi #:cffi-utils)
+ (:use #:common-lisp #:cffi)
(:export #:gettimeofday))
(in-package #:cffi-example-gettimeofday)
View
2  examples/translator-test.lisp
@@ -26,7 +26,7 @@
;;;
(defpackage #:cffi-translator-test
- (:use #:common-lisp #:cffi #:cffi-utils))
+ (:use #:common-lisp #:cffi))
(in-package #:cffi-translator-test)
View
12 tests/random-tester.lisp
@@ -36,7 +36,7 @@
;;; this code can generate.
(defpackage #:cffi-random-tester
- (:use #:cl #:cffi #:regression-test))
+ (:use #:cl #:cffi #:alexandria #:regression-test))
(in-package #:cffi-random-tester)
(defstruct (c-type (:conc-name type-))
@@ -197,9 +197,9 @@ ARG-TYPES list and whose sum fits in RETTYPE."
`(progn
(defcfun (,fun-name ,fun-sym) ,(type-keyword rettype)
,@(loop for type in arg-types and i from 1 collect
- (list (cffi-utils:symbolicate '#:a (format nil "~A" i))
+ (list (symbolicate '#:a (format nil "~A" i))
(type-keyword type))))
- (deftest ,(cffi-utils:symbolicate '#:defcfun. fun-sym)
+ (deftest ,(symbolicate '#:defcfun. fun-sym)
,(integer-conversion (type-keyword rettype)
`(,fun-sym ,@value-forms))
,sum)))))
@@ -210,7 +210,7 @@ ARG-TYPES list and whose sum fits in RETTYPE."
(fun-name (concatenate 'string "call_" fname))
(fun-sym (cffi::lisp-function-name fun-name))
(arg-names (loop for i from 1 upto (length arg-types) collect
- (cffi-utils:symbolicate '#:a (format nil "~A" i)))))
+ (symbolicate '#:a (format nil "~A" i)))))
`(progn
(defcfun (,fun-name ,fun-sym) ,(type-keyword rettype) (cb :pointer))
(defcallback ,cb-sym ,(type-keyword rettype)
@@ -221,7 +221,7 @@ ARG-TYPES list and whose sum fits in RETTYPE."
`(+ ,@(mapcar (lambda (tp n)
(integer-conversion (type-keyword tp) n))
arg-types arg-names))))
- (deftest ,(cffi-utils:symbolicate '#:callbacks. cb-sym)
+ (deftest ,(symbolicate '#:callbacks. cb-sym)
,(integer-conversion (type-keyword rettype)
`(,fun-sym (callback ,cb-sym)))
,sum))))
@@ -243,4 +243,4 @@ ARG-TYPES list and whose sum fits in RETTYPE."
;; collect (gen-function-test (car comb) (cdr comb))
;; collect (gen-callback-test (car comb) (cdr comb))))))
-;; (define-function-and-callback-tests 3 5)
+;; (define-function-and-callback-tests 3 5)
Please sign in to comment.
Something went wrong with that request. Please try again.