[version 0.9.0
ediware**20070509050013] {
hunk ./CHANGELOG 1
+Version 0.9.0
+2007-05-08
+Changed behaviour of STR and ESC when "argument" is NIL (patch by Mac Chan)
+
hunk ./cl-who.asd 2
-;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.14 2007/04/27 19:09:27 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.15 2007/05/08 21:29:38 edi Exp $
hunk ./cl-who.asd 31
-  :version "0.8.1"
+  :version "0.9.0"
hunk ./doc/index.html 254
-current version is 0.8.1.
+current version is 0.9.0.
hunk ./doc/index.html 403
-      <li>Forms that look like <code>(<b>str</b> <i>form1</i> <i>form*</i>)</code> will be substituted with <code>(princ <i>form1</i> s)</code>. (Note that all forms behind <code><i>form1</i></code> are ignored.)
+      <li>Forms that look like <code>(<b>str</b> <i>form1</i> <i>form*</i>)</code> will be substituted with
+	  <span style="white-space: nowrap"><code>(let ((result <i>form1</i>)) (when result (princ result s)))</code></span>. <br>
+	  (Note that all forms behind <code><i>form1</i></code> are ignored.)
hunk ./doc/index.html 407
-<table border=0 cellpadding=2 cellspacing=3><tr><td><pre>(loop for i below 10 do (str i)) <font color="red">=&gt;</font> (loop for i below 10 do (princ i s))</pre></td></tr></table>
+<table border=0 cellpadding=2 cellspacing=3><tr><td><pre>(loop for i below 10 do (str i)) <font color="red">=&gt;</font> 
+(loop for i below 10 do
+   (let ((#:result i))
+     (when #:result (princ #:result *standard-output*))))</pre></td></tr></table>
hunk ./doc/index.html 415
-      <li>Forms that look like <code>(<b>esc</b> <i>form1</i> <i>form*</i>)</code> will be substituted with <code>(write-string (<a href="#escape-string">escape-string</a> <i>form1</i>) s)</code>.
+      <li>Forms that look like <code>(<b>esc</b> <i>form1</i> <i>form*</i>)</code> will be substituted with
+	  <span style="white-space: nowrap"><code>(let ((result <i>form1</i>)) (when result (write-string (<a href="#escape-string">escape-string</a> result s))))</code></span>.
hunk ./doc/index.html 780
-$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.52 2007/04/27 19:09:29 edi Exp $
+$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.53 2007/05/08 21:30:47 edi Exp $
hunk ./who.lisp 2
-;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.31 2007/04/27 09:33:42 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.32 2007/05/08 21:29:38 edi Exp $
hunk ./who.lisp 375
-                         ;; (ESC form ...) ->
-                         ;; (WRITE-STRING (ESCAPE-STRING form STREAM))
-                         (list 'write-string
-                               (list 'escape-string
-                                     (second x))
-                               stream))
+                        ;; (ESC form ...)
+                        ;; --> (LET ((RESULT form))
+                        ;;       (WHEN RESULT
+                        ;;         (WRITE-STRING (ESCAPE-STRING RESULT STREAM))))
+                        (let ((result (gensym)))
+                          `(let ((,result ,(second x)))
+                             (when ,result (write-string (escape-string ,result) ,stream)))))
hunk ./who.lisp 383
-                         ;; (STR form ...) --> (PRINC form STREAM)
-                         `(princ ,(second x) ,stream))
+                        ;; (STR form ...)
+                        ;; --> (LET ((RESULT form))
+                        ;;       (WHEN RESULT (PRINC RESULT STREAM)))
+                        (let ((result (gensym)))
+                          `(let ((,result ,(second x)))
+                             (when ,result (princ ,result ,stream)))))
hunk ./who.lisp 390
-                         ;; (FMT form*) --> (FORMAT STREAM form*)
-                         (list* 'format stream (rest x)))))
+                        ;; (FMT form*) --> (FORMAT STREAM form*)
+                        (list* 'format stream (rest x)))))
hunk ./who.lisp 404
-                                     (list* 'htm prologue +newline+
-                                            (tree-to-template tree))
-                                     (cons 'htm (tree-to-template tree)))
+                                   (list* 'htm prologue +newline+
+                                          (tree-to-template tree))
+                                   (cons 'htm (tree-to-template tree)))
}