0.7.5.7:

[sbcl.git] / src / compiler / alpha / type-vops.lisp

diff --git a/src/compiler/alpha/type-vops.lisp b/src/compiler/alpha/type-vops.lisp
index 2f34a88..2105967 100644 (file)
--- a/src/compiler/alpha/type-vops.lisp
+++ b/src/compiler/alpha/type-vops.lisp
@@ -233,8 +233,8 @@
 (def-type-vops fixnump check-fixnum fixnum object-not-fixnum-error
   even-fixnum-lowtag odd-fixnum-lowtag)
 
-(def-type-vops functionp check-function function
-  object-not-function-error fun-pointer-lowtag)
+(def-type-vops functionp check-fun function
+  object-not-fun-error fun-pointer-lowtag)
 
 (def-type-vops listp check-list list object-not-list-error
   list-pointer-lowtag)
@@ -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)