Export PATTERN-CONTAINS-DUPLICATES?

diff --git a/src/compiler/machines/C/compiler.pkg b/src/compiler/machines/C/compiler.pkg
index f46e67b60b0f5c125c555acd89f8e55c9edd5df5..2a86981d190107f033545afa33ae476acadf5cfd 100644 (file)
--- a/src/compiler/machines/C/compiler.pkg
+++ b/src/compiler/machines/C/compiler.pkg
@@ -308,6 +308,7 @@ USA.
   (parent (compiler))
   (export (compiler)
          make-pattern-variable
+         pattern-contains-duplicates?
          pattern-lookup
          pattern-lookup-1
          pattern-variable-name

diff --git a/src/compiler/machines/i386/compiler.pkg b/src/compiler/machines/i386/compiler.pkg
index cb2ca90c118f50dc67070eeffe2d2a167ba0e91d..4d66ddafca046356b5b6a7ff6eacf2fa1c5afa5c 100644 (file)
--- a/src/compiler/machines/i386/compiler.pkg
+++ b/src/compiler/machines/i386/compiler.pkg
@@ -294,6 +294,7 @@ USA.
   (parent (compiler))
   (export (compiler)
          make-pattern-variable
+         pattern-contains-duplicates?
          pattern-lookup
          pattern-lookup-1
          pattern-variable-name

diff --git a/src/compiler/machines/svm/compiler.pkg b/src/compiler/machines/svm/compiler.pkg
index e41efe8167765452d7f45437b929c40bdd2ca070..3845625a1ca9c7af6b39b9bee9bcdcfe7c184fda 100644 (file)
--- a/src/compiler/machines/svm/compiler.pkg
+++ b/src/compiler/machines/svm/compiler.pkg
@@ -302,6 +302,7 @@ USA.
   (parent (compiler))
   (export (compiler)
          make-pattern-variable
+         pattern-contains-duplicates?
          pattern-lookup
          pattern-lookup-1
          pattern-variable-name

diff --git a/src/compiler/machines/x86-64/compiler.pkg b/src/compiler/machines/x86-64/compiler.pkg
index b9f65d02bbdffb1e96f93776db3d8c58132436ce..4844db8c811dce4a4f0bf2767b7f59d3cf4b02e2 100644 (file)
--- a/src/compiler/machines/x86-64/compiler.pkg
+++ b/src/compiler/machines/x86-64/compiler.pkg
@@ -294,6 +294,7 @@ USA.
   (parent (compiler))
   (export (compiler)
          make-pattern-variable
+         pattern-contains-duplicates?
          pattern-lookup
          pattern-lookup-1
          pattern-variable-name