A brief note on diff and CL, for people who write functions with more than four lines of body -

A brief note on diff and CL, for people who write functions with more than four lines of body -

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.


Comments?

This blog has no comment-publishing facility: it's all done by hand. Feedback is welcome, though: if you would like to get in touch, email me on comment2010 @ telent . net and I will publish your thoughts (unless you tell me you don't want me to) as an addendum to the article, provided only that in my view they are interesting, amusing, relevant, accurate, or (best) some combination of the four. Relevant links are welcome in support of your argument: spam and untargeted requests for help are not.

telent netowrks

Geeky stuff about what I do. Many include Lisp, Android, Javascript, Linux and matters arising. For my other personality (less tech and more skating/cycling), see coruskate