Add `allocation` support in `defclass*`
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 02 Feb 2019 14:29:29 -0500 |
| parents |
a8b03be59283
|
| children |
1028d690ab05
861b0bbcb319
|
| branches/tags |
(none) |
| files |
src/clos.lisp |
Changes
--- a/src/clos.lisp Mon Jan 07 18:28:22 2019 -0500
+++ b/src/clos.lisp Sat Feb 02 14:29:29 2019 -0500
@@ -5,6 +5,7 @@
(type nil type?)
(documentation nil documentation?)
(initform nil initform?)
+ (allocation nil allocation?)
(accessor (if conc-name
(symb conc-name name)
name))
@@ -14,6 +15,7 @@
:initarg ,initarg
:accessor ,accessor
,@(when initform? `(:initform ,initform))
+ ,@(when allocation? `(:allocation ,allocation))
,@(when type? `(:type ,type))
,@(when documentation? `(:documentation ,documentation)))))