`(progn
;;(declaim (inline ,el (setf ,el)))
(defun ,el (ptr &optional (index 0))
- ,(template 'prog1 nil))
+ (declare (optimize (speed 3)))
+ (sb-sys:without-gcing
+ ,(template 'prog1 nil)))
(defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
(defun (setf ,el) (newval ptr &optional (index 0))
- ,(template 'setf 'newval))))))
+ (declare (optimize (speed 3)))
+ (sb-sys:without-gcing
+ ,(template 'setf 'newval)))))))
;;; make memory allocator for appropriately-sized block of memory, and
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.2"
+"0.pre8.3"