Cross Reference: /xsrc/external/mit/xedit/dist/lisp/bytecode.c

Lines Matching refs:LispWriteStr
609 	LispWriteStr(NIL, "Builtin ", 8);
611 	    LispWriteStr(NIL, "macro ", 6);
613 	    LispWriteStr(NIL, "function ", 9);
616 	LispWriteStr(NIL, "Macro ", 6);
618 	LispWriteStr(NIL, "Function ", 9);
620     LispWriteStr(NIL, ":\n", 2);
628 	LispWriteStr(NIL, buffer, strlen(buffer));
632 	    LispWriteStr(NIL, ATOMID(alist->normals.symbols[i])->value,
640 	LispWriteStr(NIL, buffer, strlen(buffer));
644 	    LispWriteStr(NIL, ATOMID(alist->optionals.symbols[i])->value,
652 	LispWriteStr(NIL, buffer, strlen(buffer));
661 	    LispWriteStr(NIL, "Rest argument: ", 15);
662 	    LispWriteStr(NIL, ATOMID(alist->rest)->value,
667 	    LispWriteStr(NIL, "No rest argument\n", 17);
682 	LispWriteStr(NIL, "\nBytecode header:\n", 18);
689 	LispWriteStr(NIL, buffer, strlen(buffer));
694 	LispWriteStr(NIL, buffer, strlen(buffer));
699 	LispWriteStr(NIL, buffer, strlen(buffer));
722 	    LispWriteStr(NIL, buffer, strlen(buffer));
735 	    LispWriteStr(NIL, buffer, strlen(buffer));
740 	    LispWriteStr(NIL, buffer, strlen(buffer));
745 	    LispWriteStr(NIL, buffer, strlen(buffer));
752 		LispWriteStr(NIL, "\nNo initial stack\n", 18);
757 		LispWriteStr(NIL, "\nInitial stack:\n", 16);
761 		    LispWriteStr(NIL, buffer, strlen(buffer));
763 		    LispWriteStr(NIL, id->value, id->length);
769 		    LispWriteStr(NIL, buffer, strlen(buffer));
771 		    LispWriteStr(NIL, id->value, id->length);
776 			LispWriteStr(NIL, buffer, len1);
779 			LispWriteStr(NIL, id->value, len2);
781 			LispWriteStr(NIL, ";  sform\n", 9);
789 		    LispWriteStr(NIL, buffer, len1);
793 			LispWriteStr(NIL, id->value, id->length);
795 			LispWriteStr(NIL, ";  special key", 14);
799 			LispWriteStr(NIL, id->value, id->length);
805 			LispWriteStr(NIL, buffer, len1);
808 			LispWriteStr(NIL, id->value, len2);
810 			LispWriteStr(NIL, ";  sform\n", 9);
818 		    LispWriteStr(NIL, buffer, len1);
821 		    LispWriteStr(NIL, id->value, len2);
829 		    LispWriteStr(NIL, buffer, len1);
832 		    LispWriteStr(NIL, id->value, len2);
834 		    LispWriteStr(NIL, ";  aux\n", 7);
839 	LispWriteStr(NIL, "\nBytecode stream:\n", 18);
1105 	    LispWriteStr(NIL, buffer, i);
1170 		LispWriteStr(NIL, buffer, i);
1180 	    LispWriteStr(NIL, buffer, ptr - buffer + strlen(ptr));