anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;; pseudonyms
  +;;;; PSEUDONYMS
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;; thanks to:
  -;;;; #lisp@freenode: pjb, blubjr, sid_cypher, PuercoPop, shka
  +;;;; #lisp@freenode:
  +;;;; pjb, blubjr, sid_cypher, PuercoPop, shka, Bicyclidine
   ;;;; for testing and ideas
  +;;;; 
   ;;;; license: FreeBSD (BSD 2-clause)
   ;;;;
   ;;;; pseudonyms.lisp
  
positive.code: 					   do (read-char stream)
  					   collect char))))
  	   (symbol (read stream)))
        ;;(format t "debug: ~S ~S ~S ~S ~S ~S ~S~%"
        ;;(package-name *package*) pseudlist table name pseudonym symbol intern-p)
        ;;(format t "debug: ~S ~S ~S~%" symbol name intern-p)
        (assert (not (null name))
  	      () "Pseudonym ~S was not set. Check your spelling or use defpseudonym."
  	      pseudonym)
  
negative.code:     (format nil "~A => ~A" pseudonym  package)))
  
  (defun pmakunbound (datum &key (inside-package (package-name *package*)))
    "This, given either a pseudonym-bound package name or a package name-bound pseudonym, clears
  any name-pseudonym pair bound to it.
  
  Argument must be a string designator.
  An optional second argument allows you to clear a pseudonym for a different package."
    (check-type datum string-designator)
    (let ((table (gethash inside-package *pseudonym-table*))
  	(datum (string datum)))
  