,(template 'prog1 nil)))
(defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
(defun (setf ,el) (newval ptr &optional (index 0))
(declare (optimize (speed 3)))
,(template 'prog1 nil)))
(defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
(defun (setf ,el) (newval ptr &optional (index 0))
(declare (optimize (speed 3)))