[CM] Where to get the "sv" macro source?
Anders Vinjar
andersvi at notam02.no
Tue Feb 4 23:56:42 PST 2003
>>>>> "Larry" == Larry Troxler <lt at westnet.com> writes:
Larry> What's the most recent version of Common Music to still
Larry> include the "sv" macro, and is the source code still
Larry> available somewhere?
Its included at least in 2.4.0 from Jan-8th. Here is the code from utils.lisp
(defmacro sv (obj slot &body args)
(if (null args)
(slot-getter-form obj slot)
(let ((o (gensym)))
`(let ((,o ,obj)) ,(slot-setter-form o slot (car args)) ,@(if (null (cdr args)) (list) (let ((res '())) (dopairs (x y (cdr args)) (push (slot-setter-form o x y) res)) (reverse res))) (values)))))
More information about the Cmdist
mailing list