;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
(defmethod allocate-foreign ((tree-iter tree-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of tree-iter))))
(defmethod allocate-foreign ((tree-iter tree-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of tree-iter))))