From: Adam W. <li...@co...> - 2003-06-07 23:21:34
|
On Sun, 2003-06-08 at 02:23, Sam Steingold wrote: > > (ext:without-package-lock ("COMMON-LISP") > > (defun short-site-name () > > #.(read-line (ext:run-program "hostname" :output :stream)))) > > > > Leads to the warning: > > > > WARNING: > > DEFUN/DEFMACRO: redefining function short-site-name in > > /home/adam/.clisprc.fas, was defined in > > /home/adam/files/clisp/package/clisp-build/debian/build/config.fas > why don't you modify config.lisp at build time? While this was a minor request I can empathise that one would like to avoid cluttering up an implementation with dynamic variables (I don't think speed of function redefinition is an issue because the *warn-on-redefinition* predicate is EQ and not even tested when WHAT is usually NIL). It has only taken me a few minutes to replace the use of SHORT-SITE-NAME in my code with a new function called HOSTNAME. It is great learning the beginnings of how to modify CLISP and beginning to understand what it means to implement Lisp in C instead of Lisp in Lisp. Regards, Adam |