🚀 go-pugleaf

here's a convenient helper which makes writing defclass forms MUCH
easier.


;;;a quickie macro which renders defclass forms from a much simpler version.

(DEFMACRO dclass (name incl slots &rest options)
  `(DEFCLASS ,name ,incl ,(MAPCAR #'(lambda (slot)
				      (if (listp slot)
					  slot
					(LIST slot 
					      :initform ()
					      :initarg (INTERN (STRING slot) :keyword)
					      :accessor slot)))
				slots)
     ,@options))


usage is:

(dclass cdp-base nil (name highlighted owner parent output-record
			explanation))

this expands to

(defclass cdp-base () 
 ((name :initform () :initarg :name :accessor name)
  ...))

__OR__

(dclass cdp-base nil (name 
			(some-slot :initform (do-something) :accessor get-some-slot)
			explanation))

which expands to

(defclass cdp-base () 
 ((name :initform () :initarg :name :accessor name)
  (some-slot :initform (do-something) :accessor get-some-slot)
  ...))

i'm using this a lot these days. I hate typing all that really obvious
extra garbage--FLAVORS managed to default things the right all the
time (auto-built accessors, etc), and I'd like CLOS to do so too.

 -- clint
--

Clint Hyde		"Give me a LispM or give me death!" -- anonymous

Advanced Decision Systems	Internet:  chyde@chesapeake.ads.com
2111 Wilson Blvd #800
Arlington, VA 22201		(703) 875-0327