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 f949275909b39a3e264b1a07381012e75955951c
parent 6426dd4f76bde8f0443958e35635e99d53cd7934
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 30 Apr 2011 15:53:35 +0200

use ^ in %swank:ensure-autodoc-built-in regexp

Diffstat:
Mswank-picolisp.l | 7+++----
1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/swank-picolisp.l b/swank-picolisp.l @@ -138,13 +138,12 @@ (de %swank:ensure-autodoc-built-in () (unless *Swank:autodoc-built-in - ## TODO use ^ in regexp! (if (== 64 64) (in (list "sh" "-c" - (pack "grep -n '# (' " + (pack "grep -n '\^# (' " (path "@src64") - "/*.l | grep -v '# (c)'" ) ) + "/*.l | grep -v '\^# (c)'" ) ) (use (@F @N @A @Z) (until (eof) (when (match '(@F ":" @N ":" "#" " " "(" @A " " @Z) (line)) @@ -155,7 +154,7 @@ (pack @Z) (pack @F) (format (pack @N)) ) ) ) ) ) ) - (in (list "sh" "-c" (pack "grep -n '// (' " (path "@src") "/*.c" )) + (in (list "sh" "-c" (pack "grep -n '\^// (' " (path "@src") "/*.c" )) (use (@F @N @A @Z) (until (eof) (when (match '(@F ":" @N ":" "/" "/" " " "(" @A " " @Z) (line))