name)
(defmacro def-setter (name offset lowtag)
`(%def-setter ',name ,offset ,lowtag))
(defun %def-alloc (name words var-length header lowtag inits)
name)
(defmacro def-setter (name offset lowtag)
`(%def-setter ',name ,offset ,lowtag))
(defun %def-alloc (name words var-length header lowtag inits)