swank-picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/swank-picolisp.git/
Log | Files | Refs

commit 1fd4ef5340fa5e83cbff0502bb6167b4c81a4cf9
parent bb3545e59d0d175a006f758811796ebdf76df9f3
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 28 Apr 2011 23:56:22 +0200

compute root dir in %swank:autodoc-built-in

Diffstat:
Mswank-picolisp.l | 10++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/swank-picolisp.l b/swank-picolisp.l @@ -97,8 +97,14 @@ (de *Swank:autodoc-built-in . NIL) (de %swank:autodoc-built-in (Nm) - (unless *Swank:autodoc-built-in - (in (list "sh" "-c" "grep '# (' ~/git/picolisp/src64/*.l | grep -v '# (c)'") + (unless *Swank:autodoc-built-in ## TODO determine src directory? + (in (list "sh" + "-c" + (pack + "grep '# (' " + (path "@") + "/src64" + "/*.l | grep -v '# (c)'" ) ) (use (@A @B) (until (eof) ## /home/tomas/git/picolisp/src64/sym.l:# (fold 'any ['cnt]) -> sym