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