ChangeLog:
Version 0.8.1
2007-04-04
Added HUNCHENTOOT-MP package (suggested by Cyrus Harmon)
Only invoke MARK-AND-SWEEP for 32-bit versions of LW (thanks to Chris Dean)
Exported REASON-PHRASE
Download:
http://weitz.de/files/hunchentoot.tar.gz
Have fun,
Edi.
_______________________________________________
tbnl-announce site list
tbnl-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/tbnl-announce
Sat Mar 31 00:37:03 CST 2007, ctian
* Release 0.01
* SNMP support: v1 and v2c, get
_______________________________________________
cl-net-snmp-announce mailing list
cl-net-snmp-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-announce
A new version of cl-json is now available.
JSON is a language independent text format for data-interchange. JSON is
especially convenient in web applications, since it is a subset of the
literal object notation of ECMAScript. It can also be an alternative to
XML. JSON has good open-source support in many languages.
Some new features in cl-json are json-rpc and json-bind.
Get it by darcs:
darcs get http://common-lisp.net/project/cl-json/darcs/cl-json
Or you can also get it by asdf-install.
cl-json now depends on parenscript.
darcs get http://common-lisp.net/project/ucw/repos/parenscript
cl-json homepage:
http://common-lisp.net/project/cl-json/
/Henrik Hjelte
_______________________________________________
cl-json-announce mailing list
cl-json-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-json-announce
On Mon, 19 Mar 2007 17:00:35 -0700, "Mac Chan" <emailmac(a)gmail.com> wrote:
> Another handy use of cl-who is to generate xml testing data, like so:
>
> (with-html
> (loop repeat 500 do
> (htm
> (:|Item|
> (:|ASIN| (str (format nil "~D" (random 9999999999))))
> (:|DetailPageURL| "http://www.amazon.com/")
> (:|ItemAttributes|
> (:|Author| (str (conc (random-word) " " (random-word))))
> (:|Manufacturer| (str (random-word)))
> (:|ProductGroup| (str (random-word)))
> (:|Title| (str (conc (random-word) " " (random-word)" "
> (random-word)))))))))
>
>
> Attached is a simple patch to introduce a special var
> cl-who:*downcase-tag* to control whether cl-who should downcase
> tagname by default.
Thanks, I've now released a new version which incorporates your patch.
_______________________________________________
cl-who-announce site list
cl-who-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/cl-who-announce
We have tagged CVS with the tag ELEPHANT-0-6-1-BETA. OpenMCL still
needs verification, but has been verified in the past so I don't
think it's much work and the current tree seems very stable and
addresses all the outstanding issues we documented and discovered
for 0.6.1.
This would be a good time to do a trial upgrade of your existing
databases and try to incorporate this release in running systems.
There may still be bugs, but we don't anticipate any major
changes. From this point it is mostly documentation and augmenting
the test suite where we can and with any luck there will be a
release candidate in a week or two.
Regards,
Ian Eslick and Robert Read
_______________________________________________
elephant-announce site list
elephant-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-announce
On Sun, 18 Mar 2007 19:20:52 -0400, "Andrei Stebakov" <lispercat(a)gmail.com> wrote:
> When I call it (get-bounding-rect "Some #\Newline text" "arial" 50)
> I get an error:
>
> Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
Ah, yes, there was a bug in there. Thanks for the report. The new
release should fix that.
> (defun get-bounding-rect (text font font-size)
> (with-image* (0 0)
> (let ((rect (draw-freetype-string 0 0 text
> :do-not-draw t
> :font-name font
> :angle 0
> :line-spacing 1.05d0
> :color (find-color 0 0 255 :resolve t)
> :point-size font-size)))
> (values (- (aref rect 2) (aref rect 0)) (- (aref rect 3) (aref rect
> 5)) (aref rect 0) (aref rect 1) rect))))
Here's an easier version:
(defun get-bounding-rect (text font font-size)
(let ((rect (draw-freetype-string 0 0 text
:do-not-draw t
:font-name font
:line-spacing 1.05d0
:point-size font-size)))
(values (- (aref rect 2) (aref rect 0))
(- (aref rect 3) (aref rect 5))
(aref rect 0)
(aref rect 1)
rect)))
> I think it doesn't like my :line-spacing 1.05d0 parameter.
That wasn't really the problem (but it showed the symptoms).
> Also I am not sure that I can provide a string with #Newline.
You can't do it the way you did. There are basically two easy ways to
do it in portable Common Lisp. Number one:
(get-bounding-rect "Some
text" "arial" 50)
Number two:
(get-bounding-rect #.(format nil "Some~%text") "arial" 50)
Or use CL-INTERPOL:
(get-bounding-rect #?"Some\ntext" "arial" 50)
Cheers,
Edi.
_______________________________________________
cl-gd-announce mailing list
cl-gd-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-gd-announce