0.6.8.9:

[sbcl.git] / src / compiler / byte-comp.lisp

diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp
index eb718e5..644b6df 100644 (file)
--- a/src/compiler/byte-comp.lisp
+++ b/src/compiler/byte-comp.lisp
@@ -853,29 +853,31 @@
 
 (defvar *byte-component-info*)
 
-(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)
 
 (defun output-push-int (segment int)
   (declare (type sb!assem:segment segment)