diff --git a/lisp/Darwin-os.c b/lisp/Darwin-os.c
index 236d892edde04bfc093ff253c3cef27e3d578c90..768f4dac76069e7beafd98bb3e6677596daf411b 100644
--- a/lisp/Darwin-os.c
+++ b/lisp/Darwin-os.c
@@ -14,7 +14,7 @@
  * Frobbed for OpenBSD by Pierre R. Mai, 2001.
  * Frobbed for Darwin by Pierre R. Mai, 2003.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.15 2008/01/17 14:13:15 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.16 2008/03/19 09:17:10 cshapiro Exp $
  *
  */
 
@@ -64,7 +64,7 @@ int cycles_per_tick = 1;
 
 #ifdef __ppc__
 void
-timebase_init()
+timebase_init(void)
 {
     int mib[2];
     int tbfrequency;
diff --git a/lisp/alpha-arch.c b/lisp/alpha-arch.c
index 931ceebf821f05158a13144a92c2073537335154..91af4b1bb5fc58029930389bbcb23aa8275789b4 100644
--- a/lisp/alpha-arch.c
+++ b/lisp/alpha-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.10 2007/11/16 06:52:25 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.11 2008/03/19 09:17:10 cshapiro Rel $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -324,7 +324,7 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
diff --git a/lisp/amd64-arch.c b/lisp/amd64-arch.c
index 6fbcd93165d7f21ea196e08f877e44217b3fcfd3..9d7fff4de1a02705cdb8d0c2da15618c07687416 100644
--- a/lisp/amd64-arch.c
+++ b/lisp/amd64-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.6 2007/11/16 06:52:25 cshapiro Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.7 2008/03/19 09:17:10 cshapiro Exp $ 
  *
  */
 
@@ -315,7 +315,7 @@ sigtrap_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
diff --git a/lisp/cgc.c b/lisp/cgc.c
index 01f1482c1316de2bf2475d86a1b5bfa218f49da5..6a9b3f057b64e76654e0889af772ce35eaf238f5 100644
--- a/lisp/cgc.c
+++ b/lisp/cgc.c
@@ -1,5 +1,5 @@
 /* cgc.c -*- Mode: C; comment-column: 40; -*-
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.13 2005/09/15 18:26:51 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.14 2008/03/19 09:17:10 cshapiro Rel $
  *
  * Conservative Garbage Collector for CMUCL x86.
  *
@@ -188,7 +188,7 @@ print_space(struct space *s)
 }
 
 void
-print_spaces()
+print_spaces(void)
 {
     print_space(&space_0);
     print_space(&space_1);
@@ -205,7 +205,7 @@ print_cluster(struct cluster *cluster)
 }
 
 void
-print_clusters()
+print_clusters(void)
 {
     struct cluster *cluster;
 
@@ -375,7 +375,7 @@ compact_cluster(struct cluster *cluster)
 }
 
 static void
-compact_free_regions()
+compact_free_regions(void)
 {
     struct cluster *cluster;
 
@@ -460,7 +460,7 @@ alloc_large_region(int nchunks)
 }
 
 static struct region *
-alloc_small_region()
+alloc_small_region(void)
 {
     struct region *region = small_region_free_list;
 
@@ -803,7 +803,7 @@ sizeOfObject(obj_t obj)
 }
 
 static void
-init_osc()
+init_osc(void)
 {
     int i;
 
@@ -1519,7 +1519,7 @@ preserve_interrupt_contexts(void)
 
 
 static void
-flip_spaces()
+flip_spaces(void)
 {
     struct space *temp = oldspace;
 
@@ -1552,7 +1552,7 @@ preserve_pointer(void *ptr)
 }
 
 static void
-preserve_stack()
+preserve_stack(void)
 {
     void **addr;		/* auto var is current TOS */
 
@@ -1596,7 +1596,7 @@ scavenge_thread_stacks(void)
 #endif
 
 static void
-zero_stack()
+zero_stack(void)
 {
     /* This is a bit tricky because we don't want to zap any
      * stack frames between here and the call to mmap. For now,
@@ -1620,7 +1620,7 @@ zero_stack()
 #if defined STATIC_BLUE_BAG
 static int fast_static = 1;
 static void
-scavenge_static()
+scavenge_static(void)
 {
     /* Static space consists of alternating layers of
      * code objects that refer to read-only space (from purify),
@@ -1667,7 +1667,7 @@ scavenge_static()
 #endif
 
 static void
-scavenge_roots()
+scavenge_roots(void)
 {
     /* So what should go here?
      * When cgc starts up after purify/save all live objects
@@ -1714,7 +1714,7 @@ scavenge_roots()
 }
 
 static void
-scavenge_newspace()
+scavenge_newspace(void)
 {
     /* Scavenge is going to start at the beginning of newspace which
      * is presumed to have some "root" object pointers lying about due
@@ -1745,7 +1745,7 @@ scavenge_newspace()
 }
 
 static void
-free_oldspace()
+free_oldspace(void)
 {
     struct region *region, *next;
 
@@ -1837,7 +1837,7 @@ verify_space(lispobj * start, size_t words)
 
 /* For debug/test only. */
 static void
-verify_gc()
+verify_gc(void)
 {
     lispobj *rs0 = (lispobj *) READ_ONLY_SPACE_START;
     lispobj *rsz = (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER);
@@ -1901,7 +1901,7 @@ post_purify_fixup(struct space *space)
 static int dolog = 0;		/* log copy ops to file */
 static int dover = 0;		/* hunt pointers to oldspace */
 void
-cgc_collect_garbage()
+cgc_collect_garbage(void)
 {
     unsigned long allocated = bytes_allocated;
 
@@ -1945,7 +1945,7 @@ cgc_collect_garbage()
 }
 
 void
-cgc_free_heap()
+cgc_free_heap(void)
 {
     /* Like above but just zap everything 'cause purify has
      * cleaned house!
@@ -1964,7 +1964,7 @@ cgc_free_heap()
 
 
 void
-cgc_init_collector()
+cgc_init_collector(void)
 {
     int max_blocks;
 
@@ -2074,7 +2074,7 @@ gc_init(void)
 }
 
 void
-collect_garbage()
+collect_garbage(void)
 {
     /* SUB-GC wraps without-interrupt around call, but this
      * is going to absolutely block SIGINT.
diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index 4835a003fcc51d20481380d9e52cbc42177a0b15..8f8f393eae57007beace713093d57934b1aa7815 100644
--- a/lisp/gencgc.c
+++ b/lisp/gencgc.c
@@ -7,7 +7,7 @@
  *
  * Douglas Crosher, 1996, 1997, 1998, 1999.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.93 2008/03/18 03:59:56 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.94 2008/03/19 09:17:10 cshapiro Exp $
  *
  */
 
@@ -6906,7 +6906,7 @@ scavenge_interrupt_handlers(void)
 
 #if !(defined(i386) || defined(__x86_64))
 static void
-scavenge_control_stack()
+scavenge_control_stack(void)
 {
     unsigned long control_stack_size;
 
diff --git a/lisp/hpux-os.c b/lisp/hpux-os.c
index eda74366e16f626af011c7924a83b8b612f4cde3..3039e37725692dba3819ea9ec230feeb9f3bf973 100644
--- a/lisp/hpux-os.c
+++ b/lisp/hpux-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.7 2005/09/15 18:26:51 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.8 2008/03/19 09:17:10 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -53,7 +53,7 @@ static struct segment {
 } segments[MAX_SEGMENTS];
 
 void
-os_init()
+os_init(void)
 {
     int i;
 
@@ -239,7 +239,7 @@ sigbus_handler(int signal, int code, struct sigcontext *context)
 }
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
     interrupt_install_low_level_handler(SIGBUS, sigbus_handler);
diff --git a/lisp/irix-os.c b/lisp/irix-os.c
index 0a4da372a1390c7435a1d77420c761a62ce11608..072a8a53a348ac7afb9aaef79c6440c5df7dbf55 100644
--- a/lisp/irix-os.c
+++ b/lisp/irix-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.c,v 1.3 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.c,v 1.4 2008/03/19 09:17:10 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -30,7 +30,7 @@ os_vm_size_t os_vm_page_size = (-1);
 int zero_fd;
 
 void
-os_init()
+os_init(void)
 {
     zero_fd = open("/dev/zero", O_RDONLY);
     os_vm_page_size = getpagesize();
diff --git a/lisp/mach-os.c b/lisp/mach-os.c
index 75bdb4928c182d06b49c994b2a325e6c204dd715..d76be8eeef717e7b573661f9a886860491486cb6 100644
--- a/lisp/mach-os.c
+++ b/lisp/mach-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.c,v 1.5 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.c,v 1.6 2008/03/19 09:17:13 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -31,14 +31,14 @@ vm_size_t os_vm_page_size;
 
 #if defined(i386) || defined(parisc)
 mach_port_t
-task_self()
+task_self(void)
 {
     return mach_task_self();
 }
 #endif
 
 void
-os_init()
+os_init(void)
 {
     os_vm_page_size = vm_page_size;
 }
diff --git a/lisp/mips-arch.c b/lisp/mips-arch.c
index c694ecd5b75d9face8843f31d55c958e454d1762..003d252c1e93482f6144bb13a3301ecb32fa42e9 100644
--- a/lisp/mips-arch.c
+++ b/lisp/mips-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.11 2007/11/16 06:52:25 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -335,7 +335,7 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
     interrupt_install_low_level_handler(SIGFPE, sigfpe_handler);
diff --git a/lisp/monitor.c b/lisp/monitor.c
index 3895faab1cccf7c02ab182c9f37f204a679d18f4..a632442d421b8e0b5231b53dd93e0624bf16408e 100644
--- a/lisp/monitor.c
+++ b/lisp/monitor.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.20 2005/09/15 18:26:52 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.21 2008/03/19 09:17:13 cshapiro Rel $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -502,7 +502,7 @@ sub_monitor(void)
 }
 
 void
-ldb_monitor()
+ldb_monitor(void)
 {
     jmp_buf oldbuf;
 
@@ -520,7 +520,7 @@ ldb_monitor()
 }
 
 void
-throw_to_monitor()
+throw_to_monitor(void)
 {
     longjmp(curbuf, 1);
 }
diff --git a/lisp/os-common.c b/lisp/os-common.c
index 3d6c754c3c4e4f6c2f784e705b84ea94dba274c3..4a5493e0d6b55f803e18df6cd5c8030ef288781a 100644
--- a/lisp/os-common.c
+++ b/lisp/os-common.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.26 2007/12/17 09:54:35 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.27 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -27,9 +27,7 @@
    hpux-os.c for some useful restrictions on actual usage. */
 
 void
-os_zero(addr, length)
-     os_vm_address_t addr;
-     os_vm_size_t length;
+os_zero(os_vm_address_t addr, os_vm_size_t length)
 {
     os_vm_address_t block_start;
     os_vm_size_t block_size;
@@ -62,8 +60,7 @@ os_zero(addr, length)
 }
 
 os_vm_address_t
-os_allocate(len)
-     os_vm_size_t len;
+os_allocate(os_vm_size_t len)
 {
     return os_validate((os_vm_address_t) NULL, len);
 }
@@ -75,9 +72,7 @@ os_allocate_at(os_vm_address_t addr, os_vm_size_t len)
 }
 
 void
-os_deallocate(addr, len)
-     os_vm_address_t addr;
-     os_vm_size_t len;
+os_deallocate(os_vm_address_t addr, os_vm_size_t len)
 {
     os_invalidate(addr, len);
 }
diff --git a/lisp/osf1-os.c b/lisp/osf1-os.c
index 19e7a38bcb82030f27ee47337c6168b42c6c62a1..c9071178a2ff3d6ce997ad8a4fa75d1c489a492c 100644
--- a/lisp/osf1-os.c
+++ b/lisp/osf1-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.c,v 1.3 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.c,v 1.4 2008/03/19 09:17:13 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -26,7 +26,7 @@
 vm_size_t os_vm_page_size;
 
 void
-os_init()
+os_init(void)
 {
     int buf[2] = { SSIN_UACPROC, UAC_SIGBUS | UAC_NOPRINT };
     int error;
diff --git a/lisp/parse.c b/lisp/parse.c
index a2e9f37549fd925e6a916677cd5e148234de8a3b..7fbaec07c80914a7e561f02be96e2486df208f29 100644
--- a/lisp/parse.c
+++ b/lisp/parse.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.11 2005/09/15 18:26:52 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $ */
 #include <stdio.h>
 #include <ctype.h>
 #include <signal.h>
@@ -124,8 +124,7 @@ lookup_variable(char *name, lispobj * result)
 
 
 boolean
-more_p(ptr)
-     char **ptr;
+more_p(char **ptr)
 {
     skip_ws(ptr);
 
@@ -136,8 +135,7 @@ more_p(ptr)
 }
 
 char *
-parse_token(ptr)
-     char **ptr;
+parse_token(char **ptr)
 {
     char *token;
 
@@ -200,8 +198,7 @@ number_p(token)
 #endif
 
 long
-parse_number(ptr)
-     char **ptr;
+parse_number(char **ptr)
 {
     char *token = parse_token(ptr);
     long result;
@@ -219,8 +216,7 @@ parse_number(ptr)
 }
 
 char *
-parse_addr(ptr)
-     char **ptr;
+parse_addr(char **ptr)
 {
     char *token = parse_token(ptr);
     long result;
@@ -310,8 +306,7 @@ parse_regnum(char *s)
 }
 
 lispobj
-parse_lispobj(ptr)
-     char **ptr;
+parse_lispobj(char **ptr)
 {
     char *token = parse_token(ptr);
     long pointer;
diff --git a/lisp/ppc-arch.c b/lisp/ppc-arch.c
index c18e1f228ee5e725f3d24a433c3f787292134610..a0e197522bae8122ea0e2272d922aada2424ac1d 100644
--- a/lisp/ppc-arch.c
+++ b/lisp/ppc-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-arch.c,v 1.12 2008/01/28 18:21:04 rtoy Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-arch.c,v 1.13 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -214,7 +214,7 @@ allocation_trap_p(os_context_t * context)
  * signal to perform allocation.
  */
 void
-enable_some_signals()
+enable_some_signals(void)
 {
     sigset_t sigs;
 
@@ -503,7 +503,7 @@ sigill_handler(HANDLER_ARGS)
 
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigill_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigill_handler);
diff --git a/lisp/ppc-darwin-dlshim.c b/lisp/ppc-darwin-dlshim.c
index 0057168fcd113de6b5542f3a61d20d75546eb4a9..e6865cd671a12e351f11f829e522933ad5f758f8 100644
--- a/lisp/ppc-darwin-dlshim.c
+++ b/lisp/ppc-darwin-dlshim.c
@@ -188,7 +188,7 @@ dlopen(const char *filename, int flags)
 }
 
 const char *
-dlerror()
+dlerror(void)
 {
     static char *errbuf = NULL;
     NSLinkEditErrors a;
diff --git a/lisp/print.c b/lisp/print.c
index 9af86e4276d89267d88ffeacd4841fc6f7be667f..f9f6d2a10abda4149e41f3bebce6c2873b9aa913 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.22 2006/07/12 18:42:40 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.23 2008/03/19 09:17:13 cshapiro Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -784,7 +784,7 @@ print_obj(char *prefix, lispobj obj)
 }
 
 void
-reset_printer()
+reset_printer(void)
 {
     cur_clock++;
     cur_lines = 0;
diff --git a/lisp/solaris-os.c b/lisp/solaris-os.c
index 86729bdb82c56ceb13e78c5b04c7254c6d64fe54..8bcc4d39bb30b0e5bf99a6fbc1df1164e4110c0e 100644
--- a/lisp/solaris-os.c
+++ b/lisp/solaris-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/solaris-os.c,v 1.19 2008/02/27 21:54:42 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/solaris-os.c,v 1.20 2008/03/19 09:17:13 cshapiro Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -300,7 +300,7 @@ segv_handler(HANDLER_ARGS)
 #endif
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
 }
@@ -384,7 +384,7 @@ getrusage(int who, struct rusage *rp)
 }
 
 int
-setreuid()
+setreuid(void)
 {
     fprintf(stderr, "setreuid unimplemented\n");
     errno = ENOSYS;
@@ -392,7 +392,7 @@ setreuid()
 }
 
 int
-setregid()
+setregid(void)
 {
     fprintf(stderr, "setregid unimplemented\n");
     errno = ENOSYS;
@@ -400,7 +400,7 @@ setregid()
 }
 
 int
-gethostid()
+gethostid(void)
 {
     fprintf(stderr, "gethostid unimplemented\n");
     errno = ENOSYS;
diff --git a/lisp/sparc-arch.c b/lisp/sparc-arch.c
index 15cc437b76effa9ceeadb23f4f1e5ccbe430506c..2848059f64f00afe9a6b513c0bb94df0497356ad 100644
--- a/lisp/sparc-arch.c
+++ b/lisp/sparc-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.28 2007/01/01 11:53:03 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.29 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -28,7 +28,7 @@
 #include "interr.h"
 
 char *
-arch_init()
+arch_init(void)
 {
     return 0;
 }
@@ -282,7 +282,7 @@ pop_fake_control_stack_frame(struct sigcontext *context)
  * signal to perform allocation.
  */
 void
-enable_some_signals()
+enable_some_signals(void)
 {
 #ifdef GENCGC
     sigset_t sigs;
@@ -541,7 +541,7 @@ sigill_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigill_handler);
 }
diff --git a/lisp/sunos-os.c b/lisp/sunos-os.c
index e7291a695aa430ab8a0f00774d3d9ca43b80c72d..0d9d028e9bcf6801b8dcc57ff931ddae1c7d5776 100644
--- a/lisp/sunos-os.c
+++ b/lisp/sunos-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.c,v 1.8 2007/01/01 11:53:03 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.c,v 1.9 2008/03/19 09:17:13 cshapiro Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -91,7 +91,7 @@ os_init_bailout(arg)
 }
 
 void
-os_init()
+os_init(void)
 {
     char *empty_file = getenv("CMUCL_EMPTYFILE");
 
@@ -858,7 +858,7 @@ segv_handler(HANDLER_ARGS)
 }
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
 }
@@ -971,7 +971,7 @@ getrusage(int who, struct rusage *rp)
 }
 
 int
-setreuid()
+setreuid(void)
 {
     fprintf(stderr, "setreuid unimplemented\n");
     errno = ENOSYS;
@@ -979,7 +979,7 @@ setreuid()
 }
 
 int
-setregid()
+setregid(void)
 {
     fprintf(stderr, "setregid unimplemented\n");
     errno = ENOSYS;
@@ -987,7 +987,7 @@ setregid()
 }
 
 int
-gethostid()
+gethostid(void)
 {
     fprintf(stderr, "gethostid unimplemented\n");
     errno = ENOSYS;
diff --git a/lisp/vars.c b/lisp/vars.c
index 4d7ee287f92e80cd4997e4cad290de044c65e323..379a8865a4694944ec5f78f354996723fc350797 100644
--- a/lisp/vars.c
+++ b/lisp/vars.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.6 2005/09/15 18:26:53 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.7 2008/03/19 09:17:13 cshapiro Rel $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <stdlib.h>
@@ -46,7 +46,7 @@ hash_obj(lispobj obj)
 
 
 void
-flush_vars()
+flush_vars(void)
 {
     int index;
     struct var *var, *next, *perm = NULL;
@@ -82,8 +82,7 @@ flush_vars()
 }
 
 struct var *
-lookup_by_name(name)
-     char *name;
+lookup_by_name(char *name)
 {
     struct var *var;
 
@@ -94,8 +93,7 @@ lookup_by_name(name)
 }
 
 struct var *
-lookup_by_obj(obj)
-     lispobj obj;
+lookup_by_obj(lispobj obj)
 {
     struct var *var;
 
diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c
index 88f5fb91079d7c42ee5481903cc43d18cbbfa4bb..677c04a848c4508c10af14c0d8a58136bea97742 100644
--- a/lisp/x86-arch.c
+++ b/lisp/x86-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.35 2008/01/28 18:21:04 rtoy Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.36 2008/03/19 09:17:13 cshapiro Exp $ 
  *
  */
 
@@ -304,7 +304,7 @@ sigtrap_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);