anchor.diff:  	(progn
   	  (format t "pseudonym => name (inside package ~:@(~A~)):~%" inside-package)
   	  (list-length
  -	   (loop for (key value) on table by #'cddr collecting key
  +	   (loop for (key value) on table by #'cddr collect key
   	      do (format t "~S => ~S~%" value key)))))))
   
   ;;; ========================================================================
   ;;; READER MACRO
   
  -(set-macro-character #\$ 'pseudonym-reader)
  +(defun pseudonym-reader (stream char)
  +  "This is the reader macro for local pseudonyms.
   
  -(defun pseudonym-reader (stream char)
  -  "This is the reader macro for local pseudonyms."
  +This function is not meant to be called explicitly, unless you know what you're doing."
     (declare (ignore char))
     (labels ((valid (char)
   	     (when (equal char (or #\Space #\Tab #\Return #\Newline))
  
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: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; PSEUDONYMS
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; thanks to:
  ;;;; #lisp@freenode:
  ;;;; pjb, blubjr, sid_cypher, PuercoPop, shka, Bicyclidine
  ;;;; for testing and ideas
  ;;;; 
  ;;;; license: FreeBSD (BSD 2-clause)
  ;;;;
  ;;;; pseudonyms.lisp
  