EXPORT PRIMITIVES QUOTE PRIMITIVES KBUG-STREAM-INITIALIZEK2 KBUG-STREAM-PEEK-BYTEK2 KBUG-STREAM-PEEK-CHARACTERK2 KBUG-STREAM-READ-BYTEK2 KBUG-STREAM-READ-CHARACTERK2 KBUG-STREAM-WRITE-BYTEK2 KBUG-STREAM-WRITE-CHARACTERK2 LDBK2 LDBK2   NO-CASE-ERRORNC  LDB-HARD-CASEK2 TYPEPLISP-INTERNALSFs!@A @A B@0CBPC `D A@@BD@@A@A E#FjE@@ @@AF OR PRIMITIVES  BYTE-SPECK2 BYTE PRIMITIVES  ETYPECASE PRIMITIVES  BYTE-SPECK2 KBUG-INPUT-STREAM?K2 KBUG-INPUT-STREAM?K2 LDBK2 KBUG-STREAM-FLAGSK2!C(@@BpE0@A @AhDjD KBUG-OUTPUT-STREAM?K2 KBUG-OUTPUT-STREAM?K2 LDBK2 KBUG-STREAM-FLAGSK2!C(@@Bp E0@A @AhDjD KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-BASEK2 KBUG-STREAM-ENDK20 "$x C@D0@A@A!G$D KBUG-STREAM-EMPTY?K2 KBUG-STREAM-EMPTY?K2 KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-IN-POINTERK2!C Cp D0@A @AhDjD KBUG-STREAM-FULL?K2 KBUG-STREAM-FULL?K2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-OUT-POINTERK2!C!C( Bp D0@A @AhDjD KBUG-STREAM-ADVANCE-IN-POINTERK2 KBUG-STREAM-ADVANCE-IN-POINTERK2 SET-KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-IN-POINTERK2!C(!B E#F KBUG-STREAM-ADVANCE-OUT-POINTERK2 KBUG-STREAM-ADVANCE-OUT-POINTERK2 SET-KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-OUT-POINTERK2!C(!B E#F INITIALIZE-KBUG-STREAMK2 INITIALIZE-KBUG-STREAMK2 SET-KBUG-STREAM-FLAGSK2 KBUG-STREAM-FLAGSK2 SET-KBUG-STREAM-ENDK2 SET-KBUG-STREAM-BASEK2 A$B A&B C D(@ E)F KBUG-STREAM-NEEDS-INPUTK2 KBUG-STREAM-NEEDS-INPUTK2 KBUG-STREAM-EMPTY?K2 CD@@A @AjD KBUG-STREAM-NEEDS-OUTPUTK2 KBUG-STREAM-NEEDS-OUTPUTK2 KBUG-STREAM-FULL?K2 CD@@A @AjD KBUG-STREAM-PEEK-BYTEK2 KBUG-STREAM-PEEK-BYTEK2 %KBUG-STREAM-PEEK-BYTEK2 KBUG-STREAM-OUT-POINTERK2 ILLOP-FUNCTIONTRAP KBUG-INPUT-STREAM?K2 CD@@A @A#A@B!C(!F %KBUG-STREAM-PEEK-BYTEK2 %KBUG-STREAM-PEEK-BYTEK2 KBUG-STREAM-IN-POINTERK2 Cp#0@A@A@@ #`8@ATD@ aD KBUG-STREAM-PEEK-CHARACTERK2 KBUG-STREAM-PEEK-CHARACTERK2 KBUG-STREAM-PEEK-BYTEK2 C@@F#ED KBUG-STREAM-READ-BYTEK2 KBUG-STREAM-READ-BYTEK2 SET-KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-PEEK-BYTEK2 C!C(!B A"B@A$D KBUG-STREAM-READ-CHARACTERK2 KBUG-STREAM-READ-CHARACTERK2 KBUG-STREAM-READ-BYTEK2 ILLOP-FUNCTIONTRAP KBUG-INPUT-STREAM?K2 CD@@A @AyA@B C@@F#ED KBUG-STREAM-WRITE-CHARACTERK2 KBUG-STREAM-WRITE-CHARACTERK2  SET-KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-IN-POINTERK2 ILLOP-FUNCTIONTRAP KBUG-OUTPUT-STREAM?K2 CD@@A @A$A@B C A) B Cp'0@A @A"T@B@ $BX8@A A( B E%F KBUG-STREAM-WRITE-BYTEK2 KBUG-STREAM-WRITE-BYTEK2  SET-KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-POINTER-1+K2 KBUG-STREAM-IN-POINTERK2 ILLOP-FUNCTIONTRAP KBUG-OUTPUT-STREAM?K2 CD@@A @A$A@B C A) B Cp'0@A @A"T@B@ $BX8@A A( B E%F KBUG-STREAM-INITIALIZEK2 KBUG-STREAM-INITIALIZEK2 SET-KBUG-STREAM-FLAGSK2 SET-KBUG-STREAM-OUT-POINTERK2 SET-KBUG-STREAM-IN-POINTERK2 SET-KBUG-STREAM-ENDK2 SET-KBUG-STREAM-BASEK2  A$B A&B A$B A$B E#F