Moving a symbol from one obarray to another

[Greg Hill <ghill@synergymicro.com>]

My objective is to move a symbol from one obarray to another.  The 
following routine seems to do that ok.

(defun move-symbol (sym-name from-obarray to-obarray)
   "Move symbol named SYM-NAME from FROM-OBARRAY to TO-OBARRAY"
   (let ((old-sym (intern-soft sym-name from-obarray))
           (new-sym (intern sym-name to-obarray)) )
     (set new-sym (symbol-value old-sym))
     (fset new-sym (symbol-function old-sym))
     (setplist new-sym (symbol-plist old-sym))
     (unintern sym-name from-obarray) ))

My question is, is there a more efficient way to do that, e.g. 
without creating a whole new symbol and destroying the old one?

--Greg