(/show0 "*ERROR-THROW-UP-COUNT* too big, trying HALT")
(%primitive sb!c:halt)
(/show0 "*ERROR-THROW-UP-COUNT* too big, trying THROW")
(/show0 "*ERROR-THROW-UP-COUNT* too big, trying HALT")
(%primitive sb!c:halt)
(/show0 "*ERROR-THROW-UP-COUNT* too big, trying THROW")