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: 
  (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 get-macro-spec (name env-dict)
      "Retrieves the macro spec of the given name with the given environment dictionary.
  SPEC is of the form (symbol-macro-p . expansion-function)."
      (gethash (find-ps-symbol name) env-dict))
    (defsetf get-macro-spec (name env-dict)
        (spec)
      `(setf (gethash (ps-intern ,name) ,env-dict) ,spec)))
  