[CM] Where to get the "sv" macro source?
Anders Vinjar
andersvi@notam02.no
05 Feb 2003 08:56:42 +0100
>>>>> "Larry" == Larry Troxler <lt@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)))))