Heime <[email protected]> writes:
>
> I have done the following - a function returning an alist which I call
> via (myalist) to set the variable value
>
>
> (defun myalist ()
> "Docstring"
>
> (let ( (waypt orellana-waypt) )
> `( (ORLNA . ,waypt)
> (GLXKS . ,(concat basewaypt "/galaxiakos"))
> (HKDMR . ,(concat waypt "/hakudo-maru"))
> (TKYNS . ,(concat waypt "/tachyons"))
> (SVMTR . ,(concat waypt "/servomotor"))
> (AMZNS . ,(concat waypt "/amazones"))
> (GRVDR . ,(concat waypt "/groovador"))
> (KGIZA . ,(concat waypt "/groovador/kasrgiza"))
> (MTJRA . ,(concat waypt "/montejura"))) ))
>
> (defvar this (myalist)
> orellana-fpln-dokette)
>
An alternate you might be able to use:
(defun myalist (waypt base)
"Create a table of symbols and paths using WAYPT and BASE."
`((ORLNA . ,waypt)
(GLXKS . ,(concat base "/galaxiakos"))
(HKDMR . ,(concat waypt "/hakudo-maru"))
(TKYNS . ,(concat waypt "/tachyons"))
(SVMTR . ,(concat waypt "/servomotor"))
(AMZNS . ,(concat waypt "/amazones"))
(GRVDR . ,(concat waypt "/groovador"))
(KGIZA . ,(concat waypt "/groovador/kasrgiza"))
(MTJRA . ,(concat waypt "/montejura"))))
(defvar orellana-fpln-dokette "some docstring for ‘this’")
(defvar this (myalist orellana-waypt basewaypt)
orellana-fpln-dokette)
--
The lyf so short, the craft so long to lerne.
- Geoffrey Chaucer, The Parliament of Birds.
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.