anchor.diff:  	     "I think it's clear that you're full of shit when you say that $0."))))
   
   (defun respond-to (bot string)
  -  (respond bot (remove #\? string) *eliza-responses*))
  +  (respond bot (preprocess (remove #\? string)) *eliza-responses*))
   
   (defcommand - ("(.+)" string)
     "Syntax: '- <string>' - Test Eliza."
  
positive.code: 		     "Would you prefer it if I were $0"
  		     "wait, are YOU $0"))
  
      ("do you know about (.+)" (,(defresp
  				 (let ((noun (elt groups 0)))
  				   (if (has-fact bot noun)
  				       (build-string 
  					"Well I know that someone said '~A'"
  					(get-fact bot (elt groups 0)))
  				       (random-elt
  					(list
  					 (build-string "Of course I know about ~A"
  						       noun)
  					 "Nothing at all")))))))
  
      ("perhaps (.+)" ("Why the uncertainty"
  		     "Of course $0"
  
negative.code: 			  "you would be $1"))
      ("my mother (.+)" ("Who else in your family $0 ?"
  		       "Tell me more about your family"))
      ("I (want|wanted) (.+)" ("Why would anyone want $a0"
  		    "Yes, that would be nice"))
      ("I like (.+)" ("I like $a0 too!"))
      ("I demand (.+)" ("oh, you *demand* do you?"))
  