> はやくLISPはお色気路線にならないかなあ(;´Д`)

(cond ((numberp x) x)
      ((stringp x) x)
      ((bufferp x)
       (setq temporary-hack x)
       (buffer-name x))
      ((symbolp x) (symbol-value x)))

参考：2010/09/17(金)23時38分53秒