Tue Mar 13 15:29:16 UTC 2012  mantoniotti@common-lisp.net
  * Added TIMESTAMP.
Tue Mar 13 15:28:28 UTC 2012  mantoniotti@common-lisp.net
  * Copyright updated.
Tue Mar 13 15:28:15 UTC 2012  mantoniotti@common-lisp.net
  * Copyright updated.
Thu Jun 16 00:10:47 UTC 2011  mantoniotti@common-lisp.net
  * Added "CL-UNIFICATION" as package nickname to match the .asd and .system specs.
Sat Apr  2 04:39:32 UTC 2011  rbrown@common-lisp.net
  * Use *unify-string-case-sensitive-p* consistently.
  Change the documentation.
Sat Apr  2 04:19:09 UTC 2011  rbrown@common-lisp.net
  * match-block.lisp: Use &body in match-case and matchf-case so
    code that uses them is correctly indented by editors.
Sat Apr  2 04:16:51 UTC 2011  mantoniotti@common-lisp.net
  * Copyright updated.
Sat Apr  2 04:11:54 UTC 2011  mantoniotti@common-lisp.net
  * Updated copyright info and a News.
Sat Apr  2 04:09:17 UTC 2011  mantoniotti@common-lisp.net
  * ChangeLog updated.
Sat Apr  2 04:08:13 UTC 2011  mantoniotti@common-lisp.net
  * Remove Thumbs.db and friends
Sat Apr  2 04:05:30 UTC 2011  mantoniotti@common-lisp.net
  * Exported a few more symbols.
diff -rN -u old-cl-unification-1/COPYING new-cl-unification-1/COPYING
--- old-cl-unification-1/COPYING	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/COPYING	2013-07-25 02:31:54.000000000 +0000
@@ -1,4 +1,4 @@
-Copyright (c) 2004-2011 Marco Antoniotti
+Copyright (c) 2004-2012 Marco Antoniotti
 All rights reserved.
  
 Permission is hereby granted, without written agreement and without
diff -rN -u old-cl-unification-1/ChangeLog new-cl-unification-1/ChangeLog
--- old-cl-unification-1/ChangeLog	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/ChangeLog	2013-07-25 02:31:54.000000000 +0000
@@ -1,3 +1,46 @@
+2011-03-28  Robert Brown  <robert.brown at gmail.com>
+
+	* match-block.lisp: Use &body in match-case and matchf-case so
+	code that uses them is correctly indented by editors.
+
+2011-02-27  author  <author at paniscia.local>
+
+	* .cvsignore: Updated.
+
+	* docs/html/images/Thumbs.db, docs/html/images/Thumbs.db:encryptable:
+	Removed Files:
+	 	Thumbs.db Thumbs.db:encryptable
+
+2011-02-26  author  <author at paniscia.local>
+
+	* .cvsignore: Updated.
+
+	* variables.lisp, unifier.lisp:
+	Minor changes (added COPYING information and other minutiae).
+
+	* unification-package.lisp: Exported a few more symbols.
+
+	* templates-hierarchy.lisp:
+	Minor changes (added COPYING information and other minutiae).
+
+	* substitutions.lisp:
+	Changed some environment functions and improved the DUMP-* ones.
+
+	* match-block.lisp, lambda-list-parsing.lisp, cl-unification.system, cl-unification.asd, cl-unification-lib.asd, apply-substitution.lisp:
+	Minor changes (added COPYING information and other minutiae).
+
+	* ACKNOWLEDGEMENTS: Acknowledgements updated.
+
+2011-02-24  author  <author at paniscia.local>
+
+	* ChangeLog, apply-substitution.lisp, cl-unification.system, lambda-list-parsing.lisp, lib-dependent/cl-ppcre-template.lisp, match-block.lisp, templates-hierarchy.lisp, unifier.lisp:
+	Delete trailing whitespace.  In lambda-list-parsing.lisp this fixes a bug
+	with ~@<newline> format directives.
+
+	* ChangeLog, test/unification-tests.lisp, unifier.lisp:
+	unifier.lisp: Allow vectors to unify with sequence templates.
+	test/unification-tests.lisp: new test to verify the change
+
 2011-02-24  Robert Brown  <robert.brown at gmail.com>
 
 	* lambda-list-parsing.lisp: Delete trailing whitespace that turned
diff -rN -u old-cl-unification-1/TIMESTAMP new-cl-unification-1/TIMESTAMP
--- old-cl-unification-1/TIMESTAMP	1970-01-01 00:00:00.000000000 +0000
+++ new-cl-unification-1/TIMESTAMP	2013-07-25 02:31:54.000000000 +0000
@@ -0,0 +1 @@
+20120116
diff -rN -u old-cl-unification-1/docs/html/control-flow.html new-cl-unification-1/docs/html/control-flow.html
--- old-cl-unification-1/docs/html/control-flow.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/control-flow.html	2013-07-25 02:31:54.000000000 +0000
@@ -208,7 +208,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -218,7 +218,8 @@
       Document created
   </li>
   </ul>
-
+-->
+  
   </div>
   </div>
 						
@@ -233,7 +234,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/dictionary.html new-cl-unification-1/docs/html/dictionary.html
--- old-cl-unification-1/docs/html/dictionary.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/dictionary.html	2013-07-25 02:31:54.000000000 +0000
@@ -279,7 +279,7 @@
   
 
 <!--
-;;; Copyright (c) 2004 Marco Antoniotti, All rigths reserved.
+;;; Copyright (c) 2004-2011 Marco Antoniotti, All rigths reserved.
 ;;;
 ;;; Permission to use, modify, and redistribute this code is hereby
 ;;; granted.
@@ -314,7 +314,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -324,7 +324,7 @@
       Started the site.
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -339,7 +339,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/downloads.html new-cl-unification-1/docs/html/downloads.html
--- old-cl-unification-1/docs/html/downloads.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/downloads.html	2013-07-25 02:31:54.000000000 +0000
@@ -97,7 +97,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -109,7 +109,7 @@
       Started the site.
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -124,7 +124,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/index.html new-cl-unification-1/docs/html/index.html
--- old-cl-unification-1/docs/html/index.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/index.html	2013-07-25 02:31:54.000000000 +0000
@@ -308,7 +308,7 @@
   
 
 <!--
-;;; Copyright (c) 2004 Marco Antoniotti, All rigths reserved.
+;;; Copyright (c) 2004-2011 Marco Antoniotti, All rigths reserved.
 ;;;
 ;;; Permission to use, modify, and redistribute this code is hereby
 ;;; granted.
@@ -349,6 +349,8 @@
   </p>
 
   <ul>
+    <li><strong>2011-02-20</strong><br>
+    CL-UNIFICATION is now in <a href="www.quicklisp.org">Quicklisp</a>.
   <li><strong>2007-11-09</strong><br>
       Updated.
   <li><strong>2004-11-04</strong><br>
@@ -372,7 +374,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2004-2007, Marco Antoniotti, all rights reserved.
+  &copy; 2004-2012, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/links.html new-cl-unification-1/docs/html/links.html
--- old-cl-unification-1/docs/html/links.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/links.html	2013-07-25 02:31:54.000000000 +0000
@@ -76,7 +76,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+ <!-- <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -94,7 +94,8 @@
       Started the site.
   </li>
   </ul>
-
+-->
+  
   </div>
   </div>
 						
@@ -109,7 +110,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/mailing-lists.html new-cl-unification-1/docs/html/mailing-lists.html
--- old-cl-unification-1/docs/html/mailing-lists.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/mailing-lists.html	2013-07-25 02:31:54.000000000 +0000
@@ -55,7 +55,7 @@
   
 
 <!--
-;;; Copyright (c) 2004-2005 Marco Antoniotti, All rigths reserved.
+;;; Copyright (c) 2004-2011 Marco Antoniotti, All rigths reserved.
 ;;;
 ;;; Permission to use, modify, and redistribute this code is hereby
 ;;; granted.
@@ -90,7 +90,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -102,7 +102,7 @@
       Started the site.
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -117,7 +117,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/string-template-class.html new-cl-unification-1/docs/html/string-template-class.html
--- old-cl-unification-1/docs/html/string-template-class.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/string-template-class.html	2013-07-25 02:31:54.000000000 +0000
@@ -122,7 +122,7 @@
 
   <h2>Affected By:</h2>
 
-  <p>The value of the variable *UNIFY-STRING-CASE-INSENSITIVE-P*.</p>
+  <p>The value of the variable *UNIFY-STRING-CASE-SENSITIVE-P*.</p>
 
 
   <h2>Exceptional Situations:</h2>
diff -rN -u old-cl-unification-1/docs/html/templates.html new-cl-unification-1/docs/html/templates.html
--- old-cl-unification-1/docs/html/templates.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/templates.html	2013-07-25 02:31:54.000000000 +0000
@@ -173,7 +173,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -183,7 +183,7 @@
       Document created
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -198,7 +198,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/unification-dictionary.html new-cl-unification-1/docs/html/unification-dictionary.html
--- old-cl-unification-1/docs/html/unification-dictionary.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/unification-dictionary.html	2013-07-25 02:31:54.000000000 +0000
@@ -38,7 +38,7 @@
   <ul>
   <li><a href="unify-package.html"><i>Package</i> <b>CL.EXT.DACF.UNIFICATION</b></a>
   <li><a href="unify-function.html"><i>Generic function</i> <b>UNIFY</b></a>
-  <li><a href="usci-variable.html"><i>Variable</i> <b>*UNIFY-STRING-CASE-INSENSITIVE*</b></a>
+  <li><a href="usci-variable.html"><i>Variable</i> <b>*UNIFY-STRING-CASE-SENSITIVE*</b></a>
 
   <li><a href="template-class.html"><i>Class</i> <b>TEMPLATE</b></a>
   <li><a href="expression-template-class.html"><i>Class</i> <b>EXPRESSION-TEMPLATE</b></a>
@@ -106,7 +106,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -118,7 +118,7 @@
       Started the page.
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -133,7 +133,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/unify-function.html new-cl-unification-1/docs/html/unify-function.html
--- old-cl-unification-1/docs/html/unify-function.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/unify-function.html	2013-07-25 02:31:54.000000000 +0000
@@ -163,7 +163,7 @@
   </p>
 
   <p>Two strings unify only is they are "equal", under the following
-  condition. If the variable *UNIFY-STRING-CASE-INSENSITIVE-P* is NIL
+  condition. If the variable *UNIFY-STRING-CASE-SENSITIVE-P* is T
   (the default) then the two strings <i>s1</i> and <i>s2</i> are
   compared using STRING=, otherwise they are compared using STRING-EQUAL.
   </p>
@@ -335,7 +335,7 @@
   <h2>See Also:</h2>
 
   <p>MAKE-EMPTY-ENVIRONMENT, UNIFICATION-FAILURE,
-  *UNIFY-STRING-CASE-INSENSITIVE-P*, OCCURS-IN-P,
+  *UNIFY-STRING-CASE-SENSITIVE-P*, OCCURS-IN-P,
   *OCCURENCE-CHECK-P*.</p>
 
   <h2>Notes:</h2>
diff -rN -u old-cl-unification-1/docs/html/unifying-substitutions.html new-cl-unification-1/docs/html/unifying-substitutions.html
--- old-cl-unification-1/docs/html/unifying-substitutions.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/unifying-substitutions.html	2013-07-25 02:31:54.000000000 +0000
@@ -162,7 +162,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 
-  <h1>News</h1>
+<!--  <h1>News</h1>
 
   <p>News in chronological order, most recent on top.
   </p>
@@ -172,7 +172,7 @@
       Document created
   </li>
   </ul>
-
+-->
   </div>
   </div>
 						
@@ -187,7 +187,7 @@
  <tr>
   <td colspan="3" valign="bottom" align="right">
   <div class="copyright">
-  &copy; 2003-2004, Marco Antoniotti, all rights reserved.
+  &copy; 2003-2011, Marco Antoniotti, all rights reserved.
   </div>
   </td>
  </tr>
diff -rN -u old-cl-unification-1/docs/html/usci-variable.html new-cl-unification-1/docs/html/usci-variable.html
--- old-cl-unification-1/docs/html/usci-variable.html	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/docs/html/usci-variable.html	2013-07-25 02:31:54.000000000 +0000
@@ -1,6 +1,6 @@
 <html>
  <head>
-     <title>CL Unification: Variable *UNIFY-STRING-CASE-INSENSITIVE-P*</title>
+     <title>CL Unification: Variable *UNIFY-STRING-CASE-SENSITIVE-P*</title>
      <link rel="stylesheet" href="main.css">
  </head>
 	
@@ -11,7 +11,7 @@
   <td colspan="3">
    <div class="header"
         style="font-family:=Verdana,Arial,Helvetica; font-size: 18px; color: #41286f;">
-    <strong><i>CL Unification: Variable *UNIFY-STRING-CASE-INSENSITIVE-P*</title></i></strong>
+    <strong><i>CL Unification: Variable *UNIFY-STRING-CASE-SENSITIVE-P*</title></i></strong>
     <div class="navigation">
      <a href="index.html" class="navigation-link">Home</a>
       | <a href="unification-package.html" class="navigation-link">Previous</a>
@@ -33,7 +33,7 @@
   <div class="content">
   <div class="text" style="padding-top: 10px;">
 	
-  <h1><i>Variable</i> <strong>*UNIFY-STRING-CASE-INSENSITIVE-P*</strong></h1>
+  <h1><i>Variable</i> <strong>*UNIFY-STRING-CASE-SENSITIVE-P*</strong></h1>
 
   <h2>Package:</h2>
 
@@ -56,9 +56,9 @@
 
   <h2>Description:</h2>
 
-  <p>The value of *UNIFY-STRING-CASE-INSENSITIVE-P* controls the
+  <p>The value of *UNIFY-STRING-CASE-SENSITIVE-P* controls the
   behavior of the UNIFY method with signature <code>(<i>string</i> <i>string</i>)</code>.
-  If NIL (the default), the method will use STRING= to test for
+  If T (the default), the method will use STRING= to test for
   equality of the two strings.  Otherwise, the UNIFY method will use STRING-EQUAL.</p>
 
   <h2>Affected By:</h2>
diff -rN -u old-cl-unification-1/test/unification-tests.lisp new-cl-unification-1/test/unification-tests.lisp
--- old-cl-unification-1/test/unification-tests.lisp	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/test/unification-tests.lisp	2013-07-25 02:31:54.000000000 +0000
@@ -43,7 +43,7 @@
   (test-error (unify "I am a string" "I am A string")
 	      :condition-type 'unification-failure)
 
-  (test t (let ((*unify-string-case-insensitive-p* t))
+  (test t (let ((*unify-string-case-sensitive-p* nil))
             (unify:environment-p (unify "I am a string" "I am A string"))))
 
   )
diff -rN -u old-cl-unification-1/unification-package.lisp new-cl-unification-1/unification-package.lisp
--- old-cl-unification-1/unification-package.lisp	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/unification-package.lisp	2013-07-25 02:31:54.000000000 +0000
@@ -8,7 +8,7 @@
 
 
 (defpackage "IT.UNIMIB.DISCO.MA.CL.EXT.DACF.UNIFICATION" (:use "CL")
-  (:nicknames  "CL.EXT.DACF.UNIFICATION" "UNIFY" "unify")
+  (:nicknames  "CL.EXT.DACF.UNIFICATION" "UNIFY" "unify" "CL-UNIFICATION")
   (:documentation "The CL.EXT.DACF.UNIFICATION Package.
 
 This package contains all the definitions necessary for the general
@@ -16,18 +16,9 @@
 The package also has the \"UNIFY\" nickname.")
 
   (:export
-   "ENABLE-TEMPLATE-READER"
-   "MAKE-TEMPLATE"
-   "TEMPLATEP"
-   "TEMPLATE-SPEC")
-
-  (:export
-   "*UNIFY-STRING-CASE-INSENSITIVE-P*"
+   "*UNIFY-STRING-CASE-SENSITIVE-P*"
    "UNIFY"
-   "FIND-VARIABLE-VALUE"
-   "V?"
 
-   "MAKE-EMPTY-ENVIRONMENT"
    "APPLY-SUBSTITUTION"
 
    "UNIFICATION-FAILURE"
@@ -36,7 +27,29 @@
 
   (:export
    "ENVIRONMENT"
-   "ENVIRONMENT-P")
+   "ENVIRONMENT-P"
+   "MAKE-EMPTY-ENVIRONMENT"
+   "EMPTY-ENVIRONMENT-P"
+   "MAKE-SHARED-ENVIRONMENT"
+   "COPY-ENVIRONMENT"
+   
+   "PUSH-FRAME"
+   "POP-FRAME"
+
+   "BINDING-VARIABLE"
+   "BINDING-VALUE"
+
+   "EXTEND-ENVIRONMENT"
+   "FILL-ENVIRONMENT"
+   "FILL-ENVIRONMENT*"
+
+   "FIND-VARIABLE-VALUE"
+   "V?"
+
+   "NEW-VAR"
+   "VARIABLEP"
+   "VARIABLE-ANY-P"
+   )
 
   (:export
    "MATCH"
@@ -55,6 +68,15 @@
    "UNIFY-EQUATIONS"
    "UNIFY-EQUATIONS*")
 
+  (:export
+   "ENABLE-TEMPLATE-READER"
+   "MAKE-TEMPLATE"
+   "TEMPLATEP"
+   "TEMPLATE-SPEC"
+
+   "COLLECT-TEMPLATE-VARS"
+   )
+
   #+cl-ppcre
   (:export
    "REGULAR-EXPRESSION"
diff -rN -u old-cl-unification-1/unifier.lisp new-cl-unification-1/unifier.lisp
--- old-cl-unification-1/unifier.lisp	2013-07-25 02:31:54.000000000 +0000
+++ new-cl-unification-1/unifier.lisp	2013-07-25 02:31:54.000000000 +0000
@@ -93,7 +93,7 @@
 Two CHARACTERs A and B unify if and only if they satisfy either #'CHAR= or
 #'CHAR-EQUAL. The choice of which of test to perform (#'CHAR= or #'CHAR-EQUAL)
 is made according to the value of the variable
-*UNIFY-STRING-CASE-INSENSITIVE-P*, which defaults to NIL.
+*UNIFY-STRING-CASE-SENSITIVE-P*, which defaults to T.
 If A and B unify then an unmodified environment ENV is returned,
 otherwise an error of type UNIFICATION-FAILURE is signaled."
   (cond ((and case-sensitive (char= a b))
@@ -115,7 +115,7 @@
 Two strings A and B unify if and only if they satisfy either #'STRING= or
 #'STRING-EQUAL. The choice of which of test to perform (#'STRING= or #'STRING-EQUAL)
 is made according to the value of the variable
-*UNIFY-STRING-CASE-INSENSITIVE-P*, which defaults to NIL.
+*UNIFY-STRING-CASE-SENSITIVE-P*, which defaults to T.
 If A and B unify then an unmodified environment ENV is returned,
 otherwise an error of type UNIFICATION-FAILURE is signaled."
   (cond ((and case-sensitive (string= a b))