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