X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Ftype-vops.lisp;h=21059674241722e6442af439d04f81ec9761610f;hb=c81c32ef8a737b0cc61d3c0c6a137cab39baac73;hp=010d84e26fb0296d491939fc3b9b0b8a17657f44;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/compiler/alpha/type-vops.lisp b/src/compiler/alpha/type-vops.lisp
index 010d84e..2105967 100644
--- a/src/compiler/alpha/type-vops.lisp
+++ b/src/compiler/alpha/type-vops.lisp
@@ -369,14 +369,14 @@
 ;;; XXX
 #|
 (def-type-vops scavenger-hook-p nil nil nil
-  #-gengc 0 #+gengc scavenger-hook-type)
+  #!-gengc 0 #!+gengc scavenger-hook-type)
 |#
 
 (def-type-vops code-component-p nil nil nil
   code-header-widetag)
 
 (def-type-vops lra-p nil nil nil
-  #-gengc return-pc-header-widetag #+gengc 0)
+  #!-gengc return-pc-header-widetag #!+gengc 0)
 
 (def-type-vops fdefn-p nil nil nil
   fdefn-widetag)