X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_frame.c;fp=src%2Flisp%2Fao_lisp_frame.c;h=9d17f6fa37d12946e3d12952c127996d243fb5c6;hb=2ce7ab37df07b3c1ea1ca9befc06477e3b6cdeac;hp=052d27d7246f83228de8c9a9d5785cc39eced6de;hpb=d37945f1404043e6bd287ce7ad7a57bc3289609b;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_frame.c b/src/lisp/ao_lisp_frame.c
index 052d27d7..9d17f6fa 100644
--- a/src/lisp/ao_lisp_frame.c
+++ b/src/lisp/ao_lisp_frame.c
@@ -186,8 +186,6 @@ ao_lisp_frame_mark(struct ao_lisp_frame *frame)
 {
 	if (!frame)
 		return AO_LISP_NIL;
-	if (frame->_num == 0xff)
-		ao_lisp_abort();
 	frame->_num |= AO_LISP_FRAME_MARK;
 	return ao_lisp_frame_poly(frame);
 }