Missing comma in who.lisp

[m***@wemba.edu.pl]

Content preview: --- who.lisp~ 2012-10-05 17:16:12.007971946 +0200 +++ who.lisp
2012-10-09 21:08:39.026986297 +0200 @@ -117,7 +117,7 @@ ((eq ,=var= t) ,(case
*html-mode* (:sgml - `(fmt " ~A" attr)) + `(fmt " ~A" ,attr)) ;; otherwise
default to :xml mode (t `(fmt " ~A=~C~A~C" [...]

Content analysis details: (-2.1 points, 5.0 required)

pts rule name description
---- ---------------------- --------------------------------------------------
-0.0 SPF_HELO_PASS SPF: HELO matches SPF record
-0.0 SPF_PASS SPF: sender matches SPF record
-2.1 RP_MATCHES_RCVD Envelope sender domain matches handover relay domain
Archived-At: <http://permalink.gmane.org/gmane.lisp.who.general/311>

--- who.lisp~ 2012-10-05 17:16:12.007971946 +0200
+++ who.lisp 2012-10-09 21:08:39.026986297 +0200
@@ -117,7 +117,7 @@
((eq ,=var= t)
,(case *html-mode*
(:sgml
- `(fmt " ~A" attr))
+ `(fmt " ~A" ,attr))
;; otherwise default to :xml mode
(t
`(fmt " ~A=~C~A~C"

[Jeff Cunningham]

Post by m***@wemba.edu.pl
--- who.lisp~ 2012-10-05 17:16:12.007971946 +0200
+++ who.lisp 2012-10-09 21:08:39.026986297 +0200
@@ -117,7 +117,7 @@
((eq ,=var= t)
,(case *html-mode*
(:sgml
- `(fmt " ~A" attr))
+ `(fmt " ~A" ,attr))
;; otherwise default to :xml mode
(t
`(fmt " ~A=~C~A~C"
_______________________________________________
cl-who-devel site list
http://common-lisp.net/mailman/listinfo/cl-who-devel

A year ago this bug showed up. Is there some reason the fix hasn't been
incorporated yet? It's just a missing comma. I just set up a fresh Lisp
installation and ran into it again on a fresh copy of cl-who via quicklisp.

Best regards,

Jeff Cunningham