anchor.diff: -;;;; Copyright (c) 2008, 2009, 2010, 2011
  +;;;; Copyright (c) 2008, 2009, 2010, 2011, 2012
   ;;;;
  -;;;;     Robert Strandh (strandh@labri.fr)
  +;;;;     Robert Strandh (strandh@gmail.com)
   ;;;;
   ;;;; all rights reserved. 
   ;;;;
  
positive.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))
  
  
negative.code: ;;; express that as (:shadow . (<string1> <string2> ...)) instead. 
  
  (defpackage #:sicl-conditionals
    (:use #:common-lisp #:sicl-code-utilities)
    (:shadow . #1=(#:or #:and #:when #:unless #:cond
  		      #: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
  