April 2007 - flexi-streams-devel@common-lisp.net

[flexi-streams-devel] New release 0.11.1
by Edi Weitz 10 Nov '07

10 Nov '07

ChangeLog: Version 0.11.1 2007-03-22 More ugliness for a bit of output performance in special cases Download: http://weitz.de/files/flexi-streams.tar.gz Cheers, Edi.

3 9

[flexi-streams-devel] Programmatic classes scrap boilerplate code
by Michael Weber 24 Apr '07

24 Apr '07

Hi Edi, I looked at flexi-streams' stream.lisp some time ago, and there seems to be a lot of boilerplate code to combine various mixins to specific stream classes. Then, there seems to be code for parsing and combining what basically amounts to mixin designators, which are then again mapped on the specific stream classes. The underlying issue is not new. AMOP describes a nice way around it which creates classes composed from several mixins programmatically. About a year or so ago, Christophe Rhodes fixed SBCL so that it accepts generalized class names. The support code is little, you can find it here (usage example at the end of this mail): http://www.foldr.org/~michaelw/lisp/amop-programmatic-class.lisp I can't tell how well this is supported in Lispworks and other implementations, but it might be worth opening trouble tickets if it's not. :) OTOH, I understand the cost that comes with maintaining special-cased code for non-supporting implementations. It might not be worth it. Still, I felt like sharing this, before I forget again. :) Cheers, Michael ;;; Example code: (progn (defclass shape () ()) (defclass circle (shape) ()) (defclass color () ()) (defclass orange (color) ()) (defclass mangenta (color) ()) (defclass label-type () ()) (defclass top-labeled (label-type) ()) (defclass bottom-labeled (label-type) ())) #|| ===> (class-direct-subclasses (find-class 'circle)) () ===> (defparameter *i1* (make-programmatic-instance '(circle orange top-labeled))) ===> (defparameter *i2* (make-programmatic-instance '(circle mangenta bottom-labeled))) ===> (defparameter *i3* (make-programmatic-instance '(circle orange top-labeled))) ===> (class-direct-subclasses (find-class 'circle)) (#<Standard-Class (CIRCLE MAGENTA BOTTOM-LABELED) > #<Standard-Class (CIRCLE ORANGE TOP-LABELED) >) ||#

2 1

[flexi-streams-devel] 0.11.1 trouble.
by quasi 05 Apr '07

05 Apr '07

Hey, I am running Hunchentoot 8.1. As soon as I upgraded to flexi-streams 0.11.1 I have encountered a weird problem. Hunchentoot (or anything else) threw no errors but the socket was getting closed unexpectedly I think, because links cribbed "error reading socket" or something. I am running Allegro 8.0 Enterprise 64bit on Redhat Linux. (problem also persisted on Allegro 8.0 for the Intel Mac's) As soon as I went back to 0.8.0 (my previous version) all worked as before. Am I doing something wrong here ? How can I help debug this more ? thanks, quasi

2 5