From 8889da56b2a39661ca208cc70adb72005eda4144 Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@iris.tv>
Date: Fri, 24 Sep 2021 09:06:38 -0500
Subject: [PATCH] Rename defstruct to defcstruct

---
 src/clj/coffi/ffi.clj | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/clj/coffi/ffi.clj b/src/clj/coffi/ffi.clj
index 33b068a..3d9f9bb 100644
--- a/src/clj/coffi/ffi.clj
+++ b/src/clj/coffi/ffi.clj
@@ -1,5 +1,4 @@
 (ns coffi.ffi
-  (:refer-clojure :exclude [defstruct])
   (:require
    [clojure.java.io :as io]
    [clojure.spec.alpha :as s]
@@ -1146,14 +1145,14 @@
 (s/fdef defcfn
   :args ::defcfn-args)
 
-(s/def ::defstruct-args
+(s/def ::defcstruct-args
   (s/cat :struct-name qualified-keyword?
          ;:layout (s/? keyword?)
          :docstring (s/? string?)
          :fields (s/* (s/cat :field-name simple-keyword?
                              :field-type ::type))))
 
-(defmacro defstruct
+(defmacro defcstruct
   "Defines a type alias for a struct with the given name and fields.
 
   The fields are provided as keyword args.
@@ -1163,7 +1162,7 @@
   [& args]
   ;; TODO(Joshua): Support adding padding to the structure (and make it
   ;; extensible?)
-  (let [args (s/conform ::defstruct-args args)]
+  (let [args (s/conform ::defcstruct-args args)]
     `(let [struct-type# [::struct ~(mapv (juxt :field-name :field-type) (:fields args))]]
        (defmethod c-layout ~(:struct-name args)
          [_type#]
@@ -1174,5 +1173,5 @@
        (defmethod deserialize-from ~(:struct-name args)
          [segment# _type#]
          (deserialize-from segment# struct-type#)))))
-(s/fdef defstruct
-  :args ::defstruct-args)
+(s/fdef defcstruct
+  :args ::defcstruct-args)