A brief note on diff and CL, for people who write functions with more#
Tue, 18 May 2004 11:24:22 +0000
A brief note on diff and CL, for people who write functions with more than four lines of body -
:; cvs diff -u -F '^(def' url.lisp Index: url.lisp =================================================================== RCS file: /usr/local/src/cvs/araneida/url.lisp,v retrieving revision 1.11 diff -u -F^(def -r1.11 url.lisp --- url.lisp 10 Jul 2003 08:53:19 -0000 1.11 +++ url.lisp 18 May 2004 10:30:13 -0000 @@ -252,7 +252,7 @@ (defun urlstring-escape (url-string) (apply #'concatenate 'string (loop for c across url-string if (urlstring-reserved-p c) - collect (format nil "%~X" (char-code c)) + collect (format nil "%~2,'0X" (char-code c)) else collect (string c))))
Emphasis mine.