anchor.diff:  ;;; express that as (:shadow . (<string1> <string2> ...)) instead. 
   
   (defpackage #:sicl-conditionals
  -    (:use #:cl)
  +  (:use #:common-lisp #:sicl-code-utilities)
     (:shadow . #1=(#:or #:and #:when #:unless #:cond
  -                 #:case #:ccase #:ecase
  -                 #:typecase #:ctypecase #:etypecase))
  -		   (:export . #1#))	
  +		      #:case #:ccase #:ecase
  +		      #:typecase #:ctypecase #:etypecase))
  +  (:export . #1#))	
   
   ;;; In the test package, we want to import all symbols of the
   ;;; COMMON-LISP package, except the ones that were shadowed in
  
positive.code: ;;;; Copyright (c) 2008, 2009, 2010, 2011
  ;;;;
  ;;;;     Robert Strandh (strandh@labri.fr)
  ;;;;
  ;;;; all rights reserved. 
  ;;;;
  
negative.code: ;;; have the reader produce that list, hence the use of the #. reader
  ;;; macro and again of the consing dot followed by a list. 
  (defpackage #:sicl-conditionals-test
    (:shadowing-import-from #:sicl-conditionals .
  			  #.(package-shadowing-symbols '#:sicl-conditionals))
    (:use #:sicl-conditionals #:cl #:lisp-unit))
  
  