<short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

gcl (2.6.12-128) unstable; urgency=medium

  * Version_2.6.13pre128

Gbp-Pq: Name Version_2_6_13pre128

diff --git a/ChangeLog b/ChangeLog
index 69c2b72249dd714bad1847d18767410197714053..8907521cec011bf1cc77f82bb8a9d81ddc4a86a1 100755 (executable)
--- a/ChangeLog
+++ b/ChangeLog
@@ -115,13 +115,13 @@
        * /cvsroot/gcl/gcl/ChangeLog: *** empty log message ***
 
        * /cvsroot/gcl/gcl/unixport/makefile:
-       Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absense of tcl/tk
+       Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absence of tcl/tk
 
        * /cvsroot/gcl/gcl/gcl-tk/makefile:
        Add gcl-tk/demos/index.lsp to clean target
 
        * /cvsroot/gcl/gcl/o/makefile, /cvsroot/gcl/gcl/elisp/makefile, /cvsroot/gcl/gcl/info/makefile, /cvsroot/gcl/gcl/makefile:
-       Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absense of tcl/tk
+       Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absence of tcl/tk
 
        * /cvsroot/gcl/gcl/configure, /cvsroot/gcl/gcl/configure.in, /cvsroot/gcl/gcl/elisp/makefile:
        changes to configure.in and elisp/makefile to handle emacs not being present

diff --git a/ChangeLog.old b/ChangeLog.old
index 6ff4e877071187e210296d1908b6e5a6b70dbd32..c8aebd95e9e7979cd8adde6edd7f609568d7d305 100755 (executable)
--- a/ChangeLog.old
+++ b/ChangeLog.old
@@ -8,7 +8,7 @@
        * Added DESTDIR to makefiles to support installing under arbitrary
        subdir
        * good 'clean' targets
-       * correct building in absense of tcl/tk
+       * correct building in absence of tcl/tk
 
 
 2001-12-18  David Billinghurst <David.Billinghurst@riotinto.com>

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index cf1a831e7fc93817c64e36819c1bb9e8185a74cd..4146be69ecefd78bbea532ac59bad875f213c5e6 100644 (file)
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -961,10 +961,10 @@ the condition to go uncaught if it cannot be classified."
                    (format t "Found element of ~S not in ~S: ~S~%"
                            tp tp2 x)
                    t))
-            (condition (c) (format t "Error ~S occured: ~S~%"
+            (condition (c) (format t "Error ~S occurred: ~S~%"
                                    c tp2)
                        t)))))
-        (condition (c) (format t "Error ~S occured: ~S~%" c tp)
+        (condition (c) (format t "Error ~S occurred: ~S~%" c tp)
                    1))))))))
 
 (defun even-size-p (a)

diff --git a/configure b/configure
index fdd6fa079865ac63017c4c54d52eebc4df768483..93d3f74fe2366c38edacff20392bf9ddace49def 100755 (executable)
--- a/configure
+++ b/configure
@@ -1446,8 +1446,8 @@ Optional Features:
   --enable-emacsdir=XXXX will manually specify the location for elisp files
   --enable-xgcl=yes will compile in support for XGCL
   --enable-dlopen uses dlopen for loading objects, which can then not be retained  in saved images
-  --enable-statsysbfd uses a static sytem bfd library for loading and relocationing object files
-  --enable-dynsysbfd uses a dynamic shared sytem bfd library for loading and relocationing object files
+  --enable-statsysbfd uses a static system bfd library for loading and relocating object files
+  --enable-dynsysbfd uses a dynamic shared system bfd library for loading and relocating object files
   --enable-custreloc uses custom gcl code if available for loading  and relocationing object files
   --enable-debug builds gcl with -g in CFLAGS to enable running under gdb
   --enable-static will link your GCL against static as opposed to shared system libraries
@@ -8522,7 +8522,9 @@ fi
 if test "$enable_readline" != "no" ; then
            for ac_header in readline/readline.h
 do :
-  ac_fn_c_check_header_compile "$LINENO" "readline/readline.h" "ac_cv_header_readline_readline_h" "$ac_includes_default"
+  ac_fn_c_check_header_compile "$LINENO" "readline/readline.h" "ac_cv_header_readline_readline_h" "#include <stdio.h>
+
+"
 if test "x$ac_cv_header_readline_readline_h" = xyes
 then :
   printf "%s\n" "#define HAVE_READLINE_READLINE_H 1" >>confdefs.h
@@ -8654,7 +8656,122 @@ printf "%s\n" "#define HAVE_RL_COMPENTRY_FUNC_T 1" >>confdefs.h
 
 fi
 
-                                TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware
+                                { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION" >&5
+printf %s "checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION... " >&6; }
+                                 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+
+                                                  #include <readline/readline.h>
+                                                 extern Function *rl_completion_entry_function __attribute__((weak));
+
+int
+main (void)
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"
+then :
+
+printf "%s\n" "#define RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION 1" >>confdefs.h
+
+                                         { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+printf "%s\n" "yes" >&6; }
+else $as_nop
+  { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5
+printf "%s\n" "no" >&6; }
+                                         { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T" >&5
+printf %s "checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T... " >&6; }
+                                         cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+
+                                                         #include <readline/readline.h>
+                                                         extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak));
+
+int
+main (void)
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"
+then :
+
+printf "%s\n" "#define RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T 1" >>confdefs.h
+
+                                                { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+printf "%s\n" "yes" >&6; }
+else $as_nop
+  { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5
+printf "%s\n" "no" >&6; }
+                                                as_fn_error $? "Unknown rl_completion_entry_function return type" "$LINENO" 5
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext
+
+                                 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_READLINE_NAME_TYPE_CHAR" >&5
+printf %s "checking RL_READLINE_NAME_TYPE_CHAR... " >&6; }
+                                 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+
+                                                 #include <readline/readline.h>
+                                                 extern char *rl_readline_name __attribute__((weak));
+
+int
+main (void)
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"
+then :
+
+printf "%s\n" "#define RL_READLINE_NAME_TYPE_CHAR 1" >>confdefs.h
+
+                                         { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+printf "%s\n" "yes" >&6; }
+else $as_nop
+  { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5
+printf "%s\n" "no" >&6; }
+                                         { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_READLINE_NAME_TYPE_CONST_CHAR" >&5
+printf %s "checking RL_READLINE_NAME_TYPE_CONST_CHAR... " >&6; }
+                                         cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+
+                                                         #include <readline/readline.h>
+                                                         extern const char *rl_readline_name __attribute__((weak));
+
+int
+main (void)
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"
+then :
+
+printf "%s\n" "#define RL_READLINE_NAME_TYPE_CONST_CHAR 1" >>confdefs.h
+
+                                                 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+printf "%s\n" "yes" >&6; }
+else $as_nop
+  { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5
+printf "%s\n" "no" >&6; }
+                                                as_fn_error $? "Unknown rl_readline_name return type" "$LINENO" 5
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext
+                                TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware
                                 RL_OBJS=gcl_readline.o
 fi
 

diff --git a/configure.in b/configure.in
index e81c78f053e25b93e587f0ec17f0efb565d879ce..c57f72b134382793afaa18a0440a87ddfecd1280 100644 (file)
--- a/configure.in
+++ b/configure.in
@@ -1,5 +1,5 @@
 AC_INIT
-AC_PREREQ([2.71])
+AC_PREREQ([2.69])
 AC_CONFIG_HEADERS([h/gclincl.h])
 
 VERSION=`cat majvers`.`cat minvers`
@@ -119,9 +119,9 @@ AC_ARG_ENABLE([xgcl],[  --enable-xgcl=yes will compile in support for XGCL],,[en
 
 AC_ARG_ENABLE([dlopen],[  --enable-dlopen uses dlopen for loading objects, which can then not be retained  in saved images],
              ,[enable_dlopen=$def_dlopen])
-AC_ARG_ENABLE([statsysbfd],[  --enable-statsysbfd uses a static sytem bfd library for loading and relocationing object files],
+AC_ARG_ENABLE([statsysbfd],[  --enable-statsysbfd uses a static system bfd library for loading and relocating object files],
              ,[enable_statsysbfd=$def_statsysbfd])
-AC_ARG_ENABLE([dynsysbfd],[  --enable-dynsysbfd uses a dynamic shared sytem bfd library for loading and relocationing object files],
+AC_ARG_ENABLE([dynsysbfd],[  --enable-dynsysbfd uses a dynamic shared system bfd library for loading and relocating object files],
              ,[enable_dynsysbfd=no])
 AC_ARG_ENABLE([custreloc],[  --enable-custreloc uses custom gcl code if available for loading  and relocationing object files],
              ,[enable_custreloc=$def_custreloc])
@@ -1749,8 +1749,56 @@ if test "$enable_readline" != "no" ; then
                                 AC_CHECK_LIB([readline],[rl_completion_matches],
                                        [AC_DEFINE(HAVE_DECL_RL_COMPLETION_MATCHES,1,[have readline completion matches])
                                         AC_DEFINE(HAVE_RL_COMPENTRY_FUNC_T,1,[have readline completion matches])])
-                                TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware
-                                RL_OBJS=gcl_readline.o]))
+                                AC_MSG_CHECKING([RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION])
+                                 AC_COMPILE_IFELSE(
+                                        [AC_LANG_PROGRAM(
+                                              [[
+                                                  #include <readline/readline.h>
+                                                 extern Function *rl_completion_entry_function __attribute__((weak));
+                                              ]],
+                                              [[]])],
+                                        [AC_DEFINE(RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION,1,[rl_completion_entry_function returns type Function])
+                                         AC_MSG_RESULT([yes])],
+                                        [AC_MSG_RESULT([no])
+                                         AC_MSG_CHECKING([RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T])
+                                         AC_COMPILE_IFELSE(
+                                                [AC_LANG_PROGRAM(
+                                                      [[
+                                                         #include <readline/readline.h>
+                                                         extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak));
+                                                      ]],
+                                                      [[]])],
+                                               [AC_DEFINE(RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T,1,[rl_completion_entry_function returns type rl_compentry_func_t])
+                                                AC_MSG_RESULT([yes])],
+                                                [AC_MSG_RESULT([no])
+                                                AC_MSG_ERROR([Unknown rl_completion_entry_function return type])])])
+
+                                 AC_MSG_CHECKING([RL_READLINE_NAME_TYPE_CHAR])
+                                 AC_COMPILE_IFELSE(
+                                        [AC_LANG_PROGRAM(
+                                              [[
+                                                 #include <readline/readline.h>
+                                                 extern char *rl_readline_name __attribute__((weak));
+                                              ]],
+                                              [[]])],
+                                        [AC_DEFINE(RL_READLINE_NAME_TYPE_CHAR,1,[rl_readline_name returns type char])
+                                         AC_MSG_RESULT([yes])],
+                                        [AC_MSG_RESULT([no])
+                                         AC_MSG_CHECKING([RL_READLINE_NAME_TYPE_CONST_CHAR])
+                                         AC_COMPILE_IFELSE(
+                                                [AC_LANG_PROGRAM(
+                                                      [[
+                                                         #include <readline/readline.h>
+                                                         extern const char *rl_readline_name __attribute__((weak));
+                                                      ]],
+                                                      [[]])],
+                                                [AC_DEFINE(RL_READLINE_NAME_TYPE_CONST_CHAR,1,[rl_readline_name returns type const char])
+                                                 AC_MSG_RESULT([yes])],
+                                                [AC_MSG_RESULT([no])
+                                                AC_MSG_ERROR([Unknown rl_readline_name return type])])])
+                                TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware
+                                RL_OBJS=gcl_readline.o]),
+                                [],[AC_INCLUDES_DEFAULT([#include <stdio.h>])])
 fi
 
 AC_SUBST(RL_OBJS)

diff --git a/git.tag b/git.tag
index f4a20189bf6919994b2d7ac848853cb8bfa32689..c4b575dea6a2b674b0b7aa7a2510e01fd99bb210 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1,2 +1,2 @@
-"Version_2_6_13pre126"
+"Version_2_6_13pre128"
 

diff --git a/h/386-macosx.defs b/h/386-macosx.defs
index e740f47ff37a8b2872f763a8c5b58d3799e840db..779d72894ffbe866c04fd96b759ea9f6eb709732 100644 (file)
--- a/h/386-macosx.defs
+++ b/h/386-macosx.defs
@@ -30,6 +30,6 @@ INITFORM = (si::build-symbol-table)
 # This is Apple's libtool, completely unrelated to GNU libtool.
 # Other plateforms define this to be `ar rs`.
 # This appears to be no longer necessary on Panther.
-ARRS = libtool -static -o
+ARRS = /usr/bin/libtool -static -o
 
 FINAL_CFLAGS := `echo $(FINAL_CFLAGS) | sed -e 's:-g::g'`

diff --git a/h/gclincl.h.in b/h/gclincl.h.in
index 989258fff74582c1d235a77829b8d04f8898a83f..6d415995e714ddd38b941d2f2eda402fdaf76910 100644 (file)
--- a/h/gclincl.h.in
+++ b/h/gclincl.h.in
@@ -342,6 +342,18 @@
 /* readline is editline */
 #undef READLINE_IS_EDITLINE
 
+/* rl_completion_entry_function returns type Function */
+#undef RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION
+
+/* rl_completion_entry_function returns type rl_compentry_func_t */
+#undef RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T
+
+/* rl_readline_name returns type char */
+#undef RL_READLINE_NAME_TYPE_CHAR
+
+/* rl_readline_name returns type const char */
+#undef RL_READLINE_NAME_TYPE_CONST_CHAR
+
 /* asm string to set the stack pointer */
 #undef SET_STACK_POINTER
 

diff --git a/h/protoize.h b/h/protoize.h
index 0da4c4adab7359f1bdc2cdb9d1b00deadb4f66fe..ac4689d5ad83e4559d45314d3c20f1b89b7ab6c0 100644 (file)
--- a/h/protoize.h
+++ b/h/protoize.h
@@ -1764,6 +1764,9 @@ gcl_isnormal_float(float);
 int
 gcl_isnan(object);
 
+int
+gcl_is_not_finite(object);
+
 object
 find_init_name1(char *,unsigned);
 

diff --git a/info/gcl-tk.info-1 b/info/gcl-tk.info-1
index c51e639aa7e9e9b3b84c0c8e9bca30dd391c2b51..56f63214c243c3deb99af9735c7cba4011749c6f 100644 (file)
--- a/info/gcl-tk.info-1
+++ b/info/gcl-tk.info-1
@@ -330,7 +330,7 @@ of the other up to equal.
 1.4.3 Control Function Return Values
 ------------------------------------
 
-The control funcions (*note Control::) do not return a value or wait
+The control functions (*note Control::) do not return a value or wait
 unless requested to do so, using the ':return' keyword.  The types and
 method of specification are the same as for the Widget Functions in the
 previous section.

diff --git a/info/gcl-tk/Return-Values.html b/info/gcl-tk/Return-Values.html
index 421695b1fe2418057aa55004c38e06dbd179da66..2a120f21b4620848404ef38a3d60d4ea05f639f0 100644 (file)
--- a/info/gcl-tk/Return-Values.html
+++ b/info/gcl-tk/Return-Values.html
@@ -142,7 +142,7 @@ functions one of the other up to equal.
 </p>
 <span id="Control-Function-Return-Values"></span><h4 class="subsection">1.4.3 Control Function Return Values</h4>
 
-<p>The <i>control</i> funcions (see <a href="Control.html">Control</a>)  do not return a value
+<p>The <i>control</i> functions (see <a href="Control.html">Control</a>)  do not return a value
 or wait unless requested to do so, using the <code>:return</code> keyword.
 The types and method of specification are the same as for the
 Widget Functions in the previous section.

diff --git a/info/general.texi b/info/general.texi
index 4532dca866b3c87608d965c7fc7f26c98faa1049..e58b3a320182e942892e70b0c1253c2469ad9dd8 100755 (executable)
--- a/info/general.texi
+++ b/info/general.texi
@@ -277,7 +277,7 @@ functions one of the other up to equal.
 
 @subsection Control Function Return Values
 
-The @i{control} funcions (@pxref{Control})  do not return a value
+The @i{control} functions (@pxref{Control})  do not return a value
 or wait unless requested to do so, using the @code{:return} keyword.
 The types and method of specification are the same as for the
 Widget Functions in the previous section.

diff --git a/ltmain.sh b/ltmain.sh
index 742703beb523e6c28f69bbb8a621782c486e041c..c2383bb515dffa561ad71476f760c62b919ca4d5 100644 (file)
--- a/ltmain.sh
+++ b/ltmain.sh
@@ -2824,7 +2824,7 @@ EOF
              fi
            done
          else
-           # Error occured in the first compile.  Let's try to salvage the situation:
+           # Error occurred in the first compile.  Let's try to salvage the situation:
            # Compile a seperate program for each library.
            for i in $deplibs; do
              name="`expr $i : '-l\(.*\)'`"

diff --git a/o/num_co.c b/o/num_co.c
index e4dd73393016c904d2f9d88cd15382eff5087ac9..11240f6b322ada0c6bef7998c330d666271f7dfe 100755 (executable)
--- a/o/num_co.c
+++ b/o/num_co.c
@@ -112,7 +112,18 @@ gcl_isnan(object x) {
 
 }
 
+int
+gcl_is_not_finite(object x)  {
 
+  switch(type_of(x)) {
+  case t_shortfloat:
+    return !ISFINITE(sf(x));
+  case t_longfloat:
+    return !ISFINITE(lf(x));
+  default:
+    return 0;
+  }
+}
 
 static void
 integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp)

diff --git a/o/num_sfun.c b/o/num_sfun.c
index 958de2b5c365305b86947cff4f997787d3c61244..a4c519271b55793f35dd4aef0c50ca2fe23944b5 100755 (executable)
--- a/o/num_sfun.c
+++ b/o/num_sfun.c
@@ -116,6 +116,9 @@ number_big_iexpt(object x,object y,fixnum ly,fixnum j) {
 static inline object
 number_zero_expt(object x,bool promote_short_p) {
 
+  if (gcl_is_not_finite(x))/*FIXME, better place?*/
+    return number_exp(number_times(number_nlog(x),small_fixnum(0)));
+
   switch (type_of(x)) {
   case t_fixnum:
   case t_bignum:
@@ -180,7 +183,7 @@ number_ump_expt(object x,object y) {
 
 static inline object
 number_log_expt(object x,object y) {
-  return number_zerop(y) ? number_zero_expt(y,type_of(x)==t_longfloat) : number_exp(number_times(number_nlog(x),y));
+  return number_zerop(y) ? number_zero_expt(x,type_of(x)==t_longfloat) : number_exp(number_times(number_nlog(x),y));
 }
 
 static inline object

diff --git a/o/prelink.c b/o/prelink.c
index ab01e5286d68f8d8757818be518c7640e58e62bb..5456d6f823cf378e6fe7cd22a510c8bcfc162634 100644 (file)
--- a/o/prelink.c
+++ b/o/prelink.c
@@ -8,18 +8,23 @@ extern FILE *stderr __attribute__((weak));
 extern FILE *stdout __attribute__((weak));
 
 #ifdef USE_READLINE
-#ifdef READLINE_IS_EDITLINE
-#define MY_RL_VERSION 0x0600
+
+#if defined(RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION)
+extern Function                *rl_completion_entry_function __attribute__((weak));
+#elif defined(RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T)
+extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak));
 #else
-#define MY_RL_VERSION RL_READLINE_VERSION
+#error Unknown rl_completion_entry_function return type
 #endif
-#if MY_RL_VERSION < 0x0600
-extern Function                *rl_completion_entry_function __attribute__((weak));
+
+#if defined(RL_READLINE_NAME_TYPE_CHAR)
 extern char            *rl_readline_name __attribute__((weak));
-#else
-extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak));
+#elif defined(RL_READLINE_NAME_TYPE_CONST_CHAR)
 extern const char *rl_readline_name __attribute__((weak));
+#else
+#error Unknown rl_readline_name return type
 #endif
+
 #endif
 #endif
 

diff --git a/o/usig.c b/o/usig.c
index 3495d318f437a3cfba00f5372e0e8b533b07557f..5dde514a2e46d2bc6399d1c6b7f06abfeee2a5d1 100755 (executable)
--- a/o/usig.c
+++ b/o/usig.c
@@ -261,9 +261,9 @@ DEF_ORDINARY("FLOATING-POINT-ERROR",sSfloating_point_error,SI,"");
 static void
 sigpipe(void)
 {
-       gcl_signal(SIGPIPE, sigpipe);
-       perror("");
-       FEerror("Broken pipe", 0);
+  unblock_signals(SIGPIPE,SIGPIPE);
+  perror("");
+  FEerror("Broken pipe", 0);
 }
 
 void

diff --git a/pcl/impl/xerox/pcl-env.lisp b/pcl/impl/xerox/pcl-env.lisp
index 7bf4b476e0ab0cf40c8d8f1967e524542b669ad7..4cf7c26a05c4deac60fa57917d60208e30831740 100644 (file)
--- a/pcl/impl/xerox/pcl-env.lisp
+++ b/pcl/impl/xerox/pcl-env.lisp
@@ -43,7 +43,7 @@
   (il:defprint 'il:compiled-closure 'il:print-closure))
 
 (defun il:print-closure (x &optional stream depth)
-  ;; See the IRM, section 25.3.3.  Unfortunatly, that documentation is
+  ;; See the IRM, section 25.3.3.  Unfortunately, that documentation is
   ;; not correct.  In particular, it makes no mention of the third argument.
   (cond ((not (funcallable-instance-p x))
         ;; IL:\CCLOSURE.DEFPRINT is the orginal system function for

diff --git a/pcl/impl/xerox/xerox-low.lisp b/pcl/impl/xerox/xerox-low.lisp
index 861884a5a820627ea057cc02479d85c8b58a9138..741d595bc21352ae950c10d11fbb1b0baf648cda 100644 (file)
--- a/pcl/impl/xerox/xerox-low.lisp
+++ b/pcl/impl/xerox/xerox-low.lisp
@@ -80,7 +80,7 @@
   )
 
 (defun %print-std-instance (instance &optional stream depth)  
-  ;; See the IRM, section 25.3.3.  Unfortunatly, that documentation is
+  ;; See the IRM, section 25.3.3.  Unfortunately, that documentation is
   ;; not correct.  In particular, it makes no mention of the third argument.
   (cond ((streamp stream)
         ;; Use the standard PCL printing method, then return T to tell

diff --git a/pcl/notes/get-pcl.text b/pcl/notes/get-pcl.text
index e743744db43702338ff6b5b397ba7da9765b985c..472f4141291100312e78331adfca17e233c72b42 100644 (file)
--- a/pcl/notes/get-pcl.text
+++ b/pcl/notes/get-pcl.text
@@ -113,7 +113,7 @@ distribution.
 
 For people who can't FTP from Internet (Arpanet) hosts, but who have
 mail access to the BITNET, there exists a way to get the PCL files using
-the BITFTP service provided by Princeton Univerity.  If you know exactly
+the BITFTP service provided by Princeton University.  If you know exactly
 where to find the files that interest you, this is quite easy.  In
 particular, you have to know:
 

diff --git a/readme b/readme
index d855cba2a99c354d237db731fcaf0bf69370eca4..8722195338ab8ef1ffa2818df5d1b60421da7a77 100644 (file)
--- a/readme
+++ b/readme
@@ -3,7 +3,7 @@ Description of GCL (GNU Common Lisp) system.
 OVERVIEW:
 
 The GCL system contains C and Lisp source files to build a Common Lisp
-sytem.  The original KCL system was written by Taiichi Yuasa and
+system.  The original KCL system was written by Taiichi Yuasa and
 Masami Hagiya in 1984.  The AKCL system work was begun in 1987 by
 William Schelter and continued through 1994.  A number of people have
 contributed ports and pieces.  The file doc/contributors lists some of

diff --git a/xbin/spp.c b/xbin/spp.c
index e23afcee9bc5a8b2ee809465e1c23d19432be86a..2e3e76c55afca7fd92dab61ddaafbba53bfc971f 100755 (executable)
--- a/xbin/spp.c
+++ b/xbin/spp.c
@@ -2,7 +2,7 @@
 
 /*
  * spp.c
- * Extracts the symbol table from an HP-UX excutable file
+ * Extracts the symbol table from an HP-UX executable file
  * to be used in a later pass of the linker. (ld does not
  * support the -A option.)
  */

diff --git a/xgcl-2/Events.c b/xgcl-2/Events.c
index 82fd82383fd0e226e25c56b00408a022be643364..ad4a48f87efd5ba9b3faebdfe80aa797cfbf34b5 100644 (file)
--- a/xgcl-2/Events.c
+++ b/xgcl-2/Events.c
@@ -24,7 +24,7 @@
 #include <stdlib.h>
 #include <X11/Xlib.h>
 
-/********* XKeyEvent funcions *****/
+/********* XKeyEvent functions *****/
 
 long  make_XKeyEvent (){
           return ((long) calloc(1, sizeof(XKeyEvent)));
@@ -226,7 +226,7 @@ int j;
 }
 
 
-/********* XButtonEvent funcions *****/
+/********* XButtonEvent functions *****/
 
 long  make_XButtonEvent (){
           return ((long) calloc(1, sizeof(XButtonEvent)));
@@ -428,7 +428,7 @@ int j;
 }
 
 
-/********* XMotionEvent funcions *****/
+/********* XMotionEvent functions *****/
 
 long  make_XMotionEvent (){
           return ((long) calloc(1, sizeof(XMotionEvent)));
@@ -630,7 +630,7 @@ int j;
 }
 
 
-/********* XCrossingEvent funcions *****/
+/********* XCrossingEvent functions *****/
 
 long  make_XCrossingEvent (){
           return ((long) calloc(1, sizeof(XCrossingEvent)));
@@ -858,7 +858,7 @@ int j;
 }
 
 
-/********* XFocusChangeEvent funcions *****/
+/********* XFocusChangeEvent functions *****/
 
 long  make_XFocusChangeEvent (){
           return ((long) calloc(1, sizeof(XFocusChangeEvent)));
@@ -956,7 +956,7 @@ int j;
 }
 
 
-/********* XKeymapEvent funcions *****/
+/********* XKeymapEvent functions *****/
 
 long  make_XKeymapEvent (){
           return ((long) calloc(1, sizeof(XKeymapEvent)));
@@ -1033,7 +1033,7 @@ int j;
 }
 
 
-/********* XExposeEvent funcions *****/
+/********* XExposeEvent functions *****/
 
 long  make_XExposeEvent (){
           return ((long) calloc(1, sizeof(XExposeEvent)));
@@ -1170,7 +1170,7 @@ int j;
 }
 
 
-/********* XGraphicsExposeEvent funcions *****/
+/********* XGraphicsExposeEvent functions *****/
 
 long  make_XGraphicsExposeEvent (){
           return ((long) calloc(1, sizeof(XGraphicsExposeEvent)));
@@ -1333,7 +1333,7 @@ int j;
 }
 
 
-/********* XNoExposeEvent funcions *****/
+/********* XNoExposeEvent functions *****/
 
 long  make_XNoExposeEvent (){
           return ((long) calloc(1, sizeof(XNoExposeEvent)));
@@ -1431,7 +1431,7 @@ int j;
 }
 
 
-/********* XVisibilityEvent funcions *****/
+/********* XVisibilityEvent functions *****/
 
 long  make_XVisibilityEvent (){
           return ((long) calloc(1, sizeof(XVisibilityEvent)));
@@ -1516,7 +1516,7 @@ int j;
 }
 
 
-/********* XCreateWindowEvent funcions *****/
+/********* XCreateWindowEvent functions *****/
 
 long  make_XCreateWindowEvent (){
           return ((long) calloc(1, sizeof(XCreateWindowEvent)));
@@ -1679,7 +1679,7 @@ int j;
 }
 
 
-/********* XDestroyWindowEvent funcions *****/
+/********* XDestroyWindowEvent functions *****/
 
 long  make_XDestroyWindowEvent (){
           return ((long) calloc(1, sizeof(XDestroyWindowEvent)));
@@ -1764,7 +1764,7 @@ int j;
 }
 
 
-/********* XUnmapEvent funcions *****/
+/********* XUnmapEvent functions *****/
 
 long  make_XUnmapEvent (){
           return ((long) calloc(1, sizeof(XUnmapEvent)));
@@ -1862,7 +1862,7 @@ int j;
 }
 
 
-/********* XMapEvent funcions *****/
+/********* XMapEvent functions *****/
 
 long  make_XMapEvent (){
           return ((long) calloc(1, sizeof(XMapEvent)));
@@ -1960,7 +1960,7 @@ int j;
 }
 
 
-/********* XMapRequestEvent funcions *****/
+/********* XMapRequestEvent functions *****/
 
 long  make_XMapRequestEvent (){
           return ((long) calloc(1, sizeof(XMapRequestEvent)));
@@ -2045,7 +2045,7 @@ int j;
 }
 
 
-/********* XReparentEvent funcions *****/
+/********* XReparentEvent functions *****/
 
 long  make_XReparentEvent (){
           return ((long) calloc(1, sizeof(XReparentEvent)));
@@ -2182,7 +2182,7 @@ int j;
 }
 
 
-/********* XConfigureEvent funcions *****/
+/********* XConfigureEvent functions *****/
 
 long  make_XConfigureEvent (){
           return ((long) calloc(1, sizeof(XConfigureEvent)));
@@ -2358,7 +2358,7 @@ int j;
 }
 
 
-/********* XGravityEvent funcions *****/
+/********* XGravityEvent functions *****/
 
 long  make_XGravityEvent (){
           return ((long) calloc(1, sizeof(XGravityEvent)));
@@ -2469,7 +2469,7 @@ int j;
 }
 
 
-/********* XResizeRequestEvent funcions *****/
+/********* XResizeRequestEvent functions *****/
 
 long  make_XResizeRequestEvent (){
           return ((long) calloc(1, sizeof(XResizeRequestEvent)));
@@ -2567,7 +2567,7 @@ int j;
 }
 
 
-/********* XConfigureRequestEvent funcions *****/
+/********* XConfigureRequestEvent functions *****/
 
 long  make_XConfigureRequestEvent (){
           return ((long) calloc(1, sizeof(XConfigureRequestEvent)));
@@ -2756,7 +2756,7 @@ int j;
 }
 
 
-/********* XCirculateEvent funcions *****/
+/********* XCirculateEvent functions *****/
 
 long  make_XCirculateEvent (){
           return ((long) calloc(1, sizeof(XCirculateEvent)));
@@ -2854,7 +2854,7 @@ int j;
 }
 
 
-/********* XCirculateRequestEvent funcions *****/
+/********* XCirculateRequestEvent functions *****/
 
 long  make_XCirculateRequestEvent (){
           return ((long) calloc(1, sizeof(XCirculateRequestEvent)));
@@ -2952,7 +2952,7 @@ int j;
 }
 
 
-/********* XPropertyEvent funcions *****/
+/********* XPropertyEvent functions *****/
 
 long  make_XPropertyEvent (){
           return ((long) calloc(1, sizeof(XPropertyEvent)));
@@ -3063,7 +3063,7 @@ int j;
 }
 
 
-/********* XSelectionClearEvent funcions *****/
+/********* XSelectionClearEvent functions *****/
 
 long  make_XSelectionClearEvent (){
           return ((long) calloc(1, sizeof(XSelectionClearEvent)));
@@ -3161,7 +3161,7 @@ int j;
 }
 
 
-/********* XSelectionRequestEvent funcions *****/
+/********* XSelectionRequestEvent functions *****/
 
 long  make_XSelectionRequestEvent (){
           return ((long) calloc(1, sizeof(XSelectionRequestEvent)));
@@ -3298,7 +3298,7 @@ int j;
 }
 
 
-/********* XSelectionEvent funcions *****/
+/********* XSelectionEvent functions *****/
 
 long  make_XSelectionEvent (){
           return ((long) calloc(1, sizeof(XSelectionEvent)));
@@ -3422,7 +3422,7 @@ int j;
 }
 
 
-/********* XColormapEvent funcions *****/
+/********* XColormapEvent functions *****/
 
 long  make_XColormapEvent (){
           return ((long) calloc(1, sizeof(XColormapEvent)));
@@ -3533,7 +3533,7 @@ int j;
 }
 
 
-/********* XClientMessageEvent funcions *****/
+/********* XClientMessageEvent functions *****/
 
 long  make_XClientMessageEvent (){
           return ((long) calloc(1, sizeof(XClientMessageEvent)));
@@ -3632,7 +3632,7 @@ int j;
 }
 
 
-/********* XMappingEvent funcions *****/
+/********* XMappingEvent functions *****/
 
 long  make_XMappingEvent (){
           return ((long) calloc(1, sizeof(XMappingEvent)));
@@ -3743,7 +3743,7 @@ int j;
 }
 
 
-/********* XErrorEvent funcions *****/
+/********* XErrorEvent functions *****/
 
 long  make_XErrorEvent (){
           return ((long) calloc(1, sizeof(XErrorEvent)));
@@ -3841,7 +3841,7 @@ int j;
 }
 
 
-/********* XAnyEvent funcions *****/
+/********* XAnyEvent functions *****/
 
 long  make_XAnyEvent (){
           return ((long) calloc(1, sizeof(XAnyEvent)));
@@ -3913,7 +3913,7 @@ int j;
 }
 
 
-/********* XEvent funcions *****/
+/********* XEvent functions *****/
 
 long  make_XEvent (){
           return ((long) calloc(1, sizeof(XEvent)));

diff --git a/xgcl-2/XStruct-2.c b/xgcl-2/XStruct-2.c
index 7d1e30ef0c4a7974465dd62d1f34a2d67421e029..91ae800e42fa8ea854a005e538d9642a1ce06cf2 100644 (file)
--- a/xgcl-2/XStruct-2.c
+++ b/xgcl-2/XStruct-2.c
@@ -22,7 +22,7 @@
 ; See the file dec.copyright for details. */
 
 
-/********* _XQEvent funcions *****/
+/********* _XQEvent functions *****/
 #define NEED_EVENTS
 #include <X11/Xlib.h>
 #include <X11/Xutil.h>
@@ -60,7 +60,7 @@ long j;
 }
 
 
-/********* XCharStruct funcions *****/
+/********* XCharStruct functions *****/
 
 long  make_XCharStruct (){
           return ((long) calloc(1, sizeof(XCharStruct)));
@@ -145,7 +145,7 @@ int j;
 }
 
 
-/********* XFontProp funcions *****/
+/********* XFontProp functions *****/
 
 long  make_XFontProp (){
           return ((long) calloc(1, sizeof(XFontProp)));
@@ -178,7 +178,7 @@ int j;
 }
 
 
-/********* XFontStruct funcions *****/
+/********* XFontStruct functions *****/
 
 long  make_XFontStruct (){
           return ((long) calloc(1, sizeof(XFontStruct)));
@@ -390,7 +390,7 @@ long j;
 }
 
 
-/********* XTextItem funcions *****/
+/********* XTextItem functions *****/
 
 long  make_XTextItem (){
           return ((long) calloc(1, sizeof(XTextItem)));
@@ -449,7 +449,7 @@ long j;
 }
 
 
-/********* XChar2b funcions *****/
+/********* XChar2b functions *****/
 
 long  make_XChar2b (){
           return ((long) calloc(1, sizeof(XChar2b)));
@@ -482,7 +482,7 @@ char j;
 }
 
 
-/********* XTextItem16 funcions *****/
+/********* XTextItem16 functions *****/
 
 long  make_XTextItem16 (){
           return ((long) calloc(1, sizeof(XTextItem16)));
@@ -541,7 +541,7 @@ long j;
 }
 
 
-/********* XEDataObject funcions *****/
+/********* XEDataObject functions *****/
 
 long  make_XEDataObject (){
           return ((long) calloc(1, sizeof(XEDataObject)));
@@ -613,7 +613,7 @@ GC j;
 }
 
 
-/********* XSizeHints funcions *****/
+/********* XSizeHints functions *****/
 
 long  make_XSizeHints (){
           return ((long) calloc(1, sizeof(XSizeHints)));
@@ -856,7 +856,7 @@ int j;
 }
 
 
-/********* XWMHints funcions *****/
+/********* XWMHints functions *****/
 
 long  make_XWMHints (){
           return ((long) calloc(1, sizeof(XWMHints)));
@@ -980,7 +980,7 @@ int j;
 }
 
 
-/********* XTextProperty funcions *****/
+/********* XTextProperty functions *****/
 
 long  make_XTextProperty (){
           return ((long) calloc(1, sizeof(XTextProperty)));
@@ -1039,7 +1039,7 @@ long j;
 }
 
 
-/********* XIconSize funcions *****/
+/********* XIconSize functions *****/
 
 long  make_XIconSize (){
           return ((long) calloc(1, sizeof(XIconSize)));
@@ -1124,7 +1124,7 @@ int j;
 }
 
 
-/********* XClassHint funcions *****/
+/********* XClassHint functions *****/
 
 long  make_XClassHint (){
           return ((long) calloc(1, sizeof(XClassHint)));
@@ -1157,7 +1157,7 @@ long j;
 }
 
 
-/********* XComposeStatus funcions *****/
+/********* XComposeStatus functions *****/
 
 long  make_XComposeStatus (){
           return ((long) calloc(1, sizeof(XComposeStatus)));
@@ -1190,7 +1190,7 @@ long j;
 }
 
 
-/********* XVisualInfo funcions *****/
+/********* XVisualInfo functions *****/
 
 long  make_XVisualInfo (){
           return ((long) calloc(1, sizeof(XVisualInfo)));
@@ -1327,7 +1327,7 @@ long j;
 }
 
 
-/********* XStandardColormap funcions *****/
+/********* XStandardColormap functions *****/
 
 long  make_XStandardColormap (){
           return ((long) calloc(1, sizeof(XStandardColormap)));

diff --git a/xgcl-2/XStruct-4.c b/xgcl-2/XStruct-4.c
index f4d44d4b9c111415f47545fa7e2dacb97a014976..6d6e17eda810a3eb0ed5dde6c0aa4e58abe9ac13 100644 (file)
--- a/xgcl-2/XStruct-4.c
+++ b/xgcl-2/XStruct-4.c
@@ -27,7 +27,7 @@
 #include <X11/Xutil.h>
 
 
-/********* XExtCodes funcions *****/
+/********* XExtCodes functions *****/
 
 long  make_XExtCodes (){
           return ((long) calloc(1, sizeof(XExtCodes)));
@@ -86,7 +86,7 @@ int j;
 }
 
 
-/********* XPixmapFormatValues funcions *****/
+/********* XPixmapFormatValues functions *****/
 
 long  make_XPixmapFormatValues (){
           return ((long) calloc(1, sizeof(XPixmapFormatValues)));
@@ -132,7 +132,7 @@ int j;
 }
 
 
-/********* XGCValues funcions *****/
+/********* XGCValues functions *****/
 
 long  make_XGCValues (){
           return ((long) calloc(1, sizeof(XGCValues)));
@@ -438,7 +438,7 @@ int j;
 }
 
 
-/********* GC funcions *****
+/********* GC functions *****
 
 int  make_GC (){
           GC i;
@@ -525,7 +525,7 @@ int j;
 
 */
 
-/********* Visual funcions *****/
+/********* Visual functions *****/
 
 long  make_Visual (){
           return ((long) calloc(1, sizeof(Visual)));
@@ -636,7 +636,7 @@ long j;
 }
 
 
-/********* Depth funcions *****/
+/********* Depth functions *****/
 
 long  make_Depth (){
           return ((long) calloc(1, sizeof(Depth)));
@@ -682,7 +682,7 @@ int j;
 }
 
 
-/********* Screen funcions *****/
+/********* Screen functions *****/
 
 long  make_Screen (){
           return ((long) calloc(1, sizeof(Screen)));
@@ -949,7 +949,7 @@ long j;
 }
 
 
-/********* ScreenFormat funcions *****/
+/********* ScreenFormat functions *****/
 
 long  make_ScreenFormat (){
           return ((long) calloc(1, sizeof(ScreenFormat)));
@@ -1008,7 +1008,7 @@ long j;
 }
 
 
-/********* XSetWindowAttributes funcions *****/
+/********* XSetWindowAttributes functions *****/
 
 long  make_XSetWindowAttributes (){
           return ((long) calloc(1, sizeof(XSetWindowAttributes)));
@@ -1210,7 +1210,7 @@ int j;
 }
 
 
-/********* XWindowAttributes funcions *****/
+/********* XWindowAttributes functions *****/
 
 long  make_XWindowAttributes (){
           return ((long) calloc(1, sizeof(XWindowAttributes)));
@@ -1516,7 +1516,7 @@ int j;
 }
 
 
-/********* XHostAddress funcions *****/
+/********* XHostAddress functions *****/
 
 long  make_XHostAddress (){
           return ((long) calloc(1, sizeof(XHostAddress)));
@@ -1562,7 +1562,7 @@ int j;
 }
 
 
-/********* XImage funcions *****/
+/********* XImage functions *****/
 
 long  make_XImage (){
           return ((long) calloc(1, sizeof(XImage)));
@@ -1777,7 +1777,7 @@ int j;
 }
 
 
-/********* XWindowChanges funcions *****/
+/********* XWindowChanges functions *****/
 
 long  make_XWindowChanges (){
           return ((long) calloc(1, sizeof(XWindowChanges)));
@@ -1875,7 +1875,7 @@ int j;
 }
 
 
-/********* XColor funcions *****/
+/********* XColor functions *****/
 
 long  make_XColor (){
           return ((long) calloc(1, sizeof(XColor)));
@@ -1960,7 +1960,7 @@ int j;
 }
 
 
-/********* XSegment funcions *****/
+/********* XSegment functions *****/
 
 long  make_XSegment (){
           return ((long) calloc(1, sizeof(XSegment)));
@@ -2019,7 +2019,7 @@ int j;
 }
 
 
-/********* XPoint funcions *****/
+/********* XPoint functions *****/
 
 long  make_XPoint (){
           return ((long) calloc(1, sizeof(XPoint)));
@@ -2052,7 +2052,7 @@ int j;
 }
 
 
-/********* XRectangle funcions *****/
+/********* XRectangle functions *****/
 
 long  make_XRectangle (){
           return ((long) calloc(1, sizeof(XRectangle)));
@@ -2111,7 +2111,7 @@ int j;
 }
 
 
-/********* XArc funcions *****/
+/********* XArc functions *****/
 
 long  make_XArc (){
           return ((long) calloc(1, sizeof(XArc)));
@@ -2196,7 +2196,7 @@ int j;
 }
 
 
-/********* XKeyboardControl funcions *****/
+/********* XKeyboardControl functions *****/
 
 long  make_XKeyboardControl (){
           return ((long) calloc(1, sizeof(XKeyboardControl)));
@@ -2307,7 +2307,7 @@ int j;
 }
 
 
-/********* XKeyboardState funcions *****/
+/********* XKeyboardState functions *****/
 
 long  make_XKeyboardState (){
           return ((long) calloc(1, sizeof(XKeyboardState)));
@@ -2405,7 +2405,7 @@ int j;
 }
 
 
-/********* XTimeCoord funcions *****/
+/********* XTimeCoord functions *****/
 
 long  make_XTimeCoord (){
           return ((long) calloc(1, sizeof(XTimeCoord)));
@@ -2451,7 +2451,7 @@ int j;
 }
 
 
-/********* XModifierKeymap funcions *****/
+/********* XModifierKeymap functions *****/
 
 long  make_XModifierKeymap (){
           return ((long) calloc(1, sizeof(XModifierKeymap)));

diff --git a/xgcl-2/Xakcl.paper b/xgcl-2/Xakcl.paper
index 959930805f4f940460ae55929006223c9a97080b..945c53314e3c79e7ac4f89e83976c8ef5e85162b 100644 (file)
--- a/xgcl-2/Xakcl.paper
+++ b/xgcl-2/Xakcl.paper
@@ -77,7 +77,7 @@ capabilities and the ease of lisp programming.
        It is assumed that the reader is familiar with Lisp, and has
 some passing knowledge of C.  Also familiarity with the Xwindows
 library routines and programming conventions would be helpful but is
-not requiered.  All X functions in Xakcl begins with the letter 'X' ,
+not required.  All X functions in Xakcl begin with the letter 'X' ,
 unless otherwise mentioned.  The Syntax and names of Xakcl functions
 are kept as closely to the X library functions as possible, so that a
 user of the Xwindows' C libary will have no trouble in learning how to
@@ -94,8 +94,8 @@ A. Getting Started.
 
 
 
-       In order to start using graphics in Xakcl, a few initilization
-must take place.  These initilization correspond to Xwindows call to
+       In order to start using graphics in Xakcl, a few initializations
+must take place.  These initializations correspond to Xwindows call to
 get the root window, the display, the current screen, the Graphics
 Context and other properties needed by X.  The use of these features
 will be described further in later sections.
@@ -134,7 +134,7 @@ II. The Default Screen and the Root Window
 
 The next steps in getting started is to get the desired screen
 (usually the default screen), and the root window.  These two operations
-are similiar to getting a display and is straight forward.  Use the
+are similar to getting a display and is straight forward.  Use the
 
 commands:
 
@@ -243,7 +243,7 @@ B. Creating and Using Windows
 
 I. Creating a Window
 
-       To create windows in lisp two functions are avaialable,
+       To create windows in lisp two functions are available,
 XCreateWindow and XCreateSimpleWindow.  Even though XCreateWindow is a
 more expansive function, for most applications XCreateSimpleWindow
 will do.  Below is an example of the use of XCreateSimpleWindow.
@@ -277,7 +277,7 @@ the screen.  The user can tell the manager how to control different
 aspects of a window or drawable by passing to the window manager size
 hints.  This is done by first creating a structure know as the
 Xsizehints.  Below are examples of creating an instance of this
-structure, and it's initilization.
+structure, and it's initialization.
 
 
 
@@ -461,7 +461,7 @@ pixel-color.  this informaion can be extracted with (Xcolor-pixel
 pixel-xcolor).  XAllocNamedColo also expects a colormap (the default
 colormap will do), a display, and a String specifying the color (for a
 list of colors see the file rgb.txt in /usr/lib/X11). Thus the
-following funciton will cause all drawings to be done the specify
+following function will cause all drawings to be done the specified
 color.
 
 (Xsetforeground display GC (Xcolor-pixel  pixel-xcolor))
@@ -505,7 +505,7 @@ valid font is found, will set it in the graphics context.
        (format t "~%can't open font ~a" a-string))
 
        First the font is loaded with XloadQueryFont.  This function
-expects the display and a string whcih specifies the font (for
+expects the display and a string which specifies the font (for
 complete font information see the directories /usr/lib/X11/fonts).
 After loading the font must be set in the specified graphics context.
 XSetFont expects the font id.  This id resides in the XFontStruct
@@ -517,7 +517,7 @@ iv. XSetFunction
        Xwindows draws by applying bit operations on the pixel vlaues
 on the screen along with a mask that it creates called the plan_mask.
 Most often only the pixel already on the screen is manipulated.  This
-defualt logical operation is GXcopy (which is the default).  However
+default logical operation is GXcopy (which is the default).  However
 to perform moer complicated operations such as drawing 'ghost' images
 (drawing and erasing images with out affecting drawings in the
 background) other functions could be used.  These functions are
@@ -584,13 +584,13 @@ are the positions.  In this case 'window' is the destination drawable.
 Thus with the specification in the GC, a line on a specified with will
 be drawn.  Its cap style will also be drawn accordingly.  As in other
 drawing request.  the display must be specified and a call to Xflush
-must be made in order to request that the X server proccess the
+must be made in order to request that the X server process the
 request.
 
 
 II. Drawing Rectangles
 
-       Drawing Recatangles is similiar to drawing lines.  The only
+       Drawing Rectangles is similar to drawing lines.  The only
 difference is that the size of the recatangle must be specified.
 
 
@@ -605,7 +605,7 @@ The function expects the x and y position and the width and height.
 II. Drawing Arcs.
 
        Arcs can form enclosed areas such as elipses or cirlces or
-they coould be a curved line.  The funcion XDrawArc will draw arcs.
+they could be a curved line.  The function XDrawArc will draw arcs.
 
 
 (XdrawArc *default-display* a-window  *default-GC* 100 100 10 10 0 (* 360 64))
@@ -631,7 +631,7 @@ III.  Drawing Text
        With the font loaded in the Graphics Context as shown in
 Section C, several functions can be called in order to draw text.
 Only XDrawString will be dicussed here, but the other functions are
-similiar.
+similar.
 
 (XDrawString  *default-display*   a-window  *default-GC*  10 15 (get-c-string "hello") 4)
 (Xflush *default-display*)
@@ -676,7 +676,7 @@ position text precisely on the screen.
 E. Handling Events
 
        So far only request to the X server to do output on the screen
-have been discussed.  X also has a means of getting infomation about
+have been discussed.  X also has a means of getting information about
 what is inputed by a user as well.  The inputs can range from moving
 or clicking the mouse to keys being pressed on the keyboard.  The
 input also encompases events like a window being uncovered or exposed
@@ -700,7 +700,7 @@ the file X.lsp or X.h).
 
        After Specifiying the input, all events that occur in that
 will go on the event queue.  The event queue is a queue of what events
-have occured, the first one being on top.  The client can both get
+have occurred, the first one being on top.  The client can both get
 information form the queue and manipulate the queue.  
 
 II.  Getting Information form the Event Queue
@@ -718,7 +718,7 @@ description.
        XNextEvent is the most commonly used function, even though the
 
        other functions can be useful as well.  Only the call to
-XNextEvent will be discribed because the other functions are similiar
+XNextEvent will be described because the other functions are similar
 to XNextEvent. The following functions will get an event from the
 queue and retrieve the type of the event along with the window that it
 occurs in.
@@ -733,7 +733,7 @@ can occur.  In order to handle an event the appropriate structure must
 be assessed.  For example, if the PointerMotion event needs to be
 handled than the *default-event* must be assessed as a XMotionEvent
 structure.  Below is an example of getting the x and y position of the
-pointer when a PointerMotion Event has occured, and the pointer is in
+pointer when a PointerMotion Event has occurred, and the pointer is in
 the correct window.
 
        (if (and (eql type MotionNotify)
@@ -751,7 +751,7 @@ III.  Manipulating the Event Queue
 
        For most applications the client will never have to change the
 event queue, besides removing events of the top or the queue, however
-sometimes the queue needs to be cleared by the client.  The funciton
+sometimes the queue needs to be cleared by the client.  The function
 XSync can be used to do this.  For example:
 
         (Xsync *default-display* 1) 
@@ -765,11 +765,11 @@ XSync can be used to do this.  For example:
        With the commands demonstarted in this tutorial, most
 applications can be managed.  Windows can be created, and graphics
 operations can be performed.  For more complex applications a widget
-set can be created similiar to the X Intrinsics library and the Athena
+set can be created similar to the X Intrinsics library and the Athena
 Widget Set.  For a lisp like implementation of widgets and an advance
 aplications see the GWM application, in the GWM Manual by Colas
 Nahaboo.  GWM is a generic window manager, that is similar to Xakcl.
-It supports objects that are similiar to Widgets in most C Xwindows
+It supports objects that are similar to Widgets in most C Xwindows
 libraries.
 
 

diff --git a/xgcl-2/gcl_XStruct_l_3.lsp b/xgcl-2/gcl_XStruct_l_3.lsp
index e8eebf7bc7d1a395f89d51828933a8d4e5d1e53c..17191889aa9415a4204abb43f2c24feea6370213 100644 (file)
--- a/xgcl-2/gcl_XStruct_l_3.lsp
+++ b/xgcl-2/gcl_XStruct_l_3.lsp
@@ -25,7 +25,7 @@
 
 
 
-;;;;;; XExtCodes funcions ;;;;;;
+;;;;;; XExtCodes functions ;;;;;;
 
 (defentry make-XExtCodes () ( fixnum  "make_XExtCodes" ))
 (defentry XExtCodes-first_error (fixnum) ( fixnum "XExtCodes_first_error" ))
@@ -38,7 +38,7 @@
 (defentry set-XExtCodes-extension (fixnum fixnum) ( void "set_XExtCodes_extension" ))
 
 
-;;;;;; XPixmapFormatValues funcions ;;;;;;
+;;;;;; XPixmapFormatValues functions ;;;;;;
 
 (defentry make-XPixmapFormatValues () ( fixnum  "make_XPixmapFormatValues" ))
 (defentry XPixmapFormatValues-scanline_pad (fixnum) ( fixnum "XPixmapFormatValues_scanline_pad" ))
@@ -49,7 +49,7 @@
 (defentry set-XPixmapFormatValues-depth (fixnum fixnum) ( void "set_XPixmapFormatValues_depth" ))
 
 
-;;;;;; XGCValues funcions ;;;;;;
+;;;;;; XGCValues functions ;;;;;;
 
 (defentry make-XGCValues () ( fixnum  "make_XGCValues" ))
 (defentry XGCValues-dashes (fixnum) ( char "XGCValues_dashes" ))
@@ -100,7 +100,7 @@
 (defentry set-XGCValues-function (fixnum fixnum) ( void "set_XGCValues_function" ))
 
 
-;;;;;; *GC funcions ;;;;;;
+;;;;;; *GC functions ;;;;;;
 
 ;;(defentry make-*GC () ( fixnum  "make_*GC" ))
 ;;(defentry *GC-values (fixnum) ( fixnum "*GC_values" ))
@@ -117,7 +117,7 @@
 ;;(defentry set-*GC-ext_data (fixnum fixnum) ( void "set_*GC_ext_data" ))
 
 
-;;;;;; Visual funcions ;;;;;;
+;;;;;; Visual functions ;;;;;;
 
 (defentry make-Visual () ( fixnum  "make_Visual" ))
 (defentry Visual-map_entries (fixnum) ( fixnum "Visual_map_entries" ))
@@ -138,7 +138,7 @@
 (defentry set-Visual-ext_data (fixnum fixnum) ( void "set_Visual_ext_data" ))
 
 
-;;;;;; Depth funcions ;;;;;;
+;;;;;; Depth functions ;;;;;;
 
 (defentry make-Depth () ( fixnum  "make_Depth" ))
 (defentry Depth-visuals (fixnum) ( fixnum "Depth_visuals" ))
@@ -149,7 +149,7 @@
 (defentry set-Depth-depth (fixnum fixnum) ( void "set_Depth_depth" ))
 
 
-;;;;;; Screen funcions ;;;;;;
+;;;;;; Screen functions ;;;;;;
 
 (defentry make-Screen () ( fixnum  "make_Screen" ))
 (defentry Screen-root_input_mask (fixnum) ( fixnum "Screen_root_input_mask" ))
@@ -194,7 +194,7 @@
 (defentry set-Screen-ext_data (fixnum fixnum) ( void "set_Screen_ext_data" ))
 
 
-;;;;;; ScreenFormat funcions ;;;;;;
+;;;;;; ScreenFormat functions ;;;;;;
 
 (defentry make-ScreenFormat () ( fixnum  "make_ScreenFormat" ))
 (defentry ScreenFormat-scanline_pad (fixnum) ( fixnum "ScreenFormat_scanline_pad" ))
@@ -207,7 +207,7 @@
 (defentry set-ScreenFormat-ext_data (fixnum fixnum) ( void "set_ScreenFormat_ext_data" ))
 
 
-;;;;;; XSetWindowAttributes funcions ;;;;;;
+;;;;;; XSetWindowAttributes functions ;;;;;;
 
 (defentry make-XSetWindowAttributes () ( fixnum  "make_XSetWindowAttributes" ))
 (defentry XSetWindowAttributes-cursor (fixnum) ( fixnum "XSetWindowAttributes_cursor" ))
@@ -242,7 +242,7 @@
 (defentry set-XSetWindowAttributes-background_pixmap (fixnum fixnum) ( void "set_XSetWindowAttributes_background_pixmap" ))
 
 
-;;;;;; XWindowAttributes funcions ;;;;;;
+;;;;;; XWindowAttributes functions ;;;;;;
 
 (defentry make-XWindowAttributes () ( fixnum  "make_XWindowAttributes" ))
 (defentry XWindowAttributes-screen (fixnum) ( fixnum "XWindowAttributes_screen" ))
@@ -293,7 +293,7 @@
 (defentry set-XWindowAttributes-x (fixnum fixnum) ( void "set_XWindowAttributes_x" ))
 
 
-;;;;;; XHostAddress funcions ;;;;;;
+;;;;;; XHostAddress functions ;;;;;;
 
 (defentry make-XHostAddress () ( fixnum  "make_XHostAddress" ))
 (defentry XHostAddress-address (fixnum) ( fixnum "XHostAddress_address" ))
@@ -304,7 +304,7 @@
 (defentry set-XHostAddress-family (fixnum fixnum) ( void "set_XHostAddress_family" ))
 
 
-;;;;;; XImage funcions ;;;;;;
+;;;;;; XImage functions ;;;;;;
 
 (defentry make-XImage () ( fixnum  "make_XImage" ))
 ;;(defentry XImage-f (fixnum) ( fixnum "XImage_f" ))
@@ -343,7 +343,7 @@
 (defentry set-XImage-width (fixnum fixnum) ( void "set_XImage_width" ))
 
 
-;;;;;; XWindowChanges funcions ;;;;;;
+;;;;;; XWindowChanges functions ;;;;;;
 
 (defentry make-XWindowChanges () ( fixnum  "make_XWindowChanges" ))
 (defentry XWindowChanges-stack_mode (fixnum) ( fixnum "XWindowChanges_stack_mode" ))
@@ -362,7 +362,7 @@
 (defentry set-XWindowChanges-x (fixnum fixnum) ( void "set_XWindowChanges_x" ))
 
 
-;;;;;; XColor funcions ;;;;;;
+;;;;;; XColor functions ;;;;;;
 
 (defentry make-XColor () ( fixnum  "make_XColor" ))
 (defentry XColor-pad (fixnum) ( char "XColor_pad" ))
@@ -379,7 +379,7 @@
 (defentry set-XColor-pixel (fixnum fixnum) ( void "set_XColor_pixel" ))
 
 
-;;;;;; XSegment funcions ;;;;;;
+;;;;;; XSegment functions ;;;;;;
 
 (defentry make-XSegment () ( fixnum  "make_XSegment" ))
 (defentry XSegment-y2 (fixnum) ( fixnum "XSegment_y2" ))
@@ -392,7 +392,7 @@
 (defentry set-XSegment-x1 (fixnum fixnum) ( void "set_XSegment_x1" ))
 
 
-;;;;;; XPoint funcions ;;;;;;
+;;;;;; XPoint functions ;;;;;;
 
 (defentry make-XPoint () ( fixnum  "make_XPoint" ))
 (defentry XPoint-y (fixnum) ( fixnum "XPoint_y" ))
@@ -401,7 +401,7 @@
 (defentry set-XPoint-x (fixnum fixnum) ( void "set_XPoint_x" ))
 
 
-;;;;;; XRectangle funcions ;;;;;;
+;;;;;; XRectangle functions ;;;;;;
 
 (defentry make-XRectangle () ( fixnum  "make_XRectangle" ))
 (defentry XRectangle-height (fixnum) ( fixnum "XRectangle_height" ))
@@ -414,7 +414,7 @@
 (defentry set-XRectangle-x (fixnum fixnum) ( void "set_XRectangle_x" ))
 
 
-;;;;;; XArc funcions ;;;;;;
+;;;;;; XArc functions ;;;;;;
 
 (defentry make-XArc () ( fixnum  "make_XArc" ))
 (defentry XArc-angle2 (fixnum) ( fixnum "XArc_angle2" ))
@@ -431,7 +431,7 @@
 (defentry set-XArc-x (fixnum fixnum) ( void "set_XArc_x" ))
 
 
-;;;;;; XKeyboardControl funcions ;;;;;;
+;;;;;; XKeyboardControl functions ;;;;;;
 
 (defentry make-XKeyboardControl () ( fixnum  "make_XKeyboardControl" ))
 (defentry XKeyboardControl-auto_repeat_mode (fixnum) ( fixnum "XKeyboardControl_auto_repeat_mode" ))
@@ -452,7 +452,7 @@
 (defentry set-XKeyboardControl-key_click_percent (fixnum fixnum) ( void "set_XKeyboardControl_key_click_percent" ))
 
 
-;;;;;; XKeyboardState funcions ;;;;;;
+;;;;;; XKeyboardState functions ;;;;;;
 
 (defentry make-XKeyboardState () ( fixnum  "make_XKeyboardState" ))
 (defentry XKeyboardState-auto_repeats (fixnum) ( fixnum "XKeyboardState_auto_repeats" ))
@@ -471,7 +471,7 @@
 (defentry set-XKeyboardState-key_click_percent (fixnum fixnum) ( void "set_XKeyboardState_key_click_percent" ))
 
 
-;;;;;; XTimeCoord funcions ;;;;;;
+;;;;;; XTimeCoord functions ;;;;;;
 
 (defentry make-XTimeCoord () ( fixnum  "make_XTimeCoord" ))
 (defentry XTimeCoord-y (fixnum) ( fixnum "XTimeCoord_y" ))
@@ -482,7 +482,7 @@
 (defentry set-XTimeCoord-time (fixnum fixnum) ( void "set_XTimeCoord_time" ))
 
 
-;;;;;; XModifierKeymap funcions ;;;;;;
+;;;;;; XModifierKeymap functions ;;;;;;
 
 (defentry make-XModifierKeymap () ( fixnum  "make_XModifierKeymap" ))
 (defentry XModifierKeymap-modifiermap (fixnum) ( fixnum "XModifierKeymap_modifiermap" ))

diff --git a/xgcl-2/gcl_Xakcl.example.lsp b/xgcl-2/gcl_Xakcl.example.lsp
index 975c5a62d2fc76629f604514a299396d66f92c9a..06bbd0558414d6d587a13fa33cc7f23be82ab2eb 100644 (file)
--- a/xgcl-2/gcl_Xakcl.example.lsp
+++ b/xgcl-2/gcl_Xakcl.example.lsp
@@ -136,8 +136,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;
 ;;this function tracks the mouse.  when the mouse button is pressed a
 ;;line is drawn from the previous position to the current position.
-;;this funciton also shows a way of handling exposure events.  the
-;;positions are remebered in order to redraw the contents of the window
+;;this function also shows a way of handling exposure events.  The
+;;positions are remembered in order to redraw the contents of the window
 ;;when it is exposed.  this function handles events in two windows, the
 ;;quit window and the draw window.  there is an example of setting the
 ;;input for a window.  the draw window can have button press events,
@@ -272,7 +272,7 @@
 ;;this function draws a ghst line by setting the X function to GXXor. and the
 ;;foreground color to th logxor of the back and foreground pixel
 ;;this function actually changes the graphics context. and does not change it back
-;;to use the ghost method and switch back to regular drawing. set the funciton
+;;to use the ghost method and switch back to regular drawing. set the function
 ;;back to GXcopy and the foregorund pixel appropriately
 
 (defun do-ghost-line-1 (a-window)

diff --git a/xgcl-2/gcl_Xinit.lsp b/xgcl-2/gcl_Xinit.lsp
index 597744fd68da899f24aa7654e54619227c39df51..c6cc66f3687eee7869b8dc0924fd7ac164beb520 100644 (file)
--- a/xgcl-2/gcl_Xinit.lsp
+++ b/xgcl-2/gcl_Xinit.lsp
@@ -30,10 +30,10 @@
 ;;a C struct in X starts with a 'make' followed by the structure name.  all
 ;;functions involved in getting a field of a C struct strats with the
 ;;name of the C struct followed by the name of the field.  the
-;;parameters it excepts is the varaible contaning the structure.  all
+;;parameters it excepts is the variable contaning the structure.  all
 ;;functions to set a field of a C struct starts with 'set' followed by
 ;;the C struct name followed by the field name.  these functions accept
-;;as parameter, the varaible containing the struct and the value to be
+;;as parameter, the variable containing the struct and the value to be
 ;;put in the field.
 
 ;;;;
@@ -82,7 +82,7 @@
 
 
 ;;;;;;;;;;;;;;;;;;;;;; 
-;;this function initializes all varaibles needed by most applications.
+;;this function initializes all variables needed by most applications.
 ;;it uses all defaults which is inherited from the root window, and
 ;;screen.
 

diff --git a/xgcl-2/gcl_Xstruct.lsp b/xgcl-2/gcl_Xstruct.lsp
index d8dd1d1c2a6ea3382ff63f5e844bef3b7a0c2293..9ee3cc47e088d1b766d39034a70153ccea506199 100644 (file)
--- a/xgcl-2/gcl_Xstruct.lsp
+++ b/xgcl-2/gcl_Xstruct.lsp
@@ -25,7 +25,7 @@
 
 
 
-;;;;;; _XQEvent funcions ;;;;;;
+;;;;;; _XQEvent functions ;;;;;;
 
 (defentry make-_XQEvent () ( fixnum  "make__XQEvent" ))
 (defentry _XQEvent-event (fixnum) ( fixnum "_XQEvent_event" ))
@@ -34,7 +34,7 @@
 (defentry set-_XQEvent-next (fixnum fixnum) ( void "set__XQEvent_next" ))
 
 
-;;;;;; XCharStruct funcions ;;;;;;
+;;;;;; XCharStruct functions ;;;;;;
 
 (defentry make-XCharStruct () ( fixnum  "make_XCharStruct" ))
 (defentry XCharStruct-attributes (fixnum) ( fixnum "XCharStruct_attributes" ))
@@ -51,7 +51,7 @@
 (defentry set-XCharStruct-lbearing (fixnum fixnum) ( void "set_XCharStruct_lbearing" ))
 
 
-;;;;;; XFontProp funcions ;;;;;;
+;;;;;; XFontProp functions ;;;;;;
 
 (defentry make-XFontProp () ( fixnum  "make_XFontProp" ))
 (defentry XFontProp-card32 (fixnum) ( fixnum "XFontProp_card32" ))
@@ -60,7 +60,7 @@
 (defentry set-XFontProp-name (fixnum fixnum) ( void "set_XFontProp_name" ))
 
 
-;;;;;; XFontStruct funcions ;;;;;;
+;;;;;; XFontStruct functions ;;;;;;
 
 (defentry make-XFontStruct () ( fixnum  "make_XFontStruct" ))
 (defentry XFontStruct-descent (fixnum) ( fixnum "XFontStruct_descent" ))
@@ -97,7 +97,7 @@
 (defentry set-XFontStruct-ext_data (fixnum fixnum) ( void "set_XFontStruct_ext_data" ))
 
 
-;;;;;; XTextItem funcions ;;;;;;
+;;;;;; XTextItem functions ;;;;;;
 
 (defentry make-XTextItem () ( fixnum  "make_XTextItem" ))
 (defentry XTextItem-font (fixnum) ( fixnum "XTextItem_font" ))
@@ -110,7 +110,7 @@
 (defentry set-XTextItem-chars (fixnum fixnum) ( void "set_XTextItem_chars" ))
 
 
-;;;;;; XChar2b funcions ;;;;;;
+;;;;;; XChar2b functions ;;;;;;
 
 (defentry make-XChar2b () ( fixnum  "make_XChar2b" ))
 (defentry XChar2b-byte2 (fixnum) ( char "XChar2b_byte2" ))
@@ -119,7 +119,7 @@
 (defentry set-XChar2b-byte1 (fixnum char) ( void "set_XChar2b_byte1" ))
 
 
-;;;;;; XTextItem16 funcions ;;;;;;
+;;;;;; XTextItem16 functions ;;;;;;
 
 (defentry make-XTextItem16 () ( fixnum  "make_XTextItem16" ))
 (defentry XTextItem16-font (fixnum) ( fixnum "XTextItem16_font" ))
@@ -132,7 +132,7 @@
 (defentry set-XTextItem16-chars (fixnum fixnum) ( void "set_XTextItem16_chars" ))
 
 
-;;;;;; XEDataObject funcions ;;;;;;
+;;;;;; XEDataObject functions ;;;;;;
 
 (defentry make-XEDataObject () ( fixnum  "make_XEDataObject" ))
 (defentry XEDataObject-font (fixnum) ( fixnum "XEDataObject_font" ))
@@ -147,7 +147,7 @@
 (defentry set-XEDataObject-gc (fixnum fixnum) ( void "set_XEDataObject_gc" ))
 
 
-;;;;;; XSizeHints funcions ;;;;;;
+;;;;;; XSizeHints functions ;;;;;;
 
 (defentry make-XSizeHints () ( fixnum  "make_XSizeHints" ))
 (defentry XSizeHints-win_gravity (fixnum) ( fixnum "XSizeHints_win_gravity" ))
@@ -190,7 +190,7 @@
 (defentry set-XSizeHints-flags (fixnum fixnum) ( void "set_XSizeHints_flags" ))
 
 
-;;;;;; XWMHints funcions ;;;;;;
+;;;;;; XWMHints functions ;;;;;;
 
 (defentry make-XWMHints () ( fixnum  "make_XWMHints" ))
 (defentry XWMHints-window_group (fixnum) ( fixnum "XWMHints_window_group" ))
@@ -213,7 +213,7 @@
 (defentry set-XWMHints-flags (fixnum fixnum) ( void "set_XWMHints_flags" ))
 
 
-;;;;;; XTextProperty funcions ;;;;;;
+;;;;;; XTextProperty functions ;;;;;;
 
 (defentry make-XTextProperty () ( fixnum  "make_XTextProperty" ))
 (defentry XTextProperty-nitems (fixnum) ( fixnum "XTextProperty_nitems" ))
@@ -226,7 +226,7 @@
 (defentry set-XTextProperty-value (fixnum fixnum) ( void "set_XTextProperty_value" ))
 
 
-;;;;;; XIconSize funcions ;;;;;;
+;;;;;; XIconSize functions ;;;;;;
 
 (defentry make-XIconSize () ( fixnum  "make_XIconSize" ))
 (defentry XIconSize-height_inc (fixnum) ( fixnum "XIconSize_height_inc" ))
@@ -243,7 +243,7 @@
 (defentry set-XIconSize-min_width (fixnum fixnum) ( void "set_XIconSize_min_width" ))
 
 
-;;;;;; XClassHint funcions ;;;;;;
+;;;;;; XClassHint functions ;;;;;;
 
 (defentry make-XClassHint () ( fixnum  "make_XClassHint" ))
 (defentry XClassHint-res_class (fixnum) ( fixnum "XClassHint_res_class" ))
@@ -252,7 +252,7 @@
 (defentry set-XClassHint-res_name (fixnum fixnum) ( void "set_XClassHint_res_name" ))
 
 
-;;;;;; XComposeStatus funcions ;;;;;;
+;;;;;; XComposeStatus functions ;;;;;;
 
 (defentry make-XComposeStatus () ( fixnum  "make_XComposeStatus" ))
 (defentry XComposeStatus-chars_matched (fixnum) ( fixnum "XComposeStatus_chars_matched" ))
@@ -261,7 +261,7 @@
 (defentry set-XComposeStatus-compose_ptr (fixnum fixnum) ( void "set_XComposeStatus_compose_ptr" ))
 
 
-;;;;;; XVisualInfo funcions ;;;;;;
+;;;;;; XVisualInfo functions ;;;;;;
 
 (defentry make-XVisualInfo () ( fixnum  "make_XVisualInfo" ))
 (defentry XVisualInfo-bits_per_rgb (fixnum) ( fixnum "XVisualInfo_bits_per_rgb" ))
@@ -286,7 +286,7 @@
 (defentry set-XVisualInfo-visual (fixnum fixnum) ( void "set_XVisualInfo_visual" ))
 
 
-;;;;;; XStandardColormap funcions ;;;;;;
+;;;;;; XStandardColormap functions ;;;;;;
 
 (defentry make-XStandardColormap () ( fixnum  "make_XStandardColormap" ))
 (defentry XStandardColormap-killid (fixnum) ( fixnum "XStandardColormap_killid" ))

diff --git a/xgcl-2/gcl_defentry_events.lsp b/xgcl-2/gcl_defentry_events.lsp
index a561d02bd7d48181e206543aa3c612105931dda5..c586fd34f8e612f8103e1c0cf8821ebead94250d 100644 (file)
--- a/xgcl-2/gcl_defentry_events.lsp
+++ b/xgcl-2/gcl_defentry_events.lsp
@@ -23,7 +23,7 @@
 ; See the file dec.copyright for details.
 
 
-;;;;;; XKeyEvent funcions ;;;;;;
+;;;;;; XKeyEvent functions ;;;;;;
 
 (defentry make-XKeyEvent () ( fixnum  "make_XKeyEvent" ))
 (defentry XKeyEvent-same_screen (fixnum) ( fixnum "XKeyEvent_same_screen" ))
@@ -58,7 +58,7 @@
 (defentry set-XKeyEvent-type (fixnum fixnum) ( void "set_XKeyEvent_type" ))
 
 
-;;;;;; XButtonEvent funcions ;;;;;;
+;;;;;; XButtonEvent functions ;;;;;;
 
 (defentry make-XButtonEvent () ( fixnum  "make_XButtonEvent" ))
 (defentry XButtonEvent-same_screen (fixnum) ( fixnum "XButtonEvent_same_screen" ))
@@ -93,7 +93,7 @@
 (defentry set-XButtonEvent-type (fixnum fixnum) ( void "set_XButtonEvent_type" ))
 
 
-;;;;;; XMotionEvent funcions ;;;;;;
+;;;;;; XMotionEvent functions ;;;;;;
 
 (defentry make-XMotionEvent () ( fixnum  "make_XMotionEvent" ))
 (defentry XMotionEvent-same_screen (fixnum) ( fixnum "XMotionEvent_same_screen" ))
@@ -128,7 +128,7 @@
 (defentry set-XMotionEvent-type (fixnum fixnum) ( void "set_XMotionEvent_type" ))
 
 
-;;;;;; XCrossingEvent funcions ;;;;;;
+;;;;;; XCrossingEvent functions ;;;;;;
 
 (defentry make-XCrossingEvent () ( fixnum  "make_XCrossingEvent" ))
 (defentry XCrossingEvent-state (fixnum) ( fixnum "XCrossingEvent_state" ))
@@ -167,7 +167,7 @@
 (defentry set-XCrossingEvent-type (fixnum fixnum) ( void "set_XCrossingEvent_type" ))
 
 
-;;;;;; XFocusChangeEvent funcions ;;;;;;
+;;;;;; XFocusChangeEvent functions ;;;;;;
 
 (defentry make-XFocusChangeEvent () ( fixnum  "make_XFocusChangeEvent" ))
 (defentry XFocusChangeEvent-detail (fixnum) ( fixnum "XFocusChangeEvent_detail" ))
@@ -186,7 +186,7 @@
 (defentry set-XFocusChangeEvent-type (fixnum fixnum) ( void "set_XFocusChangeEvent_type" ))
 
 
-;;;;;; XKeymapEvent funcions ;;;;;;
+;;;;;; XKeymapEvent functions ;;;;;;
 
 (defentry make-XKeymapEvent () ( fixnum  "make_XKeymapEvent" ))
 ;;(defentry XKeymapEvent-key_vector[32] (fixnum) ( char "XKeymapEvent_key_vector[32]" ))
@@ -203,7 +203,7 @@
 (defentry set-XKeymapEvent-type (fixnum fixnum) ( void "set_XKeymapEvent_type" ))
 
 
-;;;;;; XExposeEvent funcions ;;;;;;
+;;;;;; XExposeEvent functions ;;;;;;
 
 (defentry make-XExposeEvent () ( fixnum  "make_XExposeEvent" ))
 (defentry XExposeEvent-count (fixnum) ( fixnum "XExposeEvent_count" ))
@@ -228,7 +228,7 @@
 (defentry set-XExposeEvent-type (fixnum fixnum) ( void "set_XExposeEvent_type" ))
 
 
-;;;;;; XGraphicsExposeEvent funcions ;;;;;;
+;;;;;; XGraphicsExposeEvent functions ;;;;;;
 
 (defentry make-XGraphicsExposeEvent () ( fixnum  "make_XGraphicsExposeEvent" ))
 (defentry XGraphicsExposeEvent-minor_code (fixnum) ( fixnum "XGraphicsExposeEvent_minor_code" ))
@@ -257,7 +257,7 @@
 (defentry set-XGraphicsExposeEvent-type (fixnum fixnum) ( void "set_XGraphicsExposeEvent_type" ))
 
 
-;;;;;; XNoExposeEvent funcions ;;;;;;
+;;;;;; XNoExposeEvent functions ;;;;;;
 
 (defentry make-XNoExposeEvent () ( fixnum  "make_XNoExposeEvent" ))
 (defentry XNoExposeEvent-minor_code (fixnum) ( fixnum "XNoExposeEvent_minor_code" ))
@@ -276,7 +276,7 @@
 (defentry set-XNoExposeEvent-type (fixnum fixnum) ( void "set_XNoExposeEvent_type" ))
 
 
-;;;;;; XVisibilityEvent funcions ;;;;;;
+;;;;;; XVisibilityEvent functions ;;;;;;
 
 (defentry make-XVisibilityEvent () ( fixnum  "make_XVisibilityEvent" ))
 (defentry XVisibilityEvent-state (fixnum) ( fixnum "XVisibilityEvent_state" ))
@@ -293,7 +293,7 @@
 (defentry set-XVisibilityEvent-type (fixnum fixnum) ( void "set_XVisibilityEvent_type" ))
 
 
-;;;;;; XCreateWindowEvent funcions ;;;;;;
+;;;;;; XCreateWindowEvent functions ;;;;;;
 
 (defentry make-XCreateWindowEvent () ( fixnum  "make_XCreateWindowEvent" ))
 (defentry XCreateWindowEvent-override_redirect (fixnum) ( fixnum "XCreateWindowEvent_override_redirect" ))
@@ -322,7 +322,7 @@
 (defentry set-XCreateWindowEvent-type (fixnum fixnum) ( void "set_XCreateWindowEvent_type" ))
 
 
-;;;;;; XDestroyWindowEvent funcions ;;;;;;
+;;;;;; XDestroyWindowEvent functions ;;;;;;
 
 (defentry make-XDestroyWindowEvent () ( fixnum  "make_XDestroyWindowEvent" ))
 (defentry XDestroyWindowEvent-window (fixnum) ( fixnum "XDestroyWindowEvent_window" ))
@@ -339,7 +339,7 @@
 (defentry set-XDestroyWindowEvent-type (fixnum fixnum) ( void "set_XDestroyWindowEvent_type" ))
 
 
-;;;;;; XUnmapEvent funcions ;;;;;;
+;;;;;; XUnmapEvent functions ;;;;;;
 
 (defentry make-XUnmapEvent () ( fixnum  "make_XUnmapEvent" ))
 (defentry XUnmapEvent-from_configure (fixnum) ( fixnum "XUnmapEvent_from_configure" ))
@@ -358,7 +358,7 @@
 (defentry set-XUnmapEvent-type (fixnum fixnum) ( void "set_XUnmapEvent_type" ))
 
 
-;;;;;; XMapEvent funcions ;;;;;;
+;;;;;; XMapEvent functions ;;;;;;
 
 (defentry make-XMapEvent () ( fixnum  "make_XMapEvent" ))
 (defentry XMapEvent-override_redirect (fixnum) ( fixnum "XMapEvent_override_redirect" ))
@@ -377,7 +377,7 @@
 (defentry set-XMapEvent-type (fixnum fixnum) ( void "set_XMapEvent_type" ))
 
 
-;;;;;; XMapRequestEvent funcions ;;;;;;
+;;;;;; XMapRequestEvent functions ;;;;;;
 
 (defentry make-XMapRequestEvent () ( fixnum  "make_XMapRequestEvent" ))
 (defentry XMapRequestEvent-window (fixnum) ( fixnum "XMapRequestEvent_window" ))
@@ -394,7 +394,7 @@
 (defentry set-XMapRequestEvent-type (fixnum fixnum) ( void "set_XMapRequestEvent_type" ))
 
 
-;;;;;; XReparentEvent funcions ;;;;;;
+;;;;;; XReparentEvent functions ;;;;;;
 
 (defentry make-XReparentEvent () ( fixnum  "make_XReparentEvent" ))
 (defentry XReparentEvent-override_redirect (fixnum) ( fixnum "XReparentEvent_override_redirect" ))
@@ -419,7 +419,7 @@
 (defentry set-XReparentEvent-type (fixnum fixnum) ( void "set_XReparentEvent_type" ))
 
 
-;;;;;; XConfigureEvent funcions ;;;;;;
+;;;;;; XConfigureEvent functions ;;;;;;
 
 (defentry make-XConfigureEvent () ( fixnum  "make_XConfigureEvent" ))
 (defentry XConfigureEvent-override_redirect (fixnum) ( fixnum "XConfigureEvent_override_redirect" ))
@@ -450,7 +450,7 @@
 (defentry set-XConfigureEvent-type (fixnum fixnum) ( void "set_XConfigureEvent_type" ))
 
 
-;;;;;; XGravityEvent funcions ;;;;;;
+;;;;;; XGravityEvent functions ;;;;;;
 
 (defentry make-XGravityEvent () ( fixnum  "make_XGravityEvent" ))
 (defentry XGravityEvent-y (fixnum) ( fixnum "XGravityEvent_y" ))
@@ -471,7 +471,7 @@
 (defentry set-XGravityEvent-type (fixnum fixnum) ( void "set_XGravityEvent_type" ))
 
 
-;;;;;; XResizeRequestEvent funcions ;;;;;;
+;;;;;; XResizeRequestEvent functions ;;;;;;
 
 (defentry make-XResizeRequestEvent () ( fixnum  "make_XResizeRequestEvent" ))
 (defentry XResizeRequestEvent-height (fixnum) ( fixnum "XResizeRequestEvent_height" ))
@@ -490,7 +490,7 @@
 (defentry set-XResizeRequestEvent-type (fixnum fixnum) ( void "set_XResizeRequestEvent_type" ))
 
 
-;;;;;; XConfigureRequestEvent funcions ;;;;;;
+;;;;;; XConfigureRequestEvent functions ;;;;;;
 
 (defentry make-XConfigureRequestEvent () ( fixnum  "make_XConfigureRequestEvent" ))
 (defentry XConfigureRequestEvent-value_mask (fixnum) ( fixnum "XConfigureRequestEvent_value_mask" ))
@@ -523,7 +523,7 @@
 (defentry set-XConfigureRequestEvent-type (fixnum fixnum) ( void "set_XConfigureRequestEvent_type" ))
 
 
-;;;;;; XCirculateEvent funcions ;;;;;;
+;;;;;; XCirculateEvent functions ;;;;;;
 
 (defentry make-XCirculateEvent () ( fixnum  "make_XCirculateEvent" ))
 (defentry XCirculateEvent-place (fixnum) ( fixnum "XCirculateEvent_place" ))
@@ -542,7 +542,7 @@
 (defentry set-XCirculateEvent-type (fixnum fixnum) ( void "set_XCirculateEvent_type" ))
 
 
-;;;;;; XCirculateRequestEvent funcions ;;;;;;
+;;;;;; XCirculateRequestEvent functions ;;;;;;
 
 (defentry make-XCirculateRequestEvent () ( fixnum  "make_XCirculateRequestEvent" ))
 (defentry XCirculateRequestEvent-place (fixnum) ( fixnum "XCirculateRequestEvent_place" ))
@@ -561,7 +561,7 @@
 (defentry set-XCirculateRequestEvent-type (fixnum fixnum) ( void "set_XCirculateRequestEvent_type" ))
 
 
-;;;;;; XPropertyEvent funcions ;;;;;;
+;;;;;; XPropertyEvent functions ;;;;;;
 
 (defentry make-XPropertyEvent () ( fixnum  "make_XPropertyEvent" ))
 (defentry XPropertyEvent-state (fixnum) ( fixnum "XPropertyEvent_state" ))
@@ -582,7 +582,7 @@
 (defentry set-XPropertyEvent-type (fixnum fixnum) ( void "set_XPropertyEvent_type" ))
 
 
-;;;;;; XSelectionClearEvent funcions ;;;;;;
+;;;;;; XSelectionClearEvent functions ;;;;;;
 
 (defentry make-XSelectionClearEvent () ( fixnum  "make_XSelectionClearEvent" ))
 (defentry XSelectionClearEvent-time (fixnum) ( fixnum "XSelectionClearEvent_time" ))
@@ -601,7 +601,7 @@
 (defentry set-XSelectionClearEvent-type (fixnum fixnum) ( void "set_XSelectionClearEvent_type" ))
 
 
-;;;;;; XSelectionRequestEvent funcions ;;;;;;
+;;;;;; XSelectionRequestEvent functions ;;;;;;
 
 (defentry make-XSelectionRequestEvent () ( fixnum  "make_XSelectionRequestEvent" ))
 (defentry XSelectionRequestEvent-time (fixnum) ( fixnum "XSelectionRequestEvent_time" ))
@@ -626,7 +626,7 @@
 (defentry set-XSelectionRequestEvent-type (fixnum fixnum) ( void "set_XSelectionRequestEvent_type" ))
 
 
-;;;;;; XSelectionEvent funcions ;;;;;;
+;;;;;; XSelectionEvent functions ;;;;;;
 
 (defentry make-XSelectionEvent () ( fixnum  "make_XSelectionEvent" ))
 (defentry XSelectionEvent-time (fixnum) ( fixnum "XSelectionEvent_time" ))
@@ -649,7 +649,7 @@
 (defentry set-XSelectionEvent-type (fixnum fixnum) ( void "set_XSelectionEvent_type" ))
 
 
-;;;;;; XColormapEvent funcions ;;;;;;
+;;;;;; XColormapEvent functions ;;;;;;
 
 (defentry make-XColormapEvent () ( fixnum  "make_XColormapEvent" ))
 (defentry XColormapEvent-state (fixnum) ( fixnum "XColormapEvent_state" ))
@@ -670,7 +670,7 @@
 (defentry set-XColormapEvent-type (fixnum fixnum) ( void "set_XColormapEvent_type" ))
 
 
-;;;;;; XClientMessageEvent funcions ;;;;;;
+;;;;;; XClientMessageEvent functions ;;;;;;
 
 (defentry make-XClientMessageEvent () ( fixnum  "make_XClientMessageEvent" ))
 (defentry XClientMessageEvent-format (fixnum) ( fixnum "XClientMessageEvent_format" ))
@@ -689,7 +689,7 @@
 (defentry set-XClientMessageEvent-type (fixnum fixnum) ( void "set_XClientMessageEvent_type" ))
 
 
-;;;;;; XMappingEvent funcions ;;;;;;
+;;;;;; XMappingEvent functions ;;;;;;
 
 (defentry make-XMappingEvent () ( fixnum  "make_XMappingEvent" ))
 (defentry XMappingEvent-count (fixnum) ( fixnum "XMappingEvent_count" ))
@@ -710,7 +710,7 @@
 (defentry set-XMappingEvent-type (fixnum fixnum) ( void "set_XMappingEvent_type" ))
 
 
-;;;;;; XErrorEvent funcions ;;;;;;
+;;;;;; XErrorEvent functions ;;;;;;
 
 (defentry make-XErrorEvent () ( fixnum  "make_XErrorEvent" ))
 (defentry XErrorEvent-minor_code (fixnum) ( char "XErrorEvent_minor_code" ))
@@ -729,7 +729,7 @@
 (defentry set-XErrorEvent-type (fixnum fixnum) ( void "set_XErrorEvent_type" ))
 
 
-;;;;;; XAnyEvent funcions ;;;;;;
+;;;;;; XAnyEvent functions ;;;;;;
 
 (defentry make-XAnyEvent () ( fixnum  "make_XAnyEvent" ))
 (defentry XAnyEvent-window (fixnum) ( fixnum "XAnyEvent_window" ))
@@ -744,7 +744,7 @@
 (defentry set-XAnyEvent-type (fixnum fixnum) ( void "set_XAnyEvent_type" ))
 
 
-;;;;;; XEvent funcions ;;;;;;
+;;;;;; XEvent functions ;;;;;;
 
 (defentry make-XEvent () ( fixnum  "make_XEvent" ))
 ;;(defentry XEvent-pad[24] (fixnum) ( fixnum "XEvent_pad[24]" ))

diff --git a/xgcl-2/gcl_keysymdef.lsp b/xgcl-2/gcl_keysymdef.lsp
index a9d492f1a1c67862038c16a132d991d33f2110ac..5dbf050f316354b30e76f68ead4c91e73f43d69a 100644 (file)
--- a/xgcl-2/gcl_keysymdef.lsp
+++ b/xgcl-2/gcl_keysymdef.lsp
@@ -133,7 +133,7 @@
 
 
 ;;
- ; Auxilliary Functions; note the duplicate definitions for left and right
+ ; Auxiliary Functions; note the duplicate definitions for left and right
  ; function keys;  Sun keyboards and a few other manufactures have such
  ; function key groups on the left and/or right sides of the keyboard.
  ; We've not found a keyboard with more than 35 function keys total.