X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fexample-constants.lisp;h=a8cb3d012f361eee3ed722a935c469567549394a;hb=9303b3dc86bdfe5193b403de7419dc5bc8cc79e4;hp=29d913818a56aca7aedf8c373e3adb4123bc0d02;hpb=a09b213e5812edd1ef3e88c18bde6bd1294da547;p=sbcl.git

diff --git a/contrib/sb-grovel/example-constants.lisp b/contrib/sb-grovel/example-constants.lisp
index 29d9138..a8cb3d0 100644
--- a/contrib/sb-grovel/example-constants.lisp
+++ b/contrib/sb-grovel/example-constants.lisp
@@ -9,27 +9,27 @@
 ((:integer af-inet "AF_INET" "IP Protocol family")
  (:integer af-unspec "AF_UNSPEC" "Unspecified.")
  (:integer af-local
-	   #+(or sunos solaris) "AF_UNIX"
-	   #-(or sunos solaris) "AF_LOCAL"
-	   "Local to host (pipes and file-domain).")
+           #+(or sunos solaris) "AF_UNIX"
+           #-(or sunos solaris) "AF_LOCAL"
+           "Local to host (pipes and file-domain).")
  (:integer sigterm "SIGTERM")
  (:structure stat ("struct stat"
                    (integer dev "dev_t" "st_dev")
                    (integer atime "time_t" "st_atime")))
- 
- 
+
+
  (:function accept ("accept" int
-			     (socket int)
-			     (my-addr (* t))
-			     (addrlen int :in-out)))
+                             (socket int)
+                             (my-addr (* t))
+                             (addrlen int :in-out)))
  (:function bind ("bind" int
-			 (sockfd int)
-			 (my-addr (* t))
-			 (addrlen int)))
+                         (sockfd int)
+                         (my-addr (* t))
+                         (addrlen int)))
  (:function getpid ("getpid" int ))
  (:function getppid ("getppid" int))
  (:function kill ("kill" int
-			 (pid int) (signal int)))
+                         (pid int) (signal int)))
  (:function mkdir ("mkdir" int
-			   (name c-string))))
+                           (name c-string))))