anchor.diff:  
   (defun get-ps-special-form (name)
     "Returns the special form function corresponding to the given name."
  -  (gethash (ps-intern name) *ps-special-forms*))
  +  (gethash (find-ps-symbol name) *ps-special-forms*))
   
   (defun add-ps-literal (name &aux (sym (ps-intern name)))
     (setf (gethash sym *ps-literals*) sym))
  
positive.code: 
  (defmethod print-object ((obj parenscript-symbol) stream)
    (format stream "~a" (name-of obj)))
  
  (defun ps-intern (thing)
    (if (typep thing 'parenscript-symbol) thing
  
negative.code: (defun ps-special-form-p (form)
    (and (consp form)
         (symbolp (car form))
         (gethash (find-ps-symbol (car form)) *ps-special-forms*)))
  
  (defun ps-literal-p (symbol)
    (gethash (find-ps-symbol symbol) *ps-literals*))
  
  (defun op-form-p (form)
    (and (listp form)
  