(defmacro defstruct-x (name &rest rest)
`(defstruct
,(intern
(concatenate 'string "FOO-"
(symbol-name name))) ,@rest))
(defstruct-x person (name "John" :type string))
(make-foo-person :name "James")
Users browsing this forum: No registered users and 2 guests