X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=1f4c432843e23dbbf06ea4bbd146b327bfffb1c1;hb=0f234877047c56ca945fe54e9e77a9cc2c8141cb;hp=a7873edbe49d12a7338db4ea018af691908d494a;hpb=fd63d6aad4a5a3b171eafb56b1b6bd502e501281;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index a7873ed..1f4c432 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -1965,8 +1965,8 @@
     ;; Lisp (with (DESCRIBE 'BYTE-IMM-CODE)) than to definitively deduce
     ;; from first principles whether it's defined in some way that genesis
     ;; can't grok.
-    (case #-darwin (byte-imm-code chunk dstate)
-          #+darwin (word-imm-code chunk dstate)
+    (case #!-darwin (byte-imm-code chunk dstate)
+          #!+darwin (word-imm-code chunk dstate)
       (#.error-trap
        (nt "error trap")
        (sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
@@ -1984,17 +1984,17 @@
 
 (define-instruction break (segment code)
   (:declare (type (unsigned-byte 8) code))
-  #-darwin (:printer byte-imm ((op #b11001100)) '(:name :tab code)
+  #!-darwin (:printer byte-imm ((op #b11001100)) '(:name :tab code)
                      :control #'break-control)
-  #+darwin (:printer word-imm ((op #b0000101100001111)) '(:name :tab code)
+  #!+darwin (:printer word-imm ((op #b0000101100001111)) '(:name :tab code)
                      :control #'break-control)
   (:emitter
-   #-darwin (emit-byte segment #b11001100)
+   #!-darwin (emit-byte segment #b11001100)
    ;; On darwin, trap handling via SIGTRAP is unreliable, therefore we
    ;; throw a sigill with 0x0b0f instead and check for this in the
    ;; SIGILL handler and pass it on to the sigtrap handler if
    ;; appropriate
-   #+darwin (emit-word segment #b0000101100001111)
+   #!+darwin (emit-word segment #b0000101100001111)
    (emit-byte segment code)))
 
 (define-instruction int (segment number)