[Ecls-list] Problem with environment access

Samium Gromoff _deepfire at feelingofgreen.ru
Wed Jul 1 10:55:02 UTC 2009


From: Waldek Hebisch <hebisch at math.uni.wroc.pl>
> The following program:
> 
> (defun |getEnv| (var-name)
>    (si::getenv var-name)
> )
> 
> (defun DaaseName (name)
>   (let (daase filename)
>    (declare (special $spadroot))
>    (if (setq daase (|getEnv| "DAASE"))
>     (progn
>         (format *standard-output* "DAASE=~S~%" daase)
>      (force-output *standard-output*)
>      (setq filename  (concatenate 'string daase "/algebra/" name))
>      (format t "   Using local database ~a.." filename))
>     (progn
>      (format *standard-output* "DAASE unset??? ~S~%" (|getEnv| "DAASE"))
>      (force-output *standard-output*)
>      (setq filename name)
>      )
>     )
>    filename))

Please, reading code with non-standard indentation is hard.

Yes there is one widely accepted standard of indenting lisp code --
the way Emacs does it. If you are using Vim, you probably should figure out
how to ask it to emulate. 


regards, Samium Gromoff




More information about the ecl-devel mailing list