--- old/cffi_0.19.0/src/types.lisp 2017-11-05 11:10:40.000000000 -0500 +++ new/cffi_0.19.0/src/types.lisp 2018-04-24 17:55:15.000000000 -0400 @@ -609,9 +609,9 @@ (let* ((struct-type-name `(,struct-or-union ,name)) (struct-type (parse-type struct-type-name))) (simple-style-warning - "bare references to struct types are deprecated. ~ - Please use ~S or ~S instead." - `(:pointer ,struct-type-name) struct-type-name) + "bare references to struct type names are deprecated. ~ + Please use ~S or ~S instead of ~S." + `(:pointer ,struct-type-name) struct-type-name name) (make-instance (class-of struct-type) :alignment (alignment struct-type) :size (size struct-type)
--- old/cffi_ 0.19.0/ src/types. lisp 2017-11-05 11:10:40.000000000 -0500 0.19.0/ src/types. lisp 2018-04-24 17:55:15.000000000 -0400
(struct- type (parse-type struct-type-name))) style-warning
: alignment (alignment struct-type)
: size (size struct-type)
+++ new/cffi_
@@ -609,9 +609,9 @@
(let* ((struct-type-name `(,struct-or-union ,name))
(simple-
- "bare references to struct types are deprecated. ~
- Please use ~S or ~S instead."
- `(:pointer ,struct-type-name) struct-type-name)
+ "bare references to struct type names are deprecated. ~
+ Please use ~S or ~S instead of ~S."
+ `(:pointer ,struct-type-name) struct-type-name name)
(make-instance (class-of struct-type)