# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1549135769 18000
# Node ID 957d61081ff7b27823790ef79a9d517fb2135d6b
# Parent  a8b03be592835df3c481bbbc998045491121d610
Add `allocation` support in `defclass*`

diff -r a8b03be59283 -r 957d61081ff7 src/clos.lisp
--- 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)))))