-(eval-when (#+sb-xc :compile-toplevel :load-toplevel :execute)
- (defconstant byte-push-local #b00000000)
- (defconstant byte-push-arg #b00010000)
- (defconstant byte-push-constant #b00100000)
- (defconstant byte-push-system-constant #b00110000)
- (defconstant byte-push-int #b01000000)
- (defconstant byte-push-neg-int #b01010000)
- (defconstant byte-pop-local #b01100000)
- (defconstant byte-pop-n #b01110000)
- (defconstant byte-call #b10000000)
- (defconstant byte-tail-call #b10010000)
- (defconstant byte-multiple-call #b10100000)
- (defconstant byte-named #b00001000)
- (defconstant byte-local-call #b10110000)
- (defconstant byte-local-tail-call #b10111000)
- (defconstant byte-local-multiple-call #b11000000)
- (defconstant byte-return #b11001000)
- (defconstant byte-branch-always #b11010000)
- (defconstant byte-branch-if-true #b11010010)
- (defconstant byte-branch-if-false #b11010100)
- (defconstant byte-branch-if-eq #b11010110)
- (defconstant byte-xop #b11011000)
- (defconstant byte-inline-function #b11100000))
+;;; FIXME: These might as well be generated with DEFENUM, right?
+;;; It would also be nice to give them less ambiguous names, perhaps
+;;; with a "BYTEOP-" prefix instead of "BYTE-".
+(defconstant byte-push-local #b00000000)
+(defconstant byte-push-arg #b00010000)
+(defconstant byte-push-constant #b00100000)
+(defconstant byte-push-system-constant #b00110000)
+(defconstant byte-push-int #b01000000)
+(defconstant byte-push-neg-int #b01010000)
+(defconstant byte-pop-local #b01100000)
+(defconstant byte-pop-n #b01110000)
+(defconstant byte-call #b10000000)
+(defconstant byte-tail-call #b10010000)
+(defconstant byte-multiple-call #b10100000)
+(defconstant byte-named #b00001000)
+(defconstant byte-local-call #b10110000)
+(defconstant byte-local-tail-call #b10111000)
+(defconstant byte-local-multiple-call #b11000000)
+(defconstant byte-return #b11001000)
+(defconstant byte-branch-always #b11010000)
+(defconstant byte-branch-if-true #b11010010)
+(defconstant byte-branch-if-false #b11010100)
+(defconstant byte-branch-if-eq #b11010110)
+(defconstant byte-xop #b11011000)
+(defconstant byte-inline-function #b11100000)