Subject: Re: Conversion to keyword
From: rpw3@rpw3.org (Rob Warnock)
Date: Fri, 02 Feb 2007 03:53:35 -0600
Newsgroups: comp.lang.lisp
Message-ID: <8M-dnRuM7LSCl17YnZ2dnUVZ_qSrnZ2d@speakeasy.net>
Pillsy <pillsbury@gmail.com> wrote:
+---------------
| I have the following little function for doing such things:
| 
| (defun keywordify (symbol)
|   (intern (symbol-name symbol) :keyword))
+---------------

Might run a tiny bit faster if you only lookup the package once:

  (defun keywordify (symbol)
    (intern (symbol-name symbol)
	    (load-time-value (find-package :keyword))))


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607