anchor.diff:  ;;;;BUGS
   ;;;;LEGAL
   ;;;;    AGPL3
  -;;;;    
  +;;;;
   ;;;;    Copyright Pascal J. Bourguignon 2002 - 2016
  -;;;;    
  +;;;;
   ;;;;    This program is free software: you can redistribute it and/or modify
   ;;;;    it under the terms of the GNU Affero General Public License as published by
   ;;;;    the Free Software Foundation, either version 3 of the License, or
   ;;;;    (at your option) any later version.
  -;;;;    
  +;;;;
   ;;;;    This program is distributed in the hope that it will be useful,
   ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
   ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   ;;;;    GNU Affero General Public License for more details.
  -;;;;    
  +;;;;
   ;;;;    You should have received a copy of the GNU Affero General Public License
   ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
   ;;;;****************************************************************************
  
positive.code: RETURN:  (elt args 0) x (elt args 1) x ... x (elt args (1- (length args)))
           = the set of tuples built taking one item in order from each list
             in args.
  EXAMPLE: (COMBINE '(WWW FTP) '(EXA) '(COM ORG))) 
             --> ((WWW EXA COM) (WWW EXA ORG) (FTP EXA COM) (FTP EXA ORG))
  "
    (cond
  
negative.code:    "FLATTEN" "LIST-TRIM" "TRANSPOSE" "AGET" "MEMQ"
     "MAP-CARTESIAN-PRODUCT"
     "PLIST-KEYS" "PLIST-REMOVE" "PLIST-GET"
     "PLIST-PUT" "PLIST-CLEANUP" "HASHED-INTERSECTION"
     ;; "HASHED-REMOVE-DUPLICATES" moved to COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SEQUENCE
     "ENSURE-LIST" "PROPER-LIST-P" "LIST-LENGTHS" "LIST-ELEMENTS"
     "ENSURE-CIRCULAR" "MAKE-CIRCULAR-LIST" "CIRCULAR-LENGTH"
  