;; 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 ((text-iter text-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of text-iter))))
(defmethod allocate-foreign ((text-iter text-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of text-iter))))