* interp/category.boot (filterConditionalCategories): Fix thinko.

1 files changed, 5 insertions, 0 deletions

diff --git a/configure b/configure
index 8701942f..0aa2e420 100755
--- a/configure
+++ b/configure
@@ -19565,6 +19565,7 @@ case $axiom_lisp_flavor in
       float_type='float'
       double_type='double'
       string_type='string'
+      pointer_type='fixnum'  # well, this is from poking into GCL source code
       ;;
    sbcl)
       void_type='void'
@@ -19573,6 +19574,7 @@ case $axiom_lisp_flavor in
       float_type='float'
       double_type='double'
       string_type='c-string'
+      pointer_type='(* t)'
       ;;
    clisp)
       void_type='nil'
@@ -19581,6 +19583,7 @@ case $axiom_lisp_flavor in
       float_type='single-float'
       double_type='double-float'
       string_type='c-string'
+      pointer_type='c-pointer'
       ;;
    ecl)
       void_type=':void'
@@ -19589,6 +19592,7 @@ case $axiom_lisp_flavor in
       float_type=':float'
       double_type=':double'
       string_type=':cstring'
+      pointer_type=':pointer-void'
       ;;
    clozure)
       void_type=':void'
@@ -19599,6 +19603,7 @@ case $axiom_lisp_flavor in
       double_type=':double-float'
       # Clozure CL wants you to deal with your own mess
       string_type=':address'
+      pointer_type=':address'
       ;;
    *)
       as_fn_error $? "We do not know how to translate native types for this Lisp" "$LINENO" 5