X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Ftype-vops.lisp;h=21059674241722e6442af439d04f81ec9761610f;hb=305177dc7a7d11245e42e003ac4070eb1705c699;hp=2963d4de8e5db319e004b9d46e0fe220760bbcc9;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/compiler/alpha/type-vops.lisp b/src/compiler/alpha/type-vops.lisp
index 2963d4d..2105967 100644
--- a/src/compiler/alpha/type-vops.lisp
+++ b/src/compiler/alpha/type-vops.lisp
@@ -61,37 +61,37 @@
 	 (function-p (if (intersection headers *fun-header-widetags*)
 			 (if (subsetp headers *fun-header-widetags*)
 			     t
-			     (error "Can't test for mix of function subtypes ~
+			     (error "can't test for mix of function subtypes ~
 				     and normal header types."))
 			 nil)))
     (unless type-codes
-      (error "Must supply at least on type for test-type."))
+      (error "must supply at least one type for test-type"))
     (cond
      (fixnump
-      (when (remove-if #'(lambda (x)
-			   (or (= x even-fixnum-lowtag)
-			       (= x odd-fixnum-lowtag)))
+      (when (remove-if (lambda (x)
+			 (or (= x even-fixnum-lowtag)
+			     (= x odd-fixnum-lowtag)))
 		       lowtags)
-	(error "Can't mix fixnum testing with other lowtags."))
+	(error "can't mix fixnum testing with other lowtags"))
       (when function-p
-	(error "Can't mix fixnum testing with function subtype testing."))
+	(error "can't mix fixnum testing with function subtype testing"))
       (when immediates
-	(error "Can't mix fixnum testing with other immediates."))
+	(error "can't mix fixnum testing with other immediates"))
       (if headers
 	  `(%test-fixnum-and-headers ,value ,temp ,target ,not-p
 				     ',(canonicalize-headers headers))
 	  `(%test-fixnum ,value ,temp ,target ,not-p)))
      (immediates
       (when headers
-	(error "Can't mix testing of immediates with testing of headers."))
+	(error "can't mix testing of immediates with testing of headers"))
       (when lowtags
-	(error "Can't mix testing of immediates with testing of lowtags."))
+	(error "can't mix testing of immediates with testing of lowtags"))
       (when (cdr immediates)
-	(error "Can't test multiple immediates at the same time."))
+	(error "can't test multiple immediates at the same time"))
       `(%test-immediate ,value ,temp ,target ,not-p ,(car immediates)))
      (lowtags
       (when (cdr lowtags)
-	(error "Can't test multiple lowtags at the same time."))
+	(error "can't test multiple lowtags at the same time"))
       (if headers
 	  `(%test-lowtag-and-headers
 	    ,value ,temp ,target ,not-p ,(car lowtags)
@@ -101,7 +101,7 @@
       `(%test-headers ,value ,temp ,target ,not-p ,function-p
 		      ',(canonicalize-headers headers)))
      (t
-      (error "Nothing to test?"))))))
+      (error "nothing to test?"))))))
 
 (defun %test-fixnum (value temp target not-p)
   (assemble ()
@@ -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)