From efuzzyone at netscape.net  Mon Jan  2 19:25:22 2006
From: efuzzyone at netscape.net (Surendra Singhi)
Date: Mon, 02 Jan 2006 12:25:22 -0700
Subject: [Bese-devel] Iterate download error
Message-ID: <64p2bffh.fsf@netscape.net>

Hi,
 The download link for iterate both on the home page and cliki gives error and
doesn't work. 

http://common-lisp.net/project/iterate/releases/iterate-current.tar.gz

Thanks.

-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| WHY SHOULD WE SAVE TIGER?  	
| Ans: Saving the tiger means saving mankind..	
| 
| Help http://pudang.tripod.com/
| or https://secure.worldwildlife.org/forms/tiger_appeal_1.cfm
`----




From efuzzyone at netscape.net  Mon Jan  2 20:21:20 2006
From: efuzzyone at netscape.net (Surendra Singhi)
Date: Mon, 02 Jan 2006 13:21:20 -0700
Subject: [Bese-devel] ucw + clisp : getting started
Message-ID: <zmme9y9r.fsf@netscape.net>

Hi again,
  I am trying to use ucw on windows box with clisp. I downloaded the ucw_dev
darcs repository. Installed all the packages except iterate, installed
mod_lisp and added the entries mentioned in the mod-lisp-httpd13.conf
to httpd.conf.

Now when I try to load the start.lisp file I get the following and several
other errors.

Is it possible to use ucw with clisp? If yes then what am I doing wrong, or am
I missing something? 

;; Loading file start.lisp ...
;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
dev\src\string.lisp ...
*** - READ from
       #<INPUT BUFFERED FILE-STREAM CHARACTER
         #P"C:\\Documents and Settings\\Owner\\.asdf-install-dir\\site\\arnesi_d
ev\\src\\string.lisp"
         @136>
      : #<PACKAGE CHARSET> has no external symbol with name "UTF-16"


;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
dev\src\call-cc\interpreter.lisp ...
*** - EVAL: undefined function STRCAT
The following restarts are available:

etc.

Thanks
-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| Great wits are sure to madness near allied,
| And thin partitions do their bounds divide.
| 
|     (John Dryden, Absalom and Achitophel, 1681)
`----




From cyberlync at gmail.com  Tue Jan  3 03:11:04 2006
From: cyberlync at gmail.com (Eric Merritt)
Date: Mon, 2 Jan 2006 19:11:04 -0800
Subject: [Bese-devel] Iterate download error
In-Reply-To: <64p2bffh.fsf@netscape.net>
References: <64p2bffh.fsf@netscape.net>
Message-ID: <f69c840c0601021911seb2f31fw4448df4bf50caf25@mail.gmail.com>

I had the same issue. Fortunately you can pass a url directly to
asdf-install and the previous version of iterate is available. so just
do a

(asdf-install:install
"http://common-lisp.net/project/iterate/releases/iterate_1.4.tar.gz")

 All of the 1.4.1 packages seem to have the permissions screwed up. So
this is latest one that you can actually get. I can't actually verify
that this is new enough as I am having a different set of issues.


On 1/2/06, Surendra Singhi <efuzzyone at netscape.net> wrote:
> Hi,
>  The download link for iterate both on the home page and cliki gives error and
> doesn't work.
>
> http://common-lisp.net/project/iterate/releases/iterate-current.tar.gz
>
> Thanks.
>
> --
> Surendra Singhi
> http://www.public.asu.edu/~sksinghi/index.html
>
> ,----
> | WHY SHOULD WE SAVE TIGER?
> | Ans: Saving the tiger means saving mankind..
> |
> | Help http://pudang.tripod.com/
> | or https://secure.worldwildlife.org/forms/tiger_appeal_1.cfm
> `----
>
>
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
>


From cyberlync at gmail.com  Tue Jan  3 08:30:08 2006
From: cyberlync at gmail.com (Eric Merritt)
Date: Tue, 3 Jan 2006 00:30:08 -0800
Subject: [Bese-devel] 'TYPE-ERROR: The value NIL is not of type REAL' when
	starting ucw/httpd
Message-ID: <f69c840c0601030030s73df02cdoc259bc1b3d77a8d0@mail.gmail.com>

I get the following error when I start ucw using start.lisp script.
Indeed even if I just use

(ucw:create-server :backend :httpd)

 the error results. The error is:

 debugger invoked on a TYPE-ERROR: The value NIL is not of type REAL.

I have a feeling that this problem has something to do with the
rfc2388 package, though I don't really have much evidence to back this
up.

  I am using sbcl 0.9.8 on latest version of ubuntu linux. I am using
all the latest versions of the prereqs with the exception of iterate.
The download is broken there so I am using version 1.4 instead of
version 1.4.1. I installed all of the prerequisites and saved the
image out using (sb-ext:save-lisp-and-die "name" :purify t). On
reinvoking the saved image and attempting to start the server I got
the error detailed above.

I am really stumped and could use a bit of direction.

Thanks,
  Eric


From cjstuij at gmail.com  Tue Jan  3 14:49:22 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Tue, 3 Jan 2006 15:49:22 +0100
Subject: [Bese-devel] Iterate download error
In-Reply-To: <f69c840c0601021911seb2f31fw4448df4bf50caf25@mail.gmail.com>
References: <64p2bffh.fsf@netscape.net>
	<f69c840c0601021911seb2f31fw4448df4bf50caf25@mail.gmail.com>
Message-ID: <d7ce4ebf0601030649p3ef6103dr360e97d163531570@mail.gmail.com>

>  All of the 1.4.1 packages seem to have the permissions screwed up. So
> this is latest one that you can actually get. I can't actually verify
> that this is new enough as I am having a different set of issues.

The permissions on the file is wrong, it is owned by marcs and the
maintainer of iterate doesn't have root permissions, arccording to the
iterate_dev list:
http://common-lisp.net/pipermail/iterate-devel/2005-December/000100.html
I've already sent him a mail a few days back. For me ucw_dev compiled
fine with 1.4.

Ties


From cjstuij at gmail.com  Thu Jan  5 14:14:18 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Thu, 5 Jan 2006 15:14:18 +0100
Subject: [Bese-devel] 'TYPE-ERROR: The value NIL is not of type REAL' when
	starting ucw/httpd
In-Reply-To: <f69c840c0601030030s73df02cdoc259bc1b3d77a8d0@mail.gmail.com>
References: <f69c840c0601030030s73df02cdoc259bc1b3d77a8d0@mail.gmail.com>
Message-ID: <d7ce4ebf0601050614v6098f844kc15b5ff78e46f464@mail.gmail.com>

I guess this text from the ucw download page is an extended typo since
ucw and ucw_dev were merged. the command-line command doesn't work,
and ucw_dev is hardly to be called stable, or might i be wrong?:

Stable

The latest version of UCW is in the darcs repository at:
http://common-lisp.net/project/ucw/repos/ucw_dev.

$ darcs get http://common-lisp.net/project/ucw/repos/ucw


From asf at boinkor.net  Thu Jan  5 15:27:56 2006
From: asf at boinkor.net (Andreas Fuchs)
Date: Thu, 05 Jan 2006 16:27:56 +0100
Subject: [Bese-devel] Iterate download error
In-Reply-To: <64p2bffh.fsf@netscape.net>
References: <64p2bffh.fsf@netscape.net>
Message-ID: <87lkxulmo3.wl%asf@boinkor.net>

On 2006-01-02, Surendra Singhi <efuzzyone at netscape.net> wrote:
> Hi, The download link for iterate both on the home page and cliki
> gives error and doesn't work.
>
> http://common-lisp.net/project/iterate/releases/iterate-current.tar.gz

Thanks to the gracious intervention of Erik Enge (a common-lisp.net
admin) the permissions on that file are now correct again.

Thanks for your patience,
-- 
Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs


From waldo at trianet.net  Thu Jan  5 18:27:54 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Thu, 5 Jan 2006 13:27:54 -0500
Subject: [Bese-devel] Lisp question
Message-ID: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>

I apologize for posting this Lisp-related question here, but I have  
been looking for a Lisp mailing list and could not find it. Since  
I've been learning Lisp to use UCW, I hope you guys understand me.  
Addtionally, If anyone can point me to a Lisp mailing list, I would  
appreciate it.

Anyway, I'm developing a small test program with multiple modules. I  
defined a file as:

(defpackage :my-package (:use common-lisp :it.bese.ucw :it.bese.yacml))
(in-package my-package)

(defclass my-class () (attr1 attr2 attr3))

(defun get-my-class ()
   (let ((klass (make-instance 'my-class)))
     (setf (slot-value klass 'attr1 123))
     (setf (slot-value klass 'attr2 456))
     (setf (slot-value klass 'attr3 789))
     klass))

When in REPL, if I do:

CL-USER> (in-package my-package)
MY-PACKAGE> (setf klass (my-package::get-my-class))
#<MY-PACKAGE::MY-CLASS #x8A98CAE>

MY-PACKAGE> (slot-value klass 'attr1)
123

However, when I do the following at the REPL:

MY-PACKAGE> (in-package cl-user)
CL-USER> (setf klass (my-package::get-my-class))
#<MY-PACKAGE::MY-CLASS #x8A98CAE>

CL-USER> (slot-value klass 'attr1)

I get a debug window:

#<MY-PACKAGE:MY-CLASS #x8A98CAE> has no slot named ATTR1.
   [Condition of type SIMPLE-ERROR]

It seems as if when I'm not in my package, I cannot refer to class  
attributes defined there. Help please.

Thanks,
Waldo



From rm at mh-freiburg.de  Thu Jan  5 19:02:35 2006
From: rm at mh-freiburg.de (R. Mattes)
Date: Thu, 05 Jan 2006 20:02:35 +0100
Subject: [Bese-devel] Lisp question
In-Reply-To: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
References: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
Message-ID: <1136487755.22804.30.camel@hobbes.mh-freiburg.de>

On Thu, 2006-01-05 at 13:27 -0500, Waldo Rubinstein wrote:
> I apologize for posting this Lisp-related question here, but I have  
> been looking for a Lisp mailing list and could not find it. Since  
> I've been learning Lisp to use UCW, I hope you guys understand me.  
> Addtionally, If anyone can point me to a Lisp mailing list, I would  
> appreciate it.
> 
> Anyway, I'm developing a small test program with multiple modules. I  
> defined a file as:
> 
> (defpackage :my-package (:use common-lisp :it.bese.ucw :it.bese.yacml))
> (in-package my-package)
> 
> (defclass my-class () (attr1 attr2 attr3))
> 
> (defun get-my-class ()
>    (let ((klass (make-instance 'my-class)))
>      (setf (slot-value klass 'attr1 123))
>      (setf (slot-value klass 'attr2 456))
>      (setf (slot-value klass 'attr3 789))
>      klass))
> 
> When in REPL, if I do:
> 
> CL-USER> (in-package my-package)
> MY-PACKAGE> (setf klass (my-package::get-my-class))
> #<MY-PACKAGE::MY-CLASS #x8A98CAE>
> 
> MY-PACKAGE> (slot-value klass 'attr1)
> 123
> 
> However, when I do the following at the REPL:
> 
> MY-PACKAGE> (in-package cl-user)
> CL-USER> (setf klass (my-package::get-my-class))
> #<MY-PACKAGE::MY-CLASS #x8A98CAE>
> 
> CL-USER> (slot-value klass 'attr1)
> 
> I get a debug window:
> 
> #<MY-PACKAGE:MY-CLASS #x8A98CAE> has no slot named ATTR1.
>    [Condition of type SIMPLE-ERROR]
> 
> It seems as if when I'm not in my package, I cannot refer to class  
> attributes defined there. Help please.

That one is easy: a slot name is a symbol. All symbols live in
packages. You need to call:

 (slot-value klass 'my-pacakge::attr1)

[this looks slightly ugly. But then, direct access to slots
isn't either, use accessors and export those from my-package]

 HTH Ralf Mattes
 

> Thanks,
> Waldo
> 
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060105/04c4861e/attachment.sig>

From waldo at trianet.net  Thu Jan  5 19:40:10 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Thu, 5 Jan 2006 14:40:10 -0500
Subject: [Bese-devel] Lisp question
In-Reply-To: <1136487755.22804.30.camel@hobbes.mh-freiburg.de>
References: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
	<1136487755.22804.30.camel@hobbes.mh-freiburg.de>
Message-ID: <9AE2A99F-43EA-475C-87D3-DEE0235DC987@trianet.net>

Thanks a bunch. That clarifies it perfectly.

- Waldo

On Jan 5, 2006, at 2:02 PM, R. Mattes wrote:

> On Thu, 2006-01-05 at 13:27 -0500, Waldo Rubinstein wrote:
>> I apologize for posting this Lisp-related question here, but I have
>> been looking for a Lisp mailing list and could not find it. Since
>> I've been learning Lisp to use UCW, I hope you guys understand me.
>> Addtionally, If anyone can point me to a Lisp mailing list, I would
>> appreciate it.
>>
>> Anyway, I'm developing a small test program with multiple modules. I
>> defined a file as:
>>
>> (defpackage :my-package (:use common- 
>> lisp :it.bese.ucw :it.bese.yacml))
>> (in-package my-package)
>>
>> (defclass my-class () (attr1 attr2 attr3))
>>
>> (defun get-my-class ()
>>    (let ((klass (make-instance 'my-class)))
>>      (setf (slot-value klass 'attr1 123))
>>      (setf (slot-value klass 'attr2 456))
>>      (setf (slot-value klass 'attr3 789))
>>      klass))
>>
>> When in REPL, if I do:
>>
>> CL-USER> (in-package my-package)
>> MY-PACKAGE> (setf klass (my-package::get-my-class))
>> #<MY-PACKAGE::MY-CLASS #x8A98CAE>
>>
>> MY-PACKAGE> (slot-value klass 'attr1)
>> 123
>>
>> However, when I do the following at the REPL:
>>
>> MY-PACKAGE> (in-package cl-user)
>> CL-USER> (setf klass (my-package::get-my-class))
>> #<MY-PACKAGE::MY-CLASS #x8A98CAE>
>>
>> CL-USER> (slot-value klass 'attr1)
>>
>> I get a debug window:
>>
>> #<MY-PACKAGE:MY-CLASS #x8A98CAE> has no slot named ATTR1.
>>    [Condition of type SIMPLE-ERROR]
>>
>> It seems as if when I'm not in my package, I cannot refer to class
>> attributes defined there. Help please.
>
> That one is easy: a slot name is a symbol. All symbols live in
> packages. You need to call:
>
>  (slot-value klass 'my-pacakge::attr1)
>
> [this looks slightly ugly. But then, direct access to slots
> isn't either, use accessors and export those from my-package]
>
>  HTH Ralf Mattes
>
>
>> Thanks,
>> Waldo
>>
>> _______________________________________________
>> bese-devel mailing list
>> bese-devel at common-lisp.net
>> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel



From waldo at trianet.net  Fri Jan  6 00:04:35 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Thu, 5 Jan 2006 19:04:35 -0500
Subject: [Bese-devel] Lisp question
In-Reply-To: <7e267a920601051155u54f1fd0dk60a8c88800735089@mail.gmail.com>
References: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
	<7e267a920601051155u54f1fd0dk60a8c88800735089@mail.gmail.com>
Message-ID: <ED388115-4722-4910-9D39-5F6E315F9BE0@trianet.net>

Thanks

- waldo

On Jan 5, 2006, at 2:55 PM, Peter Scott wrote:

> On 1/5/06, Waldo Rubinstein <waldo at trianet.net> wrote:
>> I apologize for posting this Lisp-related question here, but I have
>> been looking for a Lisp mailing list and could not find it. Since
>> I've been learning Lisp to use UCW, I hope you guys understand me.
>> Addtionally, If anyone can point me to a Lisp mailing list, I would
>> appreciate it.
>
> Have you tried the Usenet newsgroup comp.lang.lisp?
>
> http://groups.google.com/group/comp.lang.lisp
>
> -Peter



From cjstuij at gmail.com  Fri Jan  6 15:04:24 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Fri, 6 Jan 2006 16:04:24 +0100
Subject: [Bese-devel] parenscript bug
Message-ID: <d7ce4ebf0601060704m32c085adj2ab1e3399ef26492@mail.gmail.com>

it seems i have a bug in my parenscript on cmucl on freebsd. i guess
it might have to do with the recent changes from henrik hjelte, since
my compilation stops at the macro css-inline and he added it two weeks
ago. parenscript works fine under my sbcl under linux.

here the top part of the debugger message:

Error in function C::DUMP-STRUCTURE:  Attempt to dump invalid
structure:
  #<KERNEL::STANDARD-CLASS JS::EXPRESSION {488EE195}>
How did this happen?
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {4851F665}> on
#<ASDF:CL-SOURCE-FILE "js-html" {488FC93D}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {4851F665}> on
#<ASDF:CL-SOURCE-FILE "js-html" {488FC93D}> as having been successful.
  2: [ABORT-REQUEST] Abort handling SLIME request.
  3: [ABORT] Return to Top-Level.

Backtrace:
  0: (C::DUMP-STRUCTURE #<KERNEL::STANDARD-CLASS JS::EXPRESSION
{488EE195}> #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  1: (C::DUMP-NON-IMMEDIATE-OBJECT #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}> #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  2: (C::DUMP-LIST (FUNCTION (&REST T) #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  3: (C::DUMP-NON-IMMEDIATE-OBJECT (FUNCTION (&REST T)
#<KERNEL::STANDARD-CLASS JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-h$
  4: (C::DUMP-OBJECT (FUNCTION (&REST T) #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  5: (C::DUMP-ONE-ENTRY #S(C::ENTRY-INFO :CLOSURE-P NIL :OFFSET
#<NEW-ASSEM:LABEL 1> :NAME JS::JS-CSS-INLINE :ARGUMENTS "(&rest
forms)" :TYPE (FUNCTION # #)) 236$
  6: (C::FASL-DUMP-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE"> #<NEW-ASSEM:SEGMENT 482C32A5 
NAME= "Regular"> 320 ((# . 2) (# $
  7: (C::NATIVE-COMPILE-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE">)
  8: (C::COMPILE-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE">)
  9: (C::COMPILE-TOP-LEVEL (#<LAMBDA 482B741D  NAME= "Top-Level Form" 
TYPE= #  WHERE-FROM= :DEFINED  VARS= NIL>) NIL)




and here the last cmucl messages:

; Byte Compiling Top-Level Form:

; /usr/home/zeno/lisp/lib/parenscript/js.x86f written.
; Compilation finished in 0:00:57.
; Loading #P"/usr/home/zeno/lisp/lib/parenscript/js.x86f".

; Python version 1.1, VM version Intel x86 on 06 JAN 06 03:45:06 pm.
; Compiling: /usr/home/zeno/lisp/lib/parenscript/js-html.lisp 01 JAN
06 12:32:00 pm

; Converted OPTIMIZE-STRING-LIST.
; Compiling DEFUN OPTIMIZE-STRING-LIST:
; Converted PROCESS-HTML-FORMS.
; Compiling DEFUN PROCESS-HTML-FORMS:
; Converted JS-HTML.
; Compiling DEFINE-JS-COMPILER-MACRO HTML:
; Converted PROCESS-CSS-FORMS.
; Compiling DEFUN PROCESS-CSS-FORMS:
; Converted JS-CSS-INLINE.
; Compiling DEFINE-JS-COMPILER-MACRO CSS-INLINE:


From whalliburton at gmail.com  Fri Jan  6 22:53:03 2006
From: whalliburton at gmail.com (William Halliburton)
Date: Fri, 6 Jan 2006 17:53:03 -0500
Subject: [Bese-devel] Reloading with actions.
Message-ID: <4e7bd29e0601061453l65281dc9vbb04bf20d8fedc6f@mail.gmail.com>

Is there a way to not repeat actions when reloading the page?

Thank you.
William Halliburton
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060106/2776fff7/attachment.html>

From madmonky1 at gmail.com  Sat Jan  7 04:21:56 2006
From: madmonky1 at gmail.com (David Karn)
Date: Fri, 6 Jan 2006 20:21:56 -0800
Subject: [Bese-devel] Reloading with actions.
In-Reply-To: <4e7bd29e0601061453l65281dc9vbb04bf20d8fedc6f@mail.gmail.com>
References: <4e7bd29e0601061453l65281dc9vbb04bf20d8fedc6f@mail.gmail.com>
Message-ID: <2a6ff8780601062021x7ccaf9cuab9a1ad88f522a9a@mail.gmail.com>

Try using (defaction name :isolate ...)

On 1/6/06, William Halliburton <whalliburton at gmail.com> wrote:
>
>  Is there a way to not repeat actions when reloading the page?
>
>  Thank you.
>  William Halliburton
>


From sketerpot at gmail.com  Thu Jan  5 19:55:35 2006
From: sketerpot at gmail.com (Peter Scott)
Date: Thu, 5 Jan 2006 13:55:35 -0600
Subject: [Bese-devel] Lisp question
In-Reply-To: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
References: <6CD0620C-9EC8-4C00-9725-F088F9967F24@trianet.net>
Message-ID: <7e267a920601051155u54f1fd0dk60a8c88800735089@mail.gmail.com>

On 1/5/06, Waldo Rubinstein <waldo at trianet.net> wrote:
> I apologize for posting this Lisp-related question here, but I have
> been looking for a Lisp mailing list and could not find it. Since
> I've been learning Lisp to use UCW, I hope you guys understand me.
> Addtionally, If anyone can point me to a Lisp mailing list, I would
> appreciate it.

Have you tried the Usenet newsgroup comp.lang.lisp?

http://groups.google.com/group/comp.lang.lisp

-Peter


From efuzzyone at netscape.net  Mon Jan  9 03:20:33 2006
From: efuzzyone at netscape.net (Surendra Singhi)
Date: Sun, 08 Jan 2006 22:20:33 -0500
Subject: [Bese-devel] Re: Iterate download error
References: <64p2bffh.fsf@netscape.net> <87lkxulmo3.wl%asf@boinkor.net>
Message-ID: <irsunl32.fsf@netscape.net>

Andreas Fuchs <asf at boinkor.net> writes:

> On 2006-01-02, Surendra Singhi <efuzzyone at netscape.net> wrote:
>> Hi, The download link for iterate both on the home page and cliki
>> gives error and doesn't work.
>>
>> http://common-lisp.net/project/iterate/releases/iterate-current.tar.gz
>
> Thanks to the gracious intervention of Erik Enge (a common-lisp.net
> admin) the permissions on that file are now correct again.
>
Thanks to everyone here as well as on the iterate list for the replies.

-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| "O thou my friend! The prosperity of Crime is like unto the lightning,
| whose traitorous brilliancies embellish the atmosphere but for an
| instant, in order to hurl into death's very depths the luckless one
| they have dazzled." -- Marquis de Sade
`----



From henrik.hjelte at poboxes.com  Mon Jan  9 12:17:07 2006
From: henrik.hjelte at poboxes.com (Henrik Hjelte)
Date: Mon, 09 Jan 2006 13:17:07 +0100
Subject: [Bese-devel] parenscript bug
In-Reply-To: <d7ce4ebf0601060704m32c085adj2ab1e3399ef26492@mail.gmail.com>
References: <d7ce4ebf0601060704m32c085adj2ab1e3399ef26492@mail.gmail.com>
Message-ID: <1136809028.4022.130.camel@localhost.localdomain>

On fre, 2006-01-06 at 16:04 +0100, Ties Stuij wrote:
> it seems i have a bug in my parenscript on cmucl on freebsd. i guess
> it might have to do with the recent changes from henrik hjelte, since
> my compilation stops at the macro css-inline and he added it two weeks
> ago. parenscript works fine under my sbcl under linux.

I found the bug on cmucl under Linux as well. Strange one this. The
solution is simply to change the last line of the file js-html to call
js-compile instead of js-compile-to-expression (darcs patch is
attached).

darcs whatsnew
{
hunk ./js-html.lisp 72
-  (js-compile-to-expression (cons '+ (process-css-forms forms))))
+  (js-compile (cons '+ (process-css-forms forms))))
}

But why? All that js-compile-to-expression does is wrap the call to
js-compile in a typecheck. 

(defun js-compile-to-expression (form)
  (let ((res (js-compile form)))
    (assert (typep res 'expression))
    res))

Why this makes the cmucl compiler complain about an invalid structure I
don't know. It will remain one of the worlds unresolved mysteries if no
one can explain this, I am just a pragmatic guy happy that it works now.

/Henrik Hjelte


> 
> here the top part of the debugger message:
> 
> Error in function C::DUMP-STRUCTURE:  Attempt to dump invalid
> structure:
>   #<KERNEL::STANDARD-CLASS JS::EXPRESSION {488EE195}>
> How did this happen?
>    [Condition of type SIMPLE-ERROR]

-------------- next part --------------

New patches:

[css-inline compiles with cmucl
henrik.hjelte at poboxes.com**20060109113602] {
hunk ./js-html.lisp 72
-  (js-compile-to-expression (cons '+ (process-css-forms forms))))
+  (js-compile (cons '+ (process-css-forms forms))))
}

Context:

[New function gen-js-name-string
Marco Baringer <mb at bese.it>**20051219160435
 This allows you to get a unique javascript name as a string and not
 just as a symbol.
] 
[bugfix slot-value
henrik.hjelte at poboxes.com**20051219131901] 
[bug in dwim-join
henrik.hjelte at poboxes.com**20051218171724] 
[css-inline generator
henrik.hjelte at poboxes.com**20051218111426] 
[cleaned reference
henrik.hjelte at poboxes.com**20051217095257] 
[tests from the reference
henrik.hjelte at poboxes.com**20051216180844] 
[quotes in introduction
henrik.hjelte at poboxes.com**20051216153949] 
[Added defgenerics for all the defmethods
Alan-Shields at omrf.ouhsc.edu**20051201191709
 Ze style warnings! Zey drive me craaaazy.
] 
[enable #+parenscript
Alan-Shields at omrf.ouhsc.edu**20051115235351
 To integrate Parenscript with Araneida without requiring Parenscript,
 I had to do some compile conditionals. This would make it much easier.
 
 Marco, eventually I am going to add this to every last one of your projects.
 ;-p
] 
[need a function for css-inlining
Alan-Shields at omrf.ouhsc.edu**20051115235233
 If you have code that needs to inline CSS across an array, it's difficult
 to use the current macro.
 Having a function helps - mapping the macro to the function only completes
 things.
] 
[Proper concatenation of inline CSS
Alan-Shields at omrf.ouhsc.edu**20051115234812
 CSS-INLINE does a simple concatenation of the results of CSS directives.
 This looks like:
 	color:blacksize:200%
 Unfortunately, it should look like this:
 	color:black;size:200%
 
 It now does.
] 
[added COPYING file
Luca Capello <luca at pca.it>**20051107123047] 
[Escape { and } chars in boring regexps
Marco Baringer <mb at bese.it>**20051107102118] 
[Need to escape #\' in javascript strings
Marco Baringer <mb at bese.it>**20051005090942] 
[Fix buf in JS-INLINE causing infinite macro expansion
Marco Baringer <mb at bese.it>**20051005082900] 
[Add in checks to deal with functions/macros whose names aren't symbols
Marco Baringer <mb at bese.it>**20050912081700] 
[Use strings, and not symbols, to name javascript functions/macros
Marco Baringer <mb at bese.it>**20050905082735
 
 This effectivly flattens the namespace of javascript code. While this
 change makes js similar to javascript, and removes the need to export
 symbols from the JS package, it may break previous code which depended
 on, for expample, js:and not being equivalent to js:and.
 
] 
[Added support for literal objects ( "{ ... }" syntax)
Marco Baringer <mb at bese.it>**20050905081702] 
[Export cen-js-names and with-unique-js-names
Marco Baringer <mb at bese.it>**20050831115820] 
[Added docstrings to previous patch
Marco Baringer <mb at bese.it>**20050815135128] 
[Added GEN-JS-NAME and WITH-UNIQUE-JS-NAMES
Marco Baringer <mb at bese.it>**20050815134940] 
[dotimes-dolist-fix
Ivan Toshkov <itoshkov at gmail.com>**20050815080906
 
 Fixes the infinite loop problems of `dotimes' and `dolist'.
] 
[Parenscript, documentation not withstandanding, does not depend on htmlgen
Marco Baringer <mb at bese.it>**20050815080053] 
[Attempt to improve the conversion of (js ((lambda ...) ...))
Marco Baringer <mb at bese.it>**20050815074902] 
[Introduce the JS-LAMBDA class. Make JS-DEFUN a subclass of JS-LAMBDA
Marco Baringer <mb at bese.it>**20050815074836] 
[Implement JS and JS-INLINE in terms of JS* and JS-INLINE*
Marco Baringer <mb at bese.it>**20050815063921] 
[Symbols starting with #\: are left as is, no case conversion or other mangling
Marco Baringer <mb at bese.it>**20050814141629] 
[Added JS* and JS-INLINE*. 
Marco Baringer <mb at bese.it>**20050814134534] 
[Javascript strings need to be quated with ' and not " to avoid interfering with the surrounding HTML.
Marco Baringer <mb at bese.it>**20050814134344] 
[Ugly hack to support ((lambda ...) ...)
Marco Baringer <mb at bese.it>**20050813142023] 
[Mention that I'm maintaining this version of parenscript
Marco Baringer <mb at bese.it>**20050813135238] 
[Rename the system/package in the system definition, just renaming the file doesn't cut it :(.
Marco Baringer <mb at bese.it>**20050813135107] 
[Added images used in documentation
Marco Baringer <mb at bese.it>**20050813134441] 
[Added the pbook.py file used to generate the documentation
Marco Baringer <mb at bese.it>**20050813133732] 
[Added declare ignore forms for unused function arguments
Marco Baringer <mb at bese.it>**20050808154843] 
[Rename system def
Marco Baringer <mb at bese.it>**20050808154836] 
[Setup boringfile
Marco Baringer <mb at bese.it>**20050726100549] 
[Added files from parenscript 0.1.0 as distributed by Manuel Odendahl
Marco Baringer <mb at bese.it>**20050726100416] 
Patch bundle hash:
7443a55534c2a05ed58e178be3e0b896fc828298

From mb at bese.it  Mon Jan  9 12:38:17 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 13:38:17 +0100
Subject: [Bese-devel] Reddit in UCW
In-Reply-To: <20051223210818.GA10417@terra.galaxy> (Tonguc Yumruk's message of
	"Fri, 23 Dec 2005 23:08:21 +0200")
References: <20051223210818.GA10417@terra.galaxy>
Message-ID: <m24q4d60g6.fsf@soma.local>

Tonguc Yumruk <tongucyumruk at member.fsf.org> writes:

> Hi,
>
> After watching the Reddit in 20 Minutes video [1] from Sven Van
> Caekenberghe [2] I decided to write a UCW version of it. It took about
> 45 minutes to write it (remember, I'm a newbie). So, the code is
> available here [3] for download.

cool!

mind if i link to this from ucw's hame page?

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Mon Jan  9 13:58:46 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 14:58:46 +0100
Subject: [Bese-devel] Developing with ucw without threads
In-Reply-To: <20051231153923.GB98412@starfury.scode.org> (Peter Schuller's
	message of "Sat, 31 Dec 2005 16:39:24 +0100")
References: <20051229183735.GA78388@starfury.scode.org>
	<17332.62072.878354.934800@thalassa.informatimago.com>
	<20051231153923.GB98412@starfury.scode.org>
Message-ID: <m2lkxp5wq1.fsf@soma.local>

Peter Schuller <peter.schuller at infidyne.com> writes:

>> > lack of threads means UCW cannot start the swank server. How do people
>> > develop UCW applications in an environment without threads, without
>> > having to restart UCW all the time (after making changes)?
>> 
>> I just interrupt ucw, and while in the debugger, load the new
>> functions, then continue.
>
> Alright. Thanks!

i've used the admin repl for this purpose as well (which can be used
without access to the console).

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Mon Jan  9 14:02:34 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 15:02:34 +0100
Subject: [Bese-devel] clone-backtracks question
In-Reply-To: <20051229234629.72037.qmail@web34608.mail.mud.yahoo.com>
	(Aleksandar Bakic's message of "Thu,
	29 Dec 2005 15:46:29 -0800 (PST)")
References: <20051229234629.72037.qmail@web34608.mail.mud.yahoo.com>
Message-ID: <m2hd8d5wjp.fsf@soma.local>

Aleksandar Bakic <a_bakic at yahoo.com> writes:

> Hi,
>
> I hit a case (hard to debug and reproduce) when copy-tree seems to get into an
> infinite recursion. I suspect that happens in clone-backtracks (places and
> slots are being copied), because I am not aware of other calls to copy-tree.
> Has anyone seen this situation before; any suggestions?

i've not seen this issue before. the only reason copy-tree would hit
an infinite recursion is due to a circularity in the backtracks list
(which wolud be really really strange). you could try adding this:

(assert (proper-list-p backtracks)
        (backtracks)
        "The backtracks list is NOT proper. WTF!?!")

to clone-backtracks before the call to copy-tree.

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Mon Jan  9 14:07:21 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 15:07:21 +0100
Subject: [Bese-devel] ucw + clisp : getting started
In-Reply-To: <zmme9y9r.fsf@netscape.net> (Surendra Singhi's message of "Mon,
	02 Jan 2006 13:21:20 -0700")
References: <zmme9y9r.fsf@netscape.net>
Message-ID: <m2d5j15wbq.fsf@soma.local>

Surendra Singhi <efuzzyone at netscape.net> writes:

> ;; Loading file start.lisp ...
> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
> dev\src\string.lisp ...
> *** - READ from
>        #<INPUT BUFFERED FILE-STREAM CHARACTER
>          #P"C:\\Documents and Settings\\Owner\\.asdf-install-dir\\site\\arnesi_d
> ev\\src\\string.lisp"
>          @136>
>       : #<PACKAGE CHARSET> has no external symbol with name "UTF-16"
>
>
> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
> dev\src\call-cc\interpreter.lisp ...
> *** - EVAL: undefined function STRCAT
> The following restarts are available:

i'm guessing that you're using a clisp without unicode (if you do have
unicode enabled but utf-16 is not exported from the charset package
then something's wrong with your clisp). i'll add a check to the clisp
specific code in arnesi to deal with this.

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Mon Jan  9 14:10:30 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 15:10:30 +0100
Subject: [Bese-devel] 'TYPE-ERROR: The value NIL is not of type REAL' when
	starting ucw/httpd
In-Reply-To: <f69c840c0601030030s73df02cdoc259bc1b3d77a8d0@mail.gmail.com>
	(Eric Merritt's message of "Tue, 3 Jan 2006 00:30:08 -0800")
References: <f69c840c0601030030s73df02cdoc259bc1b3d77a8d0@mail.gmail.com>
Message-ID: <m28xtp5w6h.fsf@soma.local>

Eric Merritt <cyberlync at gmail.com> writes:

> I get the following error when I start ucw using start.lisp script.
> Indeed even if I just use
>
> (ucw:create-server :backend :httpd)
>
>  the error results. The error is:
>
>  debugger invoked on a TYPE-ERROR: The value NIL is not of type REAL.

the only thing i can think of is asdf not finding a file (this cryptic
error is due to asdf performing #'< on the result of file-write-date,
which returns nil for inexistient files). but i can't be sure without
a backtrace, does the occur while calling asdf:perform (or maybe
asdf:traverse) or does it occur inside ucw specific code?

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Mon Jan  9 14:13:42 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 15:13:42 +0100
Subject: [Bese-devel] parenscript bug
In-Reply-To: <1136809028.4022.130.camel@localhost.localdomain> (Henrik
	Hjelte's message of "Mon, 09 Jan 2006 13:17:07 +0100")
References: <d7ce4ebf0601060704m32c085adj2ab1e3399ef26492@mail.gmail.com>
	<1136809028.4022.130.camel@localhost.localdomain>
Message-ID: <m21wzh5w15.fsf@soma.local>

Henrik Hjelte <henrik.hjelte at poboxes.com> writes:

> On fre, 2006-01-06 at 16:04 +0100, Ties Stuij wrote:
>> it seems i have a bug in my parenscript on cmucl on freebsd. i guess
>> it might have to do with the recent changes from henrik hjelte, since
>> my compilation stops at the macro css-inline and he added it two weeks
>> ago. parenscript works fine under my sbcl under linux.
>
> I found the bug on cmucl under Linux as well. Strange one this. The
> solution is simply to change the last line of the file js-html to call
> js-compile instead of js-compile-to-expression (darcs patch is
> attached).

applied. thanks. (i'm not going to bother to figure our if this cures
the problem or just hides the symptom).

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From cjstuij at gmail.com  Mon Jan  9 14:47:03 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Mon, 9 Jan 2006 15:47:03 +0100
Subject: [Bese-devel] string to list riddle
Message-ID: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>

I've got an absurd problem on my hands here that keeps me banging my
head against the wall. I was just wondering if i am coping here with
an obvious ucw environment misconception or that i am utterly
clueless.

The problem is this: i'm trying to tie norvig's elisa code to a
web-interface. I feed the output of a form into the eliza internals.
The minor problem here is that the form output is a string and eliza
expects a list of symbols. Norvig himself supplies a string-to-list
convertor and everything works fine in the repl. HOWEVER, when i try
this setup in a ucw page, the response is not recognized. I can play
with the list created with string-to-list all i want: making a list
out of the individual elements for example. it doens't matter, eliza
won't recognize the sequence. On the other hand, if i play with a list
a bit which was a list from the start, when i put it back together
again it WILL be recognized. So there is something inheritly different
about the string-to-list list. Mind you: only in the ucw environment.
I loosened every pattern-match comparison in eliza to equalp: no
change in the situation.

facts:
- if i feed the eliza accessor a list in the page it returns the expected result
- in the page the string is converted correctly to a list of symbols
- everything works fine in the repl
- but when on a page the list is converted by string-to-list and then
is being fed to eliza, it is not recognized by the patternmatcher
inside eliza
- i tried a couple of string-to-list convertors, all working
satisfactionally in the repl, on the page, but not recognized by eliza
on the page

The situation is utterly absurd. Can someone make me sane again?
Ties

ps: for reference, one of the string-to-list functions

(defun read-line-no-punct (input)
  (read-from-string (concatenate 'string "(" input ")" )))


From mb at bese.it  Mon Jan  9 15:49:50 2006
From: mb at bese.it (Marco Baringer)
Date: Mon, 09 Jan 2006 16:49:50 +0100
Subject: [Bese-devel] string to list riddle
In-Reply-To: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>
	(Ties Stuij's message of "Mon, 9 Jan 2006 15:47:03 +0100")
References: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>
Message-ID: <m2ek3hwgdd.fsf@soma.local>

Ties Stuij <cjstuij at gmail.com> writes:

> facts:
> - if i feed the eliza accessor a list in the page it returns the expected result
> - in the page the string is converted correctly to a list of symbols
> - everything works fine in the repl
> - but when on a page the list is converted by string-to-list and then
> is being fed to eliza, it is not recognized by the patternmatcher
> inside eliza
> - i tried a couple of string-to-list convertors, all working
> satisfactionally in the repl, on the page, but not recognized by eliza
> on the page

based on your description i can't nake any sense out of it. do you
have some code me can see?

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From whalliburton at gmail.com  Mon Jan  9 15:34:37 2006
From: whalliburton at gmail.com (William Halliburton)
Date: Mon, 9 Jan 2006 10:34:37 -0500
Subject: [Bese-devel] Server pushing
Message-ID: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>

Is it currently possible to have a page saying "Please wait - processing"
that then changes when the calculation is finished server side?

Thank you,
Will
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060109/6a49f7f9/attachment.html>

From waldo at trianet.net  Mon Jan  9 16:08:02 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Mon, 9 Jan 2006 11:08:02 -0500
Subject: [Bese-devel] Server pushing
In-Reply-To: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
References: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
Message-ID: <CCC22125-D21A-4E7E-8510-B68C60E25A83@trianet.net>

I haven't even done one app in UCW yet, but I would assume that in  
general, the concept of continuations itself should allow you to do  
this seamlessly.

Forget about traditional web app development. Think of your code as a  
fat application running locally on the local UI:

1) Run application code
2) User selects a button that triggers a time-consuming process
3) App presents a please wait page
4) App runs time-consuming task
5) App changes the please wait page to the page showing results

- Waldo

P.S. I've done this in Squeak/Seaside, which is a Smalltalk  
continuation framework

On Jan 9, 2006, at 10:34 AM, William Halliburton wrote:

>
> Is it currently possible to have a page saying "Please wait -  
> processing" that then changes when the calculation is finished  
> server side?
>
> Thank you,
> Will
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel



From whalliburton at gmail.com  Mon Jan  9 17:07:24 2006
From: whalliburton at gmail.com (William Halliburton)
Date: Mon, 9 Jan 2006 12:07:24 -0500
Subject: [Bese-devel] Server pushing
In-Reply-To: <CCC22125-D21A-4E7E-8510-B68C60E25A83@trianet.net>
References: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
	<CCC22125-D21A-4E7E-8510-B68C60E25A83@trianet.net>
Message-ID: <4e7bd29e0601090907j14cb1bbdo1834999c0c786c7c@mail.gmail.com>

I guess I am asking how to change the page from the server side.

Will

On 1/9/06, Waldo Rubinstein <waldo at trianet.net> wrote:
>
> I haven't even done one app in UCW yet, but I would assume that in
> general, the concept of continuations itself should allow you to do
> this seamlessly.
>
> Forget about traditional web app development. Think of your code as a
> fat application running locally on the local UI:
>
> 1) Run application code
> 2) User selects a button that triggers a time-consuming process
> 3) App presents a please wait page
> 4) App runs time-consuming task
> 5) App changes the please wait page to the page showing results
>
> - Waldo
>
> P.S. I've done this in Squeak/Seaside, which is a Smalltalk
> continuation framework
>
> On Jan 9, 2006, at 10:34 AM, William Halliburton wrote:
>
> >
> > Is it currently possible to have a page saying "Please wait -
> > processing" that then changes when the calculation is finished
> > server side?
> >
> > Thank you,
> > Will
> > _______________________________________________
> > bese-devel mailing list
> > bese-devel at common-lisp.net
> > http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060109/5c7a6a85/attachment.html>

From waldo at trianet.net  Mon Jan  9 17:14:16 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Mon, 9 Jan 2006 12:14:16 -0500
Subject: [Bese-devel] Server pushing
In-Reply-To: <4e7bd29e0601090907j14cb1bbdo1834999c0c786c7c@mail.gmail.com>
References: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
	<CCC22125-D21A-4E7E-8510-B68C60E25A83@trianet.net>
	<4e7bd29e0601090907j14cb1bbdo1834999c0c786c7c@mail.gmail.com>
Message-ID: <20FB2DC6-6D91-45C7-B9FF-0D1356CB0BA3@trianet.net>

Like I said, I haven't done it in UCW. Maybe someone else can comment.

However, I would try doing something as simple as render a message  
page (with :metaclass standard-component-class), call your task, and  
have that task 'answer-component.

Maybe that's not the correct approach, but I would try going that  
route or look along that route. Anyone else care to comment?

- Waldo

On Jan 9, 2006, at 12:07 PM, William Halliburton wrote:

>
> I guess I am asking how to change the page from the server side.
>
> Will
>
> On 1/9/06, Waldo Rubinstein <waldo at trianet.net> wrote:
> I haven't even done one app in UCW yet, but I would assume that in
> general, the concept of continuations itself should allow you to do
> this seamlessly.
>
> Forget about traditional web app development. Think of your code as a
> fat application running locally on the local UI:
>
> 1) Run application code
> 2) User selects a button that triggers a time-consuming process
> 3) App presents a please wait page
> 4) App runs time-consuming task
> 5) App changes the please wait page to the page showing results
>
> - Waldo
>
> P.S. I've done this in Squeak/Seaside, which is a Smalltalk
> continuation framework
>
> On Jan 9, 2006, at 10:34 AM, William Halliburton wrote:
>
> >
> > Is it currently possible to have a page saying "Please wait -
> > processing" that then changes when the calculation is finished
> > server side?
> >
> > Thank you,
> > Will
> > _______________________________________________
> > bese-devel mailing list
> > bese-devel at common-lisp.net
> > http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
>
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060109/7d987488/attachment.html>

From henrik.hjelte at poboxes.com  Mon Jan  9 18:47:25 2006
From: henrik.hjelte at poboxes.com (Henrik Hjelte)
Date: Mon, 09 Jan 2006 19:47:25 +0100
Subject: [Bese-devel] Server pushing
In-Reply-To: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
References: <4e7bd29e0601090734v5c2aa70es1f6556ba1894479c@mail.gmail.com>
Message-ID: <1136832445.4022.184.camel@localhost.localdomain>

On m?n, 2006-01-09 at 10:34 -0500, William Halliburton wrote:
> 
> Is it currently possible to have a page saying "Please wait -
> processing" that then changes when the calculation is finished server
> side?

It is not possible to push HTML from the server side, not even with Lisp
or ucw. 

AFAIK the only ways are either to simulate it by polling from the client
side (with javascript), or easiest you can show the "Please wait" page
first, the do the calculation in a next request (a reload of the page,
triggered by javascript) that is slow but finally returns the answer. 

The Ajax technique (a version of polling) is to make a javascript
snippet that creates a XMLHttpRequest object in the browser. This object has a
property called onreadystatechange to which you can assign a function that is
called several times, but when the XMLHttpRequest objects readyState
property is 4, you know the document has been loaded and you can do what
you want to do.

/Henrik Hjelte

> 
> Thank you,
> Will
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel



From pjb at informatimago.com  Tue Jan 10 01:04:44 2006
From: pjb at informatimago.com (Pascal Bourguignon)
Date: Tue, 10 Jan 2006 02:04:44 +0100
Subject: [Bese-devel] string to list riddle
In-Reply-To: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>
References: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>
Message-ID: <17347.2092.801961.399986@thalassa.informatimago.com>

Ties Stuij writes:
> I've got an absurd problem on my hands here that keeps me banging my
> head against the wall. I was just wondering if i am coping here with
> an obvious ucw environment misconception or that i am utterly
> clueless.
> 
> The problem is this: i'm trying to tie norvig's elisa code to a
> web-interface. I feed the output of a form into the eliza internals.
> The minor problem here is that the form output is a string and eliza
> expects a list of symbols. Norvig himself supplies a string-to-list
> convertor and everything works fine in the repl. HOWEVER, when i try
> this setup in a ucw page, the response is not recognized. I can play
> with the list created with string-to-list all i want: making a list
> out of the individual elements for example. it doens't matter, eliza
> won't recognize the sequence. On the other hand, if i play with a list
> a bit which was a list from the start, when i put it back together
> again it WILL be recognized. So there is something inheritly different
> about the string-to-list list. Mind you: only in the ucw environment.
> I loosened every pattern-match comparison in eliza to equalp: no
> change in the situation.
> 
> facts:
> - if i feed the eliza accessor a list in the page it returns the 
>   expected result
> - in the page the string is converted correctly to a list of symbols
> - everything works fine in the repl
> - but when on a page the list is converted by string-to-list and then
> is being fed to eliza, it is not recognized by the patternmatcher
> inside eliza
> - i tried a couple of string-to-list convertors, all working
> satisfactionally in the repl, on the page, but not recognized by eliza
> on the page
> 
> The situation is utterly absurd. Can someone make me sane again?
> Ties
>
> ps: for reference, one of the string-to-list functions
> 
> (defun read-line-no-punct (input)
>   (read-from-string (concatenate 'string "(" input ")" )))

You should post more code.

Check that you're receiving a correctly decoded data flow, with some
strategically placed PRINT calls. (Remember that PRINT returns its
argument, so you can easily enclose any subexpression in a PRINT).


(defun read-line-no-punct (input)
  (let ((*read-eval* nil)) ; IS A MINIMUM.
    (read-from-string (concatenate 'string "(" 
         (substitute #\/ #\: input) ; To avoid problems with packages.
          ")" ))))

but this gives awful results:

(mapcar
 (lambda (input) (handler-case (read-line-no-punct input)
                          (error (err) (terpri) (princ err) (print err))))
 '("An inocent line."
   "Let's start the fun, with a inocent looking sentence."
   "I say: Try this!" 
   "Try: #.(mapcar (function delete-file) (directory \"**;*.*\"))"
   "A 1/0 relation between you and me!"
   "Have a nice day (-:"
   ))

prints:

READ: comma is illegal outside of backquote
#<SYSTEM::SIMPLE-READER-ERROR #x2050619E> 
READ from #<INPUT STRING-INPUT-STREAM>: *READ-EVAL* = NIL does not allow the evaluation of (MAPCAR
 #'DELETE-FILE (DIRECTORY "**;*.*"))

#<SYSTEM::SIMPLE-READER-ERROR #x20508B96> 
division by zero

#<SYSTEM::SIMPLE-READER-ERROR #x2050AF0E> 
READ: input stream #<INPUT STRING-INPUT-STREAM> ends within an object

#<SYSTEM::SIMPLE-END-OF-FILE #x2050C7DE> 

returns:

((AN INOCENT LINE.)
 #<SYSTEM::SIMPLE-READER-ERROR #x204FABA6> 
 (I SAY/ TRY THIS!)
 #<SYSTEM::SIMPLE-READER-ERROR #x204FD59E>
 #<SYSTEM::SIMPLE-READER-ERROR #x204FF916>
 #<SYSTEM::SIMPLE-END-OF-FILE #x205011E6>)


You'd need to hack a readtable to read correctly most of the macro
characters including #\# and #\,, but really you should scan the
natural language text yourself.  This READ-FROM-STRING Q&D hack works
when you control the input, for a AI research prototype, but not for a
program available on the web!


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

HEALTH WARNING: Care should be taken when lifting this product,
since its mass, and thus its weight, is dependent on its velocity
relative to the user.


From cjstuij at gmail.com  Tue Jan 10 08:34:00 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Tue, 10 Jan 2006 09:34:00 +0100
Subject: [Bese-devel] string to list riddle
In-Reply-To: <d7ce4ebf0601090955t10f7a06ev978c5592a7dd7661@mail.gmail.com>
References: <d7ce4ebf0601090647t46fb876l9f8a5ed43d6bb30b@mail.gmail.com>
	<m2ek3hwgdd.fsf@soma.local>
	<d7ce4ebf0601090955t10f7a06ev978c5592a7dd7661@mail.gmail.com>
Message-ID: <d7ce4ebf0601100034v2f1225d1qc97707f19ed40468@mail.gmail.com>

sorry, sent the code only to marco by mistake, here is the forward to
the mailing-list >

> have some code me can see?

sure, see the attachment.

the relevant part is in the render method on the eliza-viewer
component. The problem should be quite obvious: as you can see on the
output hml the string converted to a list and the natural list equate
to a different output from the eliza program. the first gives a
generic output, the second gives the output relevant to the input.

now on the repl try: (eliza-portal (string-to-list "i feel sad"))

which is equivalent to the string converted to a list in the render
method, with the difference that this one does give the relevant
output.

thanks for the trouble,
Ties
<


furthermore pascal writes:
>You'd need to hack a readtable to read correctly most of the macro
>characters including #\# and #\,, but really you should scan the
>natural language text yourself.

Thanks for the help, but you're overshooting the scope of the problem
at hand by a mile. Sure, i did /some/ checking for deviant characters
which i let out for simplicity, but that's not the problem here. The
text i parsed is: "i feel sad". That's it. Yet the environment of ucw
somehow prevents the correct parsing of the resulting list. Run the
code to see what i think is so absurd.

Ties
-------------- next part --------------
A non-text attachment was scrubbed...
Name: eliza-problem.lisp
Type: application/octet-stream
Size: 12519 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060110/a146739b/attachment.obj>

From efuzzyone at netscape.net  Thu Jan 12 18:32:23 2006
From: efuzzyone at netscape.net (Surendra Singhi)
Date: Thu, 12 Jan 2006 13:32:23 -0500
Subject: [Bese-devel] Re: ucw + clisp : getting started
References: <zmme9y9r.fsf@netscape.net> <m2d5j15wbq.fsf@soma.local>
Message-ID: <mzi1xpoo.fsf@netscape.net>

"Marco Baringer" <mb at bese.it> writes:

> Surendra Singhi <efuzzyone at netscape.net> writes:
>
>> ;; Loading file start.lisp ...
>> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
>> dev\src\string.lisp ...
>> *** - READ from
>>        #<INPUT BUFFERED FILE-STREAM CHARACTER
>>          #P"C:\\Documents and Settings\\Owner\\.asdf-install-dir\\site\\arnesi_d
>> ev\\src\\string.lisp"
>>          @136>
>>       : #<PACKAGE CHARSET> has no external symbol with name "UTF-16"
>>
>>
>> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
>> dev\src\call-cc\interpreter.lisp ...
>> *** - EVAL: undefined function STRCAT
>> The following restarts are available:
>
> i'm guessing that you're using a clisp without unicode (if you do have
> unicode enabled but utf-16 is not exported from the charset package
> then something's wrong with your clisp). i'll add a check to the clisp
> specific code in arnesi to deal with this.
>
I installed the latest version of clisp (2.37) and it seems that there is
still no utf-16. Though utf-8 and unicode-16 are present.

Thanks.
-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| "O thou my friend! The prosperity of Crime is like unto the lightning,
| whose traitorous brilliancies embellish the atmosphere but for an
| instant, in order to hurl into death's very depths the luckless one
| they have dazzled." -- Marquis de Sade
`----



From efuzzyone at netscape.net  Thu Jan 12 19:31:00 2006
From: efuzzyone at netscape.net (Surendra Singhi)
Date: Thu, 12 Jan 2006 14:31:00 -0500
Subject: [Bese-devel] Re: ucw + clisp : getting started
References: <zmme9y9r.fsf@netscape.net> <m2d5j15wbq.fsf@soma.local>
	<mzi1xpoo.fsf@netscape.net>
Message-ID: <ek3dxmyz.fsf@netscape.net>

Surendra Singhi <efuzzyone at netscape.net> writes:

> "Marco Baringer" <mb at bese.it> writes:
>
>> Surendra Singhi <efuzzyone at netscape.net> writes:
>>
>>> ;; Loading file start.lisp ...
>>> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
>>> dev\src\string.lisp ...
>>> *** - READ from
>>>        #<INPUT BUFFERED FILE-STREAM CHARACTER
>>>          #P"C:\\Documents and Settings\\Owner\\.asdf-install-dir\\site\\arnesi_d
>>> ev\\src\\string.lisp"
>>>          @136>
>>>       : #<PACKAGE CHARSET> has no external symbol with name "UTF-16"
>>>
>>>
>>> ;; Compiling file C:\Documents and Settings\Owner\.asdf-install-dir\site\arnesi_
>>> dev\src\call-cc\interpreter.lisp ...
>>> *** - EVAL: undefined function STRCAT
>>> The following restarts are available:
>>
>> i'm guessing that you're using a clisp without unicode (if you do have
>> unicode enabled but utf-16 is not exported from the charset package
>> then something's wrong with your clisp). i'll add a check to the clisp
>> specific code in arnesi to deal with this.
>>
> I installed the latest version of clisp (2.37) and it seems that there is
> still no utf-16. Though utf-8 and unicode-16 are present.
>

Using pisin's patch: 
http://thread.gmane.org/gmane.lisp.web.uncommonweb.devel/586

allows ucw_dev to be compiled, and executed. Though I am still not able to
make it work.

Also, if I try to compile uncommon web using allegro 7.0, I get the following
error: 

C:\Documents and Settings\Owner\.asdf-install-dir\site\ucw_dev\src\rerl\backtracking.fasl
Error: Class #<STANDARD-CLASS APPLICATION-FORM> is not yet finalized.
[condition type: PROGRAM-ERROR]
Error: Bad type of object (SYNONYM-STREAM) passed to parent.  The
       object was #<SYNONYM-STREAM @ #x20d1029a>.

Thanks.
-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| "All animals are equal, but some animals are more equal than others."
|     -- Orwell, Animal Farm, 1945
`----



From evrim at core.gen.tr  Thu Jan 12 20:51:48 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Thu, 12 Jan 2006 22:51:48 +0200
Subject: [Bese-devel] Templating
Message-ID: <43C6C164.1040303@core.gen.tr>

Hi,

This is my very post to list :) First of all, thanx for this great web
framework, i've quited java after several years.

I won't ask a simple "How to" question, but a workflow question about
web development. I've enough knowledge about templating and tried most
of the java frameworks. (struts, xml, cocoon, jsf, seam etc.) I've tried
two methodologies suggessted by ucw about templating:

* First one is "do it inside the code" which results html generation
inside any render() method of a component.  This requires developer to
form up html pages.
* Second method is simple use "TAL/TAGLIB" approach just like java. This
seems it allows web designer(not a developer) to shape up html pages.

My problem is about the web development methodology. Let us assume, we
have a team of people who are encouraged to develop web applications.
The main problem here is I could never achieved my
"dream-viewer/photoshop" addicted web designers to learn JSP/Struts (or
TAL for ucw case) tags. Since they'r not programmers, they just know
html and possibly some javascript.

In the light of this knowledge, i'm looking for solutions about an
applicable methodology. How do people here develop web apps in
coordination with web designers? Is it right to expect web-designers to
learn tags? Which method to use in order to form-up a good templating
system with ucw/lisp? How to bring developer and designer together so
that they can sum up their work? Is this method sufficient and agile?
And finally, if there is a method, which metrics exists and how one can
measure these metrics?

I'm not expecting a concrete answer, rather I want to discuss how ucw
attacks this kind of problems.

Thnx.
Evrim.


From waldo at trianet.net  Thu Jan 12 22:11:01 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Thu, 12 Jan 2006 17:11:01 -0500
Subject: [Bese-devel] Templating
In-Reply-To: <43C6C164.1040303@core.gen.tr>
References: <43C6C164.1040303@core.gen.tr>
Message-ID: <121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>

Evrim,

I have asked myself the same questions numerous times. I also  
participate in IRC channels from other frameworks and have also  
concluded that you should develop your application to spit out "ugly  
HTML" and let the designers work with CSS to do what they do best. If  
they cannot work efficiently with CSS, then look for other designers.

This is most clearly seen in a recent thread from Squeak/SeaSide. I  
very much enjoyed reading it. Feel free to read it on:

http://lists.squeakfoundation.org/pipermail/seaside/2006-January/ 
subject.html under the subject "Rails and Seaside"

In particular, you may want to read:

http://lists.squeakfoundation.org/pipermail/seaside/2006-January/ 
006449.html
http://lists.squeakfoundation.org/pipermail/seaside/2006-January/ 
006458.html
http://lists.squeakfoundation.org/pipermail/seaside/2006-January/ 
006460.html

BTW, the images from the http://lists.squeakfoundation.org/pipermail/ 
seaside/2006-January/006449.html post are attached.

Enjoy,
Waldo

-------------- next part --------------
A non-text attachment was scrubbed...
Name: Picture 7.png
Type: image/png
Size: 57075 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060112/a4146ca3/attachment.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Picture 8.png
Type: image/png
Size: 34723 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060112/a4146ca3/attachment-0001.png>
-------------- next part --------------


On Jan 12, 2006, at 3:51 PM, Evrim ULU wrote:

> Hi,
>
> This is my very post to list :) First of all, thanx for this great web
> framework, i've quited java after several years.
>
> I won't ask a simple "How to" question, but a workflow question about
> web development. I've enough knowledge about templating and tried most
> of the java frameworks. (struts, xml, cocoon, jsf, seam etc.) I've  
> tried
> two methodologies suggessted by ucw about templating:
>
> * First one is "do it inside the code" which results html generation
> inside any render() method of a component.  This requires developer to
> form up html pages.
> * Second method is simple use "TAL/TAGLIB" approach just like java.  
> This
> seems it allows web designer(not a developer) to shape up html pages.
>
> My problem is about the web development methodology. Let us assume, we
> have a team of people who are encouraged to develop web applications.
> The main problem here is I could never achieved my
> "dream-viewer/photoshop" addicted web designers to learn JSP/Struts  
> (or
> TAL for ucw case) tags. Since they'r not programmers, they just know
> html and possibly some javascript.
>
> In the light of this knowledge, i'm looking for solutions about an
> applicable methodology. How do people here develop web apps in
> coordination with web designers? Is it right to expect web- 
> designers to
> learn tags? Which method to use in order to form-up a good templating
> system with ucw/lisp? How to bring developer and designer together so
> that they can sum up their work? Is this method sufficient and agile?
> And finally, if there is a method, which metrics exists and how one  
> can
> measure these metrics?
>
> I'm not expecting a concrete answer, rather I want to discuss how ucw
> attacks this kind of problems.
>
> Thnx.
> Evrim.
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel


From evrim at core.gen.tr  Fri Jan 13 02:16:10 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Fri, 13 Jan 2006 04:16:10 +0200
Subject: [Bese-devel] i18n & ucw_dev
Message-ID: <43C70D6A.8050001@core.gen.tr>

Marco,

Could you tell us what is the current status of i18n support of ucw_dev
branch? I've seen several past posts but I'm not sure if they reflect
the current situation.

I know supplying an i18n-tal-generator is enough to generate language
specific tal templates. On the other hand, i'm not sure if this works
with my current configuration: mod_lisp+sbcl. Besides, I couldn't find a
downloadable cl-icu on common-lisp.net which i lately realized only
works for openmcl. Interestingly, my gentoo portage says it can install
icu-3.2 with cl-icu-.0.0_p11.

Btw, i couldn't find a resource bundle-like system inside ucw:(

Thanks for answering my countless questions.
Evrim.




From drewc at tech.coop  Fri Jan 13 11:10:42 2006
From: drewc at tech.coop (Drew Crampsie)
Date: Fri, 13 Jan 2006 06:10:42 -0500
Subject: [Bese-devel] i18n & ucw_dev
In-Reply-To: <43C70D6A.8050001@core.gen.tr>
References: <43C70D6A.8050001@core.gen.tr>
Message-ID: <43C78AB2.9070803@tech.coop>

Evrim ULU wrote:

>Marco,
>
>Btw, i couldn't find a resource bundle-like system inside ucw:(
>  
>
I've used cl-l10n with great success in past projects. (actually, 1 for 
2 is the success rate, but it was not cl-l10n's fault).

drewc

>Thanks for answering my countless questions.
>Evrim.
>
>
>_______________________________________________
>bese-devel mailing list
>bese-devel at common-lisp.net
>http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
>  
>



From mb at bese.it  Fri Jan 13 11:40:10 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 13 Jan 2006 12:40:10 +0100
Subject: [Bese-devel] Re: ucw + clisp : getting started
In-Reply-To: <ek3dxmyz.fsf@netscape.net> (Surendra Singhi's message of "Thu,
	12 Jan 2006 14:31:00 -0500")
References: <zmme9y9r.fsf@netscape.net> <m2d5j15wbq.fsf@soma.local>
	<mzi1xpoo.fsf@netscape.net> <ek3dxmyz.fsf@netscape.net>
Message-ID: <m2slrspd9h.fsf@soma.local>

Surendra Singhi <efuzzyone at netscape.net> writes:

> Using pisin's patch: 
> http://thread.gmane.org/gmane.lisp.web.uncommonweb.devel/586

i applied the second part of that patch. as for the names of the
charset i'm just going to leave the final clause, whatever keyword is
passed to encoding-keyword-to-native will be intrened into the charset
package. if you have the required encoding good, otherwise it's not
really arnesi's problem to figure out how to handle this. i do not
like the idea of silently converting one encoding (utf-16) into
another very similar but different (ucs-2), i think that's just asking
for some really hard to find bugs.

> allows ucw_dev to be compiled, and executed. Though I am still not able to
> make it work.
>
> Also, if I try to compile uncommon web using allegro 7.0, I get the following
> error: 
>
> C:\Documents and Settings\Owner\.asdf-install-dir\site\ucw_dev\src\rerl\backtracking.fasl
> Error: Class #<STANDARD-CLASS APPLICATION-FORM> is not yet finalized.
> [condition type: PROGRAM-ERROR]
> Error: Bad type of object (SYNONYM-STREAM) passed to parent.  The
>        object was #<SYNONYM-STREAM @ #x20d1029a>.

there's a call to with-call/cc in backtracking.lisp, with-call/cc
macro expands into a literal occurence of (among other things) an
instance of application-form. however, when backtracking.fasl is
loaded arnesi (and therefore application-form) should already be
loaded. what happens if put 

(eval-when (:compile-toplevel :load-toplevel :execute)
  (finalize-inheritenc (find-class 'application-form)))

after the defclass form which define application-form? (in
arnesi/src/walk.lisp).


-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Fri Jan 13 11:43:32 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 13 Jan 2006 12:43:32 +0100
Subject: [Bese-devel] Templating
In-Reply-To: <43C6C164.1040303@core.gen.tr> (Evrim ULU's message of "Thu,
	12 Jan 2006 22:51:48 +0200")
References: <43C6C164.1040303@core.gen.tr>
Message-ID: <m2hd88pd3v.fsf@soma.local>

Evrim ULU <evrim at core.gen.tr> writes:

> * First one is "do it inside the code" which results html generation
> inside any render() method of a component.  This requires developer to
> form up html pages.

when possible this, with a good css stylesheet, is the easiest option
(both for the developer and the designer).

> * Second method is simple use "TAL/TAGLIB" approach just like java. This
> seems it allows web designer(not a developer) to shape up html pages.
>
> My problem is about the web development methodology. Let us assume,
> we have a team of people who are encouraged to develop web
> applications.  The main problem here is I could never achieved my
> "dream-viewer/photoshop" addicted web designers to learn JSP/Struts
> (or TAL for ucw case) tags. Since they'r not programmers, they just
> know html and possibly some javascript.

if _all_ they know (and are willing to learn) is html+javascript then
there's absalutely no way they're going to help in making dynamic web
sites. period. 

> In the light of this knowledge, i'm looking for solutions about an
> applicable methodology. How do people here develop web apps in
> coordination with web designers? Is it right to expect web-designers to
> learn tags? Which method to use in order to form-up a good templating
> system with ucw/lisp? How to bring developer and designer together so
> that they can sum up their work? Is this method sufficient and agile?
> And finally, if there is a method, which metrics exists and how one can
> measure these metrics?

i've used three methodologies in the past:

1) produce a simple and ugly template first. let the designer mold
   that into whatever they need (using whateverl tools they need). the
   designer can basically ignore the tal tags and the ability to put
   dummy data directly into the tal template helps them keep things
   ordere.

2) produce a simple template with classes, attributes and ids placed
   so that the designer can create a good stylesheet (there's some
   back and forth between me and the desigenr as to what divs to put
   in and what to call them, but this isn't a big deal).

3) work with the same designer often enough so that she knows ucw+tal
   enough to make the whole issue moot :)

hth.
-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From mb at bese.it  Fri Jan 13 11:49:27 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 13 Jan 2006 12:49:27 +0100
Subject: [Bese-devel] i18n & ucw_dev
In-Reply-To: <43C70D6A.8050001@core.gen.tr> (Evrim ULU's message of "Fri,
	13 Jan 2006 04:16:10 +0200")
References: <43C70D6A.8050001@core.gen.tr>
Message-ID: <m23bjspcu0.fsf@soma.local>

Evrim ULU <evrim at core.gen.tr> writes:

> Could you tell us what is the current status of i18n support of ucw_dev
> branch? I've seen several past posts but I'm not sure if they reflect
> the current situation.

ucw's i18n support is limited to parsing the accept-language header
and putting that info into the context (this info is then used to
select language specific templates but can also be used by your own
app). this sholud work best with a (mod_lisp or httpd)+anything
setup. i'm now (slowly) finishing the work required to reliable deal
with non ascii data in requests and response.

other than that ucw's doesn't do anything, i don't think there's
anything else it should do either, but prove me wrong if you wish.

> I know supplying an i18n-tal-generator is enough to generate language
> specific tal templates. On the other hand, i'm not sure if this works
> with my current configuration: mod_lisp+sbcl. Besides, I couldn't find a
> downloadable cl-icu on common-lisp.net which i lately realized only
> works for openmcl. Interestingly, my gentoo portage says it can install
> icu-3.2 with cl-icu-.0.0_p11.

cl-icu was developed a year (or two) ago and was never actually used
for real-world work. it's presence in gentoo portage is a mistake (i
hope).

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen


From evrim at core.gen.tr  Fri Jan 13 17:56:12 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Fri, 13 Jan 2006 19:56:12 +0200
Subject: [Bese-devel] i18n & ucw_dev
In-Reply-To: <m23bjspcu0.fsf@soma.local>
References: <43C70D6A.8050001@core.gen.tr> <m23bjspcu0.fsf@soma.local>
Message-ID: <43C7E9BC.2090708@core.gen.tr>

Marco Baringer wrote:

> ucw's i18n support is limited to parsing the accept-language header
>
>and putting that info into the context (this info is then used to
>select language specific templates but can also be used by your own
>app). this sholud work best with a (mod_lisp or httpd)+anything
>setup. i'm now (slowly) finishing the work required to reliable deal
>with non ascii data in requests and response.
>
>other than that ucw's doesn't do anything, i don't think there's
>anything else it should do either, but prove me wrong if you wish.
>  
>
Ok, that would be enough for me i suppose. As Drew pointed, i've tried
cl-l10n package. It is similar to GNU Gettext and very easy to use with
the help of a simple macro like #"hello"=>"merhaba" (  _("hello") for
gnu gettext).

I'm looking forward for your i18n patch. Btw, I should thank Drew
Crampsie for pointing me the cl-l10n package:)

Thanks.
Evrim.


From evrim at core.gen.tr  Fri Jan 13 18:03:43 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Fri, 13 Jan 2006 20:03:43 +0200
Subject: [Bese-devel] Templating
In-Reply-To: <121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>
References: <43C6C164.1040303@core.gen.tr>
	<121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>
Message-ID: <43C7EB7F.70401@core.gen.tr>

Waldo Rubinstein wrote:

> Evrim,
>
> I have asked myself the same questions numerous times. I also 
> participate in IRC channels from other frameworks and have also 
> concluded that you should develop your application to spit out "ugly 
> HTML" and let the designers work with CSS to do what they do best. If 
> they cannot work efficiently with CSS, then look for other designers.
>
> This is most clearly seen in a recent thread from Squeak/SeaSide. I 
> very much enjoyed reading it. Feel free to read it on:

Hi Waldo,

Thanks for your answer, it was very enlightening. I want to ask some
specific question about "your way". Do you form up html pages using only
*div*'s? I mean, you do not try to form up a layout but just put
seperate content into different div's so that afterwards, designer can
lay them out quickly via configuring style's of distinct classes?

I am used to the layout using borderless table's and i'm not feeling
comfortable with them anymore due to the workflow problems I discussed
before.

Thnx.
Evrim.




From waldo at trianet.net  Fri Jan 13 19:07:25 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Fri, 13 Jan 2006 14:07:25 -0500
Subject: [Bese-devel] Templating
In-Reply-To: <7e267a920601131044md402b53t33cb07118439fc28@mail.gmail.com>
References: <43C6C164.1040303@core.gen.tr>
	<121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>
	<43C7EB7F.70401@core.gen.tr>
	<7e267a920601131044md402b53t33cb07118439fc28@mail.gmail.com>
Message-ID: <0B1B1535-E991-4AD9-B3CB-64E1DC452AF4@trianet.net>

Exactly. I try (as hard as it is for me) to stay away from tables. I  
try to visualize the pretty end-result and use div's as needed. But  
for the most part, what Peter says is the right way (IMHO).

- Waldo

On Jan 13, 2006, at 1:44 PM, Peter Scott wrote:

> On 1/13/06, Evrim ULU <evrim at core.gen.tr> wrote:
>> Thanks for your answer, it was very enlightening. I want to ask some
>> specific question about "your way". Do you form up html pages  
>> using only
>> *div*'s? I mean, you do not try to form up a layout but just put
>> seperate content into different div's so that afterwards, designer  
>> can
>> lay them out quickly via configuring style's of distinct classes?
>
> Not necessarily divs. Paragraphs should be in <p> tags, lists should
> be written as <ol> or <ul> lists depending on whether or not they are
> ordered, divs should represent logical divisions of the page, and
> everything should be liberally sprinkled with class and id attributes
> that make sense. The key point is that the structure of the
> information should be encoded in HTML, not the presentation---and
> there should be enough hooks for presentation to be easily added with
> CSS.
>
> Take a look at the CSS Zen Garden <http://www.csszengarden.com/> for a
> compelling demonstration of what a good designer can do with CSS to
> change the appearance and layout of nicely written HTML. Or look some
> more at the example Waldo posted; that was amazing.
>
> -Peter



From sketerpot at gmail.com  Fri Jan 13 18:44:34 2006
From: sketerpot at gmail.com (Peter Scott)
Date: Fri, 13 Jan 2006 12:44:34 -0600
Subject: [Bese-devel] Templating
In-Reply-To: <43C7EB7F.70401@core.gen.tr>
References: <43C6C164.1040303@core.gen.tr>
	<121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>
	<43C7EB7F.70401@core.gen.tr>
Message-ID: <7e267a920601131044md402b53t33cb07118439fc28@mail.gmail.com>

On 1/13/06, Evrim ULU <evrim at core.gen.tr> wrote:
> Thanks for your answer, it was very enlightening. I want to ask some
> specific question about "your way". Do you form up html pages using only
> *div*'s? I mean, you do not try to form up a layout but just put
> seperate content into different div's so that afterwards, designer can
> lay them out quickly via configuring style's of distinct classes?

Not necessarily divs. Paragraphs should be in <p> tags, lists should
be written as <ol> or <ul> lists depending on whether or not they are
ordered, divs should represent logical divisions of the page, and
everything should be liberally sprinkled with class and id attributes
that make sense. The key point is that the structure of the
information should be encoded in HTML, not the presentation---and
there should be enough hooks for presentation to be easily added with
CSS.

Take a look at the CSS Zen Garden <http://www.csszengarden.com/> for a
compelling demonstration of what a good designer can do with CSS to
change the appearance and layout of nicely written HTML. Or look some
more at the example Waldo posted; that was amazing.

-Peter


From waldo at trianet.net  Fri Jan 13 23:33:38 2006
From: waldo at trianet.net (Waldo Rubinstein)
Date: Fri, 13 Jan 2006 18:33:38 -0500
Subject: [Bese-devel] Lisp Versions (opensource)
Message-ID: <AB3F96D6-7416-4F57-9BF6-D88EEB20A2D8@trianet.net>

Hi guys,

I'm wondering if anyone can give me their opinion about which version  
of Lisp you guys recommend to run UCW apps.

I've been using OpenMCL on Mac. However, I was planning on using SBCL  
on Linux for the production environment. Then someone also  
recommended CMUCL. I see that both SBCL and CMUCL run on Linux but  
don't run as seamless on Mac (e.g. SBCL doesn't seem to support  
threads on Mac). Reading about the history of SBCL leads me to think  
that it seems "better" than CMUCL.

So far, what I've done is use OpenMCL on my Mac and then port to SBCL  
on Linux. Is this the right approach? I've already encountered some  
"compatibility" issues between certain libraries in SBCL and OpenMCL.  
If it was up to me, I would prefer to use the same environment for  
development and production to make sure that once tested in  
development, no further changes need to be made.

Sorry if this post doesn't belong here, but, after all, my objective  
is to develop UCW apps :)

Thanks,
Waldo


From evrim at core.gen.tr  Sat Jan 14 03:20:07 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Sat, 14 Jan 2006 05:20:07 +0200
Subject: [Bese-devel] Templating
In-Reply-To: <0B1B1535-E991-4AD9-B3CB-64E1DC452AF4@trianet.net>
References: <43C6C164.1040303@core.gen.tr>
	<121DD8B6-98F5-4369-A7BF-16FDFF687E2B@trianet.net>
	<43C7EB7F.70401@core.gen.tr>
	<7e267a920601131044md402b53t33cb07118439fc28@mail.gmail.com>
	<0B1B1535-E991-4AD9-B3CB-64E1DC452AF4@trianet.net>
Message-ID: <43C86DE7.3000303@core.gen.tr>

Waldo Rubinstein wrote:

> Exactly. I try (as hard as it is for me) to stay away from tables. I 
> try to visualize the pretty end-result and use div's as needed. But 
> for the most part, what Peter says is the right way (IMHO).

Hi Waldo,

While i was reading ucw_dev, i've found Marco's widget-component. It is
aimed to wrap content inside <div></div>. I may try to extend my
components from widget-component so that, when they'r rendered, they'll
be wrapped by a div. It has also css-id, css-class, css-style slots
which are very helpful in our case.

Hope this helps.
Evrim.


From cjstuij at gmail.com  Sat Jan 14 19:51:15 2006
From: cjstuij at gmail.com (Ties Stuij)
Date: Sat, 14 Jan 2006 20:51:15 +0100
Subject: [Bese-devel] publish directory
Message-ID: <d7ce4ebf0601141151w1222a88dye613a2c7ef3a404b@mail.gmail.com>

Hi there,

Yet again i am a bit clueless. must be the newbieness.

The mod-lisp backend doesnt work for me. With the mod-lisp backend i get:
Attempting to publish #P"/home/zeno/lisp/lib/ucw_dev/wwwroot/./" at
"/" but mod_lisp backend does not support publish-directory.

is there something simple i am missing?

followed the intall instructions to the letter, mod_lisp works fine
according to a testing file, tried apache 1,3 as well as 2. Tried on
linux as well as freebsd. Tried on sbcl as well as cmucl, all with the
same error message.

Everything is the latest version, ucw works fine with araneida.

any ideas?


From evrim at core.gen.tr  Sat Jan 14 19:41:58 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Sat, 14 Jan 2006 21:41:58 +0200
Subject: [Bese-devel] publish directory
In-Reply-To: <d7ce4ebf0601141151w1222a88dye613a2c7ef3a404b@mail.gmail.com>
References: <d7ce4ebf0601141151w1222a88dye613a2c7ef3a404b@mail.gmail.com>
Message-ID: <43C95406.4080802@core.gen.tr>

Ties Stuij wrote:

>Hi there,
>
>Yet again i am a bit clueless. must be the newbieness.
>
>The mod-lisp backend doesnt work for me. With the mod-lisp backend i get:
>Attempting to publish #P"/home/zeno/lisp/lib/ucw_dev/wwwroot/./" at
>"/" but mod_lisp backend does not support publish-directory.
>
>is there something simple i am missing?
>
>any ideas?
>
That's not an error. Other backends like portable-aserve/aranedia allows
a directory to be published for static content. Since you are using
mod_lisp+apache backend, apache will handle static content for you and
will forward dynamic content to ucw backend.

So, don't worry, it's not an error for your case.

evrim.


From albertosantini at tiscali.it  Tue Jan 17 22:49:42 2006
From: albertosantini at tiscali.it (Alberto Santini)
Date: Tue, 17 Jan 2006 23:49:42 +0100
Subject: [Bese-devel] How to use javascript?
Message-ID: <77ABD977-687B-4772-82BD-D012F584AE85@tiscali.it>

Hello.

I didn't understand how to use a javascript. If I hava a javascript,
how to call a function from ucw code?

I know I can "define" a javascript in a component
using :javascript keyword.

For instance

(defcomponent start-page (simple-window-component)
   ((body :initarg :body
          :accessor start-page.body
          :initform nil
          :component my-login))
   (:metaclass standard-component-class)
   (:default-initargs :title "ChessWeb" :javascript "ltpgnviewer.js"))

Then, how can I use the functions defined in my javascript?

Or have I to use a TAL page inserting my javascript?

Thanks in advance,
Alberto Santini





From root at common-lisp.net  Wed Jan 18 16:23:13 2006
From: root at common-lisp.net (root)
Date: Wed, 18 Jan 2006 10:23:13 -0600 (CST)
Subject: [Bese-devel] Auto-nag: bese link verifier failed
Message-ID: <20060118162313.7A86B157FD@common-lisp.net>

You are being nagged on because your project's
name showed up in the nightly Checkbot run.  Checkbot checks
for broken links etc.  This probably means that you are 
either pointing to a broken link or that someone is pointing
to a broken link on your site.  Or something else, it check's
a bunch of stuff.  Update your webpages or you shall be nagged
again next week.

To find out what's wrong with your webpages, please consult:

  http://common-lisp.net/checkbot/checkbot-common-lisp.net.html

Any questions?  You can reach the author of this cronjob at
admin at common-lisp.net

Thanks!


From evrim at core.gen.tr  Thu Jan 19 04:33:23 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Thu, 19 Jan 2006 06:33:23 +0200
Subject: [Bese-devel] accessing component via standard-application.
Message-ID: <43CF1693.60609@core.gen.tr>

Hi,

I'm trying to build a simple-window-component having simple-container as
body slot. I want to add and remove subcomponents of the
simple-container programatically.

What is the correct way to access components of an application using the
standard-application object?

Thanks.
Evrim.


From luca at pca.it  Fri Jan 20 09:12:14 2006
From: luca at pca.it (Luca Capello)
Date: Fri, 20 Jan 2006 10:12:14 +0100
Subject: [Bese-devel] Parenscript documentation: pbook or qbook?
Message-ID: <87bqy79sb5.fsf@gismo.pca.it>

Hello!

As now, parenscript use the pbook.py script to generate its
documentation.  As all the other software maintained by Marco in the
UCW umbrella has the documentation available through qbook, here my
question...

Is it worth to convert parenscript to qbook?

Thx, bye,
Gismo / Luca
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060120/20e88f40/attachment.sig>

From mb at bese.it  Fri Jan 20 11:19:54 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 20 Jan 2006 12:19:54 +0100
Subject: [Bese-devel] Re: accessing component via standard-application.
In-Reply-To: <43CF1693.60609@core.gen.tr>
References: <43CF1693.60609@core.gen.tr>
Message-ID: <dqqh0q$2kt$1@sea.gmane.org>

Evrim ULU wrote:
> Hi,
> 
> I'm trying to build a simple-window-component having simple-container as
> body slot. I want to add and remove subcomponents of the
> simple-container programatically.

can you provide a few more details? i'm a bit confused and i'd like to
avoid answering the 20 questions you may, or may not, be actually asking :)

> What is the correct way to access components of an application using the
> standard-application object?

instances of standard-application represent an entire ucw application,
with all the sessions and users it may have. there is no single
component tied to a standard-application. within a single
request/response loop there is a current "root" component which
represents the entire browser window as is available through
(context.window-component *context*)

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From evrim at core.gen.tr  Fri Jan 20 15:01:22 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Fri, 20 Jan 2006 17:01:22 +0200
Subject: [Bese-devel] Re: accessing component via standard-application.
In-Reply-To: <dqqh0q$2kt$1@sea.gmane.org>
References: <43CF1693.60609@core.gen.tr> <dqqh0q$2kt$1@sea.gmane.org>
Message-ID: <43D0FB42.9010007@core.gen.tr>

Marco Baringer wrote:

> instances of standard-application represent an entire ucw application,
>
>with all the sessions and users it may have. there is no single
>component tied to a standard-application. within a single
>request/response loop there is a current "root" component which
>represents the entire browser window as is available through
>(context.window-component *context*)
>  
>
Hi Marco,

So does this mean, there is no way to access components from outside the
req/resp loop since context is not available?

I've observed this also while trying to instantiate my widgets from
repl. This behaviour is same with the java's app servers, i suppose. It
makes testing very hard, is there a way to artificially produce a
context, like in mock objects or cactus? Or Are there any better
solutions? (i'm not happy with java's context-based solutions)

Thanks.
Evrim.


From mb at bese.it  Fri Jan 20 16:27:39 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 20 Jan 2006 17:27:39 +0100
Subject: [Bese-devel] Re: accessing component via standard-application.
In-Reply-To: <43D0FB42.9010007@core.gen.tr>
References: <43CF1693.60609@core.gen.tr> <dqqh0q$2kt$1@sea.gmane.org>
	<43D0FB42.9010007@core.gen.tr>
Message-ID: <dqr31u$68c$1@sea.gmane.org>

Evrim ULU wrote:
> Marco Baringer wrote:
>> instances of standard-application represent an entire ucw application,
>>
>> with all the sessions and users it may have. there is no single
>> component tied to a standard-application. within a single
>> request/response loop there is a current "root" component which
>> represents the entire browser window as is available through
>> (context.window-component *context*)
> Hi Marco,
>
> So does this mean, there is no way to access components from
> outside the req/resp loop since context is not available?

yes.

> I've observed this also while trying to instantiate my widgets from
> repl. This behaviour is same with the java's app servers, i suppose. It
> makes testing very hard, is there a way to artificially produce a
> context, like in mock objects or cactus? Or Are there any better
> solutions? (i'm not happy with java's context-based solutions)

the problem is backtracking. whenever you create a component some of its
slot are setup for backtracking (the component specific slots,
calling-component and, afair, parent). if there's no context what should
we do with this? if you want a dummy context for testing maybe this will
help: (if you like this i'll include it in ucw proper (this is something
i have lying around and used to use from time to time))

(in-package :ucw)

(defclass dummy-request-context (standard-request-context)
  ())

(defclass dummy-request (httpd-request)
  ((query-path :initform "/DUMMY/index.ucw" :initarg :query-path)))

(defclass dummy-response (httpd-response)
  ()
  (:default-initargs :network-stream *trace-output*))

(defun make-dummy-context ()
  (let* ((dummy-app (or *default-application*
                        (make-instance 'standard-application
                                       :url-prefix "/DUMMY/")))
         (*context* (make-request-context dummy-app
                                          (make-instance 'dummy-request)
                                          (make-instance 'dummy-response)))
         (session (make-new-session dummy-app))
         (frame (make-new-frame session)))
    (setf (session.current-frame session) frame
          (context.session *context*) session)
    *context*))

(defcomponent dummy-root-component (window-component)
  ())

(defmethod render ((comp dummy-root-component))
  (<:as-html "DUMMY COMPONENT"))

(defmacro with-dummy-context ((&key (render t)
                                    (action t))
                              &body body)
  `(let* ((*context* (make-dummy-context))
          (self (make-instance 'dummy-root-component
                               :place (make-place
(context.window-component *context*)))))
     (setf (context.window-component *context*) self)
     (multiple-value-prog1
         ,(if action
              `(with-call/cc , at body)
              `(progn , at body))
       (when ,render
         (render (context.window-component *context*))
         (shutdown (context.response *context*))))))


you'd use it like so:

(with-dummy-context ()
  (call 'my-component))

which will 1) render my-component on *trace-output* so you can see the
html and 2) return the my-component instance so you can inspect it. NB:
this assumes *trace-output* is bivalent (can accept binary and characters)

hth.
-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From gwking at metabang.com  Fri Jan 20 18:18:02 2006
From: gwking at metabang.com (Gary King)
Date: Fri, 20 Jan 2006 13:18:02 -0500
Subject: [Bese-devel] stable darcs repo is down
Message-ID: <947D9F86-2AEA-4A54-B8C4-5D5C5E3D5C57@metabang.com>

Just so you know,

http://common-lisp.net/project/bese/repos/arnesi/

is reporting a 404.

-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From evrim at core.gen.tr  Fri Jan 20 18:34:03 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Fri, 20 Jan 2006 20:34:03 +0200
Subject: [Bese-devel] Re: accessing component via standard-application.
In-Reply-To: <dqr31u$68c$1@sea.gmane.org>
References: <43CF1693.60609@core.gen.tr>
	<dqqh0q$2kt$1@sea.gmane.org>	<43D0FB42.9010007@core.gen.tr>
	<dqr31u$68c$1@sea.gmane.org>
Message-ID: <43D12D1B.2040405@core.gen.tr>

Marco Baringer wrote:

> the problem is backtracking. whenever you create a component some of its
>
>slot are setup for backtracking (the component specific slots,
>calling-component and, afair, parent). if there's no context what should
>we do with this? if you want a dummy context for testing maybe this will
>help: (if you like this i'll include it in ucw proper (this is something
>i have lying around and used to use from time to time))
>
>you'd use it like so:
>
>(with-dummy-context ()
>  (call 'my-component))
>
>  
>
Great! Adding this to ucw repo will be very useful. In fact, i've been
thinking about this combined with your FiveAM to make up a mock object
like testing for ucw. However, we should consider this in future, i suppose.

Btw, I'm going to evalutate the above code tonight, i'll send feedback
tomorrow if anything goes wrong.

Thanks for your answer.
Evrim.


From gwking at metabang.com  Sat Jan 21 16:00:14 2006
From: gwking at metabang.com (Gary King)
Date: Sat, 21 Jan 2006 11:00:14 -0500
Subject: [Bese-devel] some problems getting FiveAM to load...
Message-ID: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>

I was trying to look at FiveAM yesterday and didn't have much luck.  
The stable version was a 404 and the development version wouldn't  
load on any of the four lisps I tried. Here are some of the details:

Allegro 7.0

> ;;; Compiling file /repository/darcs/fiveam/t/tests.lisp
> ; While compiling (:INTERNAL (:TOP-LEVEL-FORM "tests.lisp" 824) 0):
> Error: Attempt to take the car of a non-list: ERROR
>   [condition type: SIMPLE-ERROR]
>
> Restart actions (select using :continue):
> 0: retry the compilation of /repository/darcs/fiveam/t/tests.lisp
> 1: continue compiling /repository/darcs/fiveam/t/tests.lisp but
>     generate no output file
> 2: Retry performing #<ASDF:COMPILE-OP (:FORCE T) @ #x530e832> on
>     #<ASDF:CL-SOURCE-FILE "tests" @ #x530e7e2>.
> 3: Continue, treating #<ASDF:COMPILE-OP (:FORCE T) @ #x530e832> on
>     #<ASDF:CL-SOURCE-FILE "tests" @ #x530e7e2> as having been
>     successful.
> 4: Return to Top Level (an "abort" restart).
> 5: Abort entirely from this (lisp) process.
>
> [changing package from "COMMON-LISP-USER" to "IT.BESE.FIVEAM"]

SBCL

> ; registering #<SYSTEM :ARNESI.TEST {108E0B79}> as ARNESI.TEST
>
> debugger invoked on a SB-KERNEL:NAMESTRING-PARSE-ERROR:
>   parse error in namestring: logical namestring character which is  
> not alphanumeric or hyphen:
>   #\.
>   ARNESI.TEST
>         ^
>
> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
>
> restarts (invokable by number or by possibly-abbreviated name):
>   0: [ABORT] Exit debugger, returning to top level.
>
> (SB-IMPL::LOGICAL-WORD-OR-LOSE "arnesi.test")
> 0]

OpenMCL:

> > Error in process listener(1): Required arguments in ERROR don't  
> match lambda list (CONDITION &OPTIONAL REASON-CONTROL REASON-ARGS).
> > While executing: CCL::%POP-REQUIRED-ARG-PTR
> > Type :POP to abort.
> Type :? for other options.
> 1 > :r
> 0. Return to break level 1.
> 1. #<RESTART CCL:ABORT-BREAK #x29466E>
> 2. Retry compiling #P"/repository/darcs/fiveam/t/tests.lisp"
> 3. Skip compiling #P"/repository/darcs/fiveam/t/tests.lisp"
> 4. Retry performing #<COMPILE-OP (:FORCE T) #x83C6856> on #<CL- 
> SOURCE-FILE "tests" #x83C6ED6>.
> 5. Continue, treating #<COMPILE-OP (:FORCE T) #x83C6856> on #<CL- 
> SOURCE-FILE "tests" #x83C6ED6> as having been successful.
> 6. Return to toplevel.
> 7. #<RESTART CCL:ABORT-BREAK #x294CBE>
> 8. Reset this process
> 9. Kill this process
> 1 >

MCL

> ;Compiler warnings for "Billy- 
> Pilgrim:repository:darcs:fiveam:src:run.lisp" :
> ;   Undeclared free variable RESULT-LIST (4 references), in (RUN- 
> RESOLVING-DEPENDENCIES
>                                                              (TEST- 
> CASE)).
> > Error: While compiling RETURN-RESULT-LIST :
> >        #1=(RESULT-LIST 'NIL) is not a symbol or lambda expression  
> in the form (#1#) .
> > Type Command-. to abort.
> See the Restarts? menu item for further choices.
> 1 >

(this is due to the with-run-state macro being undefined ... I could  
not find this macro in the sources).

This check out was done yesterday.

Advice? Help? Thanks!

-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From mb at bese.it  Sun Jan 22 15:39:04 2006
From: mb at bese.it (Marco Baringer)
Date: Sun, 22 Jan 2006 16:39:04 +0100
Subject: [Bese-devel] Re: some problems getting FiveAM to load...
In-Reply-To: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>
References: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>
Message-ID: <dr08ui$fhq$1@sea.gmane.org>

Gary King wrote:
> I was trying to look at FiveAM yesterday and didn't have much luck. The
> stable version was a 404 and the development version wouldn't load on
> any of the four lisps I tried. Here are some of the details:

you decided to check out fiveam just minutes after i broke it :(

> Allegro 7.0

this is due to a badly implemented change i made to the signals macro.
Grab the 'Fix api-breakage in SIGNALS' patch from the darcs repo.

> SBCL

odd. Using SBCL 0.9.6.37 (and the recently fixed fiveam code) i was able
to load fiveam and the test suite ran successfully.

> OpenMCL:

as with allegro this is due to a mistake on my part. the latest code
should fix it.

> MCL
> [snip]
> (this is due to the with-run-state macro being undefined ... I could not
> find this macro in the sources).

the with-run-state macro is defined by the call to
def-special-environment in fiveam/src/check.lisp. i'm somewhat at a lost
as to what's going on. is asdf trying to compile the code before loading
the check.lisp file?

> This check out was done yesterday.
> 
> Advice? Help? Thanks!

thanks for the comprehensive reporting! if the latest fiveam code works
for you i'll make a tarball and release it as fiveam 2.0.

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From mb at bese.it  Sun Jan 22 15:46:39 2006
From: mb at bese.it (Marco Baringer)
Date: Sun, 22 Jan 2006 16:46:39 +0100
Subject: [Bese-devel] Re: Parenscript documentation: pbook or qbook?
In-Reply-To: <87bqy79sb5.fsf@gismo.pca.it>
References: <87bqy79sb5.fsf@gismo.pca.it>
Message-ID: <dr09co$gno$1@sea.gmane.org>

Luca Capello wrote:

> Is it worth to convert parenscript to qbook?

if you can get the parenscript documentation to build (i've never tried)
then i'd say no, otherwise yes (and it'd be a good reason to add images
and formatting markup to qbook)

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From mb at bese.it  Sun Jan 22 15:40:33 2006
From: mb at bese.it (Marco Baringer)
Date: Sun, 22 Jan 2006 16:40:33 +0100
Subject: [Bese-devel] Re: stable darcs repo is down
In-Reply-To: <947D9F86-2AEA-4A54-B8C4-5D5C5E3D5C57@metabang.com>
References: <947D9F86-2AEA-4A54-B8C4-5D5C5E3D5C57@metabang.com>
Message-ID: <dr091b$fhq$2@sea.gmane.org>

Gary King wrote:
> Just so you know,
> 
> http://common-lisp.net/project/bese/repos/arnesi/

thanks.

i dropped both the stable arnesi and stable ucw repos a while ago.
(instead of being stable they were just old and not updated). i'm
updating arnesi's home page now, do you know of any other place where
that repo is referenced from?

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From luca at pca.it  Sun Jan 22 17:39:39 2006
From: luca at pca.it (Luca Capello)
Date: Sun, 22 Jan 2006 18:39:39 +0100
Subject: [Bese-devel] Re: Parenscript documentation: pbook or qbook?
In-Reply-To: <dr09co$gno$1@sea.gmane.org> (Marco Baringer's message of "Sun,
	22 Jan 2006 16:46:39 +0100")
References: <87bqy79sb5.fsf@gismo.pca.it> <dr09co$gno$1@sea.gmane.org>
Message-ID: <87wtgsgo10.fsf@gismo.pca.it>

Hello!

On Sun, 22 Jan 2006 16:46:39 +0100, Marco Baringer wrote:
> Luca Capello wrote:
>
>> Is it worth to convert parenscript to qbook?
>
> if you can get the parenscript documentation to build (i've never
> tried) then i'd say no,

Yes, I can:
=====
luca at gismo:~/Hacking/cl-debian/repository/parenscript-bese$ \
 python pbook.py
At least one file argument required
Usage:  pbook.py  [-h] [-c TexFile|BknrTexFile|IdqTexFile|TxtFile] \
 [-T C|Lisp] [-t title] [-a author] [-O] [-o output] [-s style] file \
 ...

luca at gismo:~/Hacking/cl-debian/repository/parenscript-bese$ \
 python pbook.py -o introduction.pdf introduction.lisp 
cd /tmp; latex pbook7nHfzo.tex && pdflatex pbook7nHfzo.tex
This is pdfeTeX, Version 3.141592-1.21a-2.2 (Web2C 7.5.4)
entering extended mode
(./pbook7nHfzo.tex
LaTeX2e <2003/12/01>
[...]
Output written on pbook7nHfzo.pdf (4 pages, 65968 bytes).
Transcript written on pbook7nHfzo.log.
Wrote output to  introduction.pdf
luca at gismo:~/Hacking/cl-debian/repository/parenscript-bese$
=====

> otherwise yes (and it'd be a good reason to add images and
> formatting markup to qbook)

So converting parenscript to qbook will be a win, anyway :-)

As I'm preparing the Debian package, I'll generate the documentation
on the fly.

Thx, bye,
Gismo / Luca
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/2251968d/attachment.sig>

From luca at pca.it  Sun Jan 22 18:31:01 2006
From: luca at pca.it (Luca Capello)
Date: Sun, 22 Jan 2006 19:31:01 +0100
Subject: [Bese-devel] Re: Parenscript documentation: pbook or qbook?
In-Reply-To: <87wtgsgo10.fsf@gismo.pca.it> (Luca Capello's message of "Sun, 22
	Jan 2006 18:39:39 +0100")
References: <87bqy79sb5.fsf@gismo.pca.it> <dr09co$gno$1@sea.gmane.org>
	<87wtgsgo10.fsf@gismo.pca.it>
Message-ID: <87acdoglne.fsf@gismo.pca.it>

Hello!

On Sun, 22 Jan 2006 18:39:39 +0100, Luca Capello wrote:
> On Sun, 22 Jan 2006 16:46:39 +0100, Marco Baringer wrote:
>> Luca Capello wrote:
>>
>>> Is it worth to convert parenscript to qbook?
>>
>> if you can get the parenscript documentation to build (i've never
>> tried) then i'd say no,
>
> Yes, I can:

Actually, I spoke too early:
=====
luca at gismo:~/Hacking/cl-debian/repository/parenscript-bese$ \
 python pbook.py -o tutorial.pdf tutorial.lisp 
cd /tmp; latex pbookt7AF-G.tex && pdflatex pbookt7AF-G.tex
This is pdfeTeX, Version 3.141592-1.21a-2.2 (Web2C 7.5.4)
entering extended mode
(./pbookt7AF-G.tex
LaTeX2e <2003/12/01>
[...]
LaTeX Warning: No \author given.

No file pbookt7AF-G.toc.
(/usr/share/texmf-tetex/tex/latex/psnfss/ot1pcr.fd)
[1{/var/lib/texmf/fonts/map
/pdftex/updmap/pdftex.map}]
Overfull \hbox (10.6557pt too wide) in paragraph at lines 84--88
\OT1/ppl/m/n/10 Browsing ``http://localhost:8000/tutorial1'' should
re-turn an empty HTML page.

LaTeX Warning: File `images/tutorial1-1.png' not found on input line
105.


Error: latex (file images/tutorial1-1.png): cannot find image file
 ==> Fatal error occurred, the output PDF file is not finished!
Wrote output to  tutorial.pdf
luca at gismo:~/Hacking/cl-debian/repository/parenscript-bese$
=====

So, I need to investigate if this is a Debian-specific bug or a
general one (but I don't know at all Python and just a bit of LaTeX).

Thx, bye,
Gismo / Luca
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/bf011c87/attachment.sig>

From evrim at core.gen.tr  Sun Jan 22 19:00:19 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Sun, 22 Jan 2006 21:00:19 +0200
Subject: [Bese-devel] presentations.lisp
Message-ID: <43D3D643.6020007@core.gen.tr>

Hi Marco,

I've noticed that there is no ":" before "instance" (for initializing arguments). 

(defcomponent object-presentation (presentation)
  ((slots :accessor slots :initarg :slots :initform nil)
   (instance :initform nil :initarg instance :accessor instance))
  (:documentation "Presentations for single objects."))

Is this a typo or you have really meant using it like:

(make-instance 'object-presentation 'instance (make-instance 'my-person :name "gee"))

Thanks.
Evrim.



From gwking at metabang.com  Sun Jan 22 20:35:31 2006
From: gwking at metabang.com (Gary King)
Date: Sun, 22 Jan 2006 15:35:31 -0500
Subject: [Bese-devel] Re: stable darcs repo is down
In-Reply-To: <dr091b$fhq$2@sea.gmane.org>
References: <947D9F86-2AEA-4A54-B8C4-5D5C5E3D5C57@metabang.com>
	<dr091b$fhq$2@sea.gmane.org>
Message-ID: <51BFFE6B-4883-44D4-A22A-24CA59964A9C@metabang.com>

Hi Marco,

On Jan 22, 2006, at 10:40 AM, Marco Baringer wrote:

> i dropped both the stable arnesi and stable ucw repos a while ago.
> (instead of being stable they were just old and not updated).

<Smile>. I have the same problem. It's hard enough to get software up  
to the web without trying to carefully version everything -- at  
least, it is for me!

> i'm updating arnesi's home page now, do you know of any other place  
> where
> that repo is referenced from?

Not that I know of.

Thanks,
-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From luca at pca.it  Sun Jan 22 21:19:09 2006
From: luca at pca.it (Luca Capello)
Date: Sun, 22 Jan 2006 22:19:09 +0100 (CET)
Subject: [Bese-devel] darcs patch: pbook.py: convert endlines to Unix format
Message-ID: <20060122211909.CC3B6C6D5D@gismo.pca.it>

Sun Jan 22 22:17:04 CET 2006  Luca Capello <luca at pca.it>
  * pbook.py: convert endlines to Unix format
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 37452 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/39ddd666/attachment.bin>

From luca at pca.it  Sun Jan 22 21:59:47 2006
From: luca at pca.it (Luca Capello)
Date: Sun, 22 Jan 2006 22:59:47 +0100 (CET)
Subject: [Bese-devel] darcs patch: remove trailing spaces at empty lines in
	*.lisp
Message-ID: <20060122215947.4E90BC6D5D@gismo.pca.it>

Sun Jan 22 22:57:42 CET 2006  Luca Capello <luca at pca.it>
  * remove trailing spaces at empty lines in *.lisp
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 5827 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/8a8c6304/attachment.bin>

From root at common-lisp.net  Mon Jan 23 08:15:03 2006
From: root at common-lisp.net (root)
Date: Mon, 23 Jan 2006 02:15:03 -0600 (CST)
Subject: [Bese-devel] Auto-nag: bese link verifier failed
Message-ID: <20060123081503.C9C8E103F5@common-lisp.net>

You are being nagged on because your project's
name showed up in the nightly Checkbot run.  Checkbot checks
for broken links etc.  This probably means that you are 
either pointing to a broken link or that someone is pointing
to a broken link on your site.  Or something else, it check's
a bunch of stuff.  Update your webpages or you shall be nagged
again next week.

To find out what's wrong with your webpages, please consult:

  http://common-lisp.net/checkbot/checkbot-common-lisp.net.html

Any questions?  You can reach the author of this cronjob at
clo-devel at common-lisp.net

Thanks!


From hoan at ton-that.org  Mon Jan 23 10:19:33 2006
From: hoan at ton-that.org (Hoan Ton-That)
Date: Mon, 23 Jan 2006 21:19:33 +1100
Subject: [Bese-devel] AJAX teaser
Message-ID: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>

Hey everybody,

If you want to see what can be done with UCW and AJAX see
http://www.ton-that.org/ajax/teaser

These macros allow us to execute actions on the server side,
and reload the changes on the client side.  They were written
to be as similar as possible to the <ucw macros.  Unlike <ucw
macros, actions can be attached to multiple DOM events and
can be used with callbacks.

This makes it really easy to pick and choose where to use AJAX
without much development overhead.

The corresponding source code to the above example can be found at
http://www.ton-that.org/ajax/ajax.lisp

At the moment, the implementation isn't quite there yet.
Some things are still not implemented yet like back-button
support, updating every single component that has changed
(not just the current place), and many other things.

Check the public repository around the end of the month,
and you might find a late Christmas present.  :)

I know that Drew and probably many others are working on something similar.
I'd like to see everyone else's approaches too.  And please comment.

Hoan


From gwking at metabang.com  Mon Jan 23 17:57:40 2006
From: gwking at metabang.com (Gary King)
Date: Mon, 23 Jan 2006 12:57:40 -0500
Subject: [Bese-devel] Re: some problems getting FiveAM to load...
In-Reply-To: <dr08ui$fhq$1@sea.gmane.org>
References: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>
	<dr08ui$fhq$1@sea.gmane.org>
Message-ID: <2F64E96E-7C71-4C06-9261-DADC4F111FB2@metabang.com>

> you decided to check out fiveam just minutes after i broke it :(

Me and my bad timing. <smile>

> odd. Using SBCL 0.9.6.37 (and the recently fixed fiveam code) i was  
> able
> to load fiveam and the test suite ran successfully.
>
>> MCL
>
> the with-run-state macro is defined by the call to
> def-special-environment in fiveam/src/check.lisp. i'm somewhat at a  
> lost
> as to what's going on. is asdf trying to compile the code before  
> loading
> the check.lisp file?

(in-package 5am)

(macroexpand '(def-special-environment x-state ()
                 result-list
                 current-test))

;;; MCL

(eval-when (:compile-toplevel :load-toplevel :execute)
   (flet ()
     (defmacro #:bind-x-state (arnesi::requested-vars &body  
arnesi::body)
       (arnesi::check-required
         'x-state
         '(result-list current-test)
         (mapcar #'car arnesi::requested-vars))
       (list* 'let
              (list* arnesi::requested-vars
                     (list* (list* 'declare
                                   (list (list*
                                          'special
                                          (mapcar
                                           #'car
                                           arnesi::requested-vars))))
                            arnesi::body))))
     ...

     'x-state))


;;; ALLEGRO

(eval-when (:compile-toplevel :load-toplevel :execute)
   (flet ()
     (defmacro bind-x-state
         (it.bese.arnesi::requested-vars &body it.bese.arnesi::body)
       (it.bese.arnesi::check-required 'x-state
         '(result-list current-test)
         (mapcar #'car it.bese.arnesi::requested-vars))
       (excl::bq-list* `let it.bese.arnesi::requested-vars
                       (excl::bq-list `declare #) it.bese.arnesi::body))
     ...
     'x-state))


So the problem is that MCL doesn't seem to like the

(intern-concat (list #:WITH- 'foo) "5AM")

form. Specifically, in MCL (princ '#:with-) prints #:WITH- instead
of WITH-. As a work-around, changing the def-special-environment macro
to use (intern-concat (list "WITH-" name) ...) seems to make happiness.

-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From gwking at metabang.com  Mon Jan 23 18:27:54 2006
From: gwking at metabang.com (Gary King)
Date: Mon, 23 Jan 2006 13:27:54 -0500
Subject: [Bese-devel] Re: some problems getting FiveAM to load...
In-Reply-To: <dr08ui$fhq$1@sea.gmane.org>
References: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>
	<dr08ui$fhq$1@sea.gmane.org>
Message-ID: <24331A32-890C-4679-BB48-98D48262CBAC@metabang.com>

>> SBCL
>
> odd. Using SBCL 0.9.6.37 (and the recently fixed fiveam code) i was  
> able
> to load fiveam and the test suite ran successfully.

FWIW, I'm using SBCL 0.9.7.


-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From drewc at tech.coop  Tue Jan 24 03:29:35 2006
From: drewc at tech.coop (Drew Crampsie)
Date: Mon, 23 Jan 2006 22:29:35 -0500
Subject: [Bese-devel] AJAX teaser
In-Reply-To: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
References: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
Message-ID: <43D59F1F.5060001@tech.coop>

Hey Hoan,

Hoan Ton-That wrote:

>These macros allow us to execute actions on the server side,
>and reload the changes on the client side.  They were written
>to be as similar as possible to the <ucw macros.  Unlike <ucw
>macros, actions can be attached to multiple DOM events and
>can be used with callbacks.
>  
>
Nice Work! I had implemented something similar at one point, but dropped 
it in favour of a more programmatic approach. Now i just generate 
'normal' html, and add the ajax functionality afterwards. It ends up 
being a little (ok a lot) more verbose, but degrades better.

That being said, if one were doing a pure ajax application, this would 
be very useful indeed!

I'd love to see the source, even if it's unfinished, just to see how you 
solved the same problems i did :). I did notice you chose Dojo, which 
is, IMO, the best JS library by far.

>At the moment, the implementation isn't quite there yet.
>Some things are still not implemented yet like back-button
>support, updating every single component that has changed
>(not just the current place), and many other things.
>  
>
Both of those are tough problems. for updating multiple components, what 
i did was have the ajax call return to the browser a javascript function 
which would perform the subsequent http-requests for each updated 
component. I don't think this is best, as with too many requests it ends 
up faster to just reload the page, but it works well with the way i 
implemented the ajax-component.

>I know that Drew and probably many others are working on something similar.
>I'd like to see everyone else's approaches too.  And please comment.
>  
>
I use my with-ajax macro, an older version of which is available for 
your viewing here : http://paste.lisp.org/display/15113. This is, by 
far, the hairiest macro i've ever written, but it was so worth it :)

using it looks something like this (longhand and untested) :

(<:div :id (output-id component)
  ;; First 'standard' ucw html.
  (<ucw:input :id (input-id component) :type "text" :accessor (number 
component) :value 1)
  (<ucw:input :type "submit" :id (action-id component) :action 
(frob-thing-using-number component)
                 (<:as-html "Frob it!"))

  ;; Then, attach the Ajax stuff
  (<ucw:script
   `(progn
      (setf action (document.get-element-by-id ,(action-id component)))
      (action.remove-attribute "onClick")
      (dojo.event.connect action "onClick"
        ,(with-ajax (component)
            (:action (frob-thing-using-number component))
            (:callback n
                       (setf (number component) (parse-integer n))
                       `(slot-value (document.get-element-by-id 
,(input-id component)) value))
            (:output-to (output-id component))))))

I've included a macroexpansion of the with-ajax call at the end of the 
message for your reference.

I have a few convenience macros for dealing with the verbosity, and for 
the most part the complexity is hidden far in generated code, but after 
writing that out i think i again see the merits of the custom tag 
approach as in your example, and i think i can combine the two methods 
(simple tags w/ graceful degradation) without too much trouble.

I hate to see the duplication of work, so i'm wondering if you would 
like to collaborate on a CL-UCW-DOJO library. I'd like to have a UCW 
component/tag for each of Dojos widgets, and nice lispy functions and 
macros for dealing with it in general. As it is, I think UCW is getting 
too big, so i'm of the opinion that it should be a seperate library, 
especially if i/you/we plan on including Dojo itself with the code.

Feel free to email me or pop into #tech.coop on freenode if you want to 
talk more about this.

Cheers,

drewc

   
the WITH-AJAX call above macroexpands to :

(JS:WITH-UNIQUE-JS-NAMES (JS-CALLBACKS)
                         `(PROGN
                           (SETF ,JS-CALLBACKS (ARRAY))
                           (SETF (AREF ,JS-CALLBACKS ,0)
                                   (LAMBDA ,NIL
                                     (SLOT-VALUE
                                      (DOCUMENT.GET-ELEMENT-BY-ID
                                       ,(INPUT-ID COMPONENT))
                                      VALUE)))
                           (DOJO.IO.BIND
                            (CREATE
                             ,@(UNLESS NIL
                                 `(:URL
                                   ,(LISP-ON-LINES::MAKE-ACTION-URL 
COMPONENT
                                                                    (PROGN
                                                                     
(FROB-THING-USING-NUMBER
                                                                      
COMPONENT)
                                                                     
(CALL-COMPONENT
                                                                      NIL
                                                                      
(OUTPUT-COMPONENT
                                                                       
SELF))))))
                             ,@(UNLESS NIL
                                 `(:POST-CONTENT
                                   (+
                                    ,(IT.BESE.UCW::MAKE-NEW-CALLBACK
                                      (LAMBDA (N)
                                        (SETF (NUMBER COMPONENT)
                                                (PARSE-INTEGER N))))
                                    ,"="
                                    (ENCODE-U-R-I-COMPONENT
                                     ((AREF ,JS-CALLBACKS ,0)))
                                    ,"&")))
                             ,@(UNLESS NIL
                                 `(:LOAD
                                   (LAMBDA (EVT DATA)
                                     (SETF (SLOT-VALUE
                                            (DOCUMENT.GET-ELEMENT-BY-ID
                                             ,(OUTPUT-ID COMPONENT))
                                            INNER-H-T-M-L)
                                             DATA))))
                             ,:METHOD
                             ,"post"))))






>Hoan
>_______________________________________________
>bese-devel mailing list
>bese-devel at common-lisp.net
>http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
>  
>



From luca at pca.it  Mon Jan 23 21:12:54 2006
From: luca at pca.it (Luca Capello)
Date: Mon, 23 Jan 2006 22:12:54 +0100 (CET)
Subject: [Bese-devel] darcs patch: test-package.list: s/5am/fiveam/ as in
	parenscript-tes...
Message-ID: <20060123211254.B9449C0DF@gismo.pca.it>

Mon Jan 23 22:10:35 CET 2006  Luca Capello <luca at pca.it>
  * test-package.list: s/5am/fiveam/ as in parenscript-test.asd
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 5158 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/775a7763/attachment.bin>

From luca at pca.it  Mon Jan 23 21:18:35 2006
From: luca at pca.it (Luca Capello)
Date: Mon, 23 Jan 2006 22:18:35 +0100
Subject: [Bese-devel] darcs patch: test-package.list: s/5am/fiveam/ as in
	parenscript-tes...
In-Reply-To: <20060123211254.B9449C0DF@gismo.pca.it> (Luca Capello's message
	of "Mon, 23 Jan 2006 22:12:54 +0100 (CET)")
References: <20060123211254.B9449C0DF@gismo.pca.it>
Message-ID: <87vewalk2c.fsf@gismo.pca.it>

Hello!

On Mon, 23 Jan 2006 22:12:54 +0100, Luca Capello wrote:
> Mon Jan 23 22:10:35 CET 2006  Luca Capello <luca at pca.it>
>   * test-package.list: s/5am/fiveam/ as in parenscript-test.asd

Sorry, do not consider this patch: I was a bit stupid (too tired?).

Thx, bye,
Gismo / Luca
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/2bf428bc/attachment.sig>

From luca at pca.it  Mon Jan 23 21:29:11 2006
From: luca at pca.it (Luca Capello)
Date: Mon, 23 Jan 2006 22:29:11 +0100 (CET)
Subject: [Bese-devel] darcs patch: remove trailing spaces at endlines in
	*.lisp
Message-ID: <20060123212911.0DCFEC0DF@gismo.pca.it>

Mon Jan 23 22:19:27 CET 2006  Luca Capello <luca at pca.it>
  * remove trailing spaces at endlines in *.lisp
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 21431 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/9e018f89/attachment.bin>

From luca at pca.it  Mon Jan 23 21:56:31 2006
From: luca at pca.it (Luca Capello)
Date: Mon, 23 Jan 2006 22:56:31 +0100 (CET)
Subject: [Bese-devel] darcs patch: move source files to src/ and modify
	parenscript.asd a...
Message-ID: <20060123215631.A7CC4C0DF@gismo.pca.it>

Mon Jan 23 22:31:52 CET 2006  Luca Capello <luca at pca.it>
  * move source files to src/ and modify parenscript.asd as well
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 6842 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/046fe973/attachment.bin>

From luca at pca.it  Mon Jan 23 22:05:47 2006
From: luca at pca.it (Luca Capello)
Date: Mon, 23 Jan 2006 23:05:47 +0100 (CET)
Subject: [Bese-devel] darcs patch: move test files to t/ and modify
	parenscript-test.asd ...
Message-ID: <20060123220547.8EC9AC0DF@gismo.pca.it>

Mon Jan 23 22:50:26 CET 2006  Luca Capello <luca at pca.it>
  * move test files to t/ and modify parenscript-test.asd as well
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 5904 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/95e1f3e0/attachment.bin>

From luca at pca.it  Mon Jan 23 23:37:25 2006
From: luca at pca.it (Luca Capello)
Date: Tue, 24 Jan 2006 00:37:25 +0100 (CET)
Subject: [Bese-devel] darcs patch: move doc files to docs/
Message-ID: <20060123233725.ABAC1C149@gismo.pca.it>

Mon Jan 23 23:25:48 CET 2006  Luca Capello <luca at pca.it>
  * move doc files to docs/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 5314 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060124/c355002a/attachment.bin>

From luca at pca.it  Mon Jan 23 23:54:30 2006
From: luca at pca.it (Luca Capello)
Date: Tue, 24 Jan 2006 00:54:30 +0100
Subject: [Bese-devel] Bug#349607: ITP: cl-parenscript -- JavaScript embedded
	in a Common Lisp host
Message-ID: <873bjelcuh.fsf@gismo.pca.it>

Package: wnpp
Severity: wishlist

* Package name    : cl-parenscript
  Version         : 1:20060122-1
  Upstream Author : Manuel Odendahl <manuel at bl0rg.net>
                    Edward Marco Baringer <mb at bese.it>
* URL or Web page : http://common-lisp.net/project/ucw/repos/parenscript
* License         : BSD
  Description     : JavaScript embedded in a Common Lisp host

 Parenscript is a small lispy language that can be compiled to
 JavaScript.
 .
 It also comes with an embedded CSS representation in Common Lisp.
 This simplifies the development of web applications in Common Lisp
 by allowing the Common Lisp programmer to write all the documents
 in Common Lisp syntax.
 .
 HTML pages, CSS files and JavaScript code can be generated with
 the full power of Common Lisp and its macros.

=====

This is necessary as dependency for UCW [1].

The package will be sit in the CL-Debian repository [2] and will
follow the "Common Lisp in Debian Manual" [3].  I'm resolving some
minor problems concerning the documentation, so it'll be ready in a
couple of days.

Thx, bye,
Gismo / Luca

[1] http://common-lisp.net/project/ucw/
[2] http://cl-debian.alioth.debian.org/cgi-bin/darcsweb.cgi
[3] http://cl-debian.alioth.debian.org/clid/clid.html/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060124/0f8ef9df/attachment.sig>

From henrik at evahjelte.com  Tue Jan 24 09:45:24 2006
From: henrik at evahjelte.com (henrik hjelte)
Date: Tue, 24 Jan 2006 10:45:24 +0100
Subject: [Bese-devel] AJAX teaser
In-Reply-To: <43D59F1F.5060001@tech.coop>
References: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
	<43D59F1F.5060001@tech.coop>
Message-ID: <1138095925.9072.66.camel@localhost.localdomain>

> I'd like to have a UCW 
> component/tag for each of Dojos widgets, and nice lispy functions and 
> macros for dealing with it in general. 
I have started to assemble some dojo tags in a dojo package, so you can
use the dojo attributes like this:
         (<dojo:split-pane  :orientation "horizontal"
                            :widgetId "splitter"
                            :sizerWidth "5"
                            :activeSizing "0" ...
It is very adhoc now, I have just picked the dojo widgets I have needed
so far and made tags out of them. Here are some thoughts:

One problem is that dojo changes frequently and widgets get added all
the time, so it will be difficult to keep a lisp library like this in
sync. Maybe one could parse the dojo javascript objects and extract the
attributes? 

The dojo library parses the html code on the client to extract the
dojo-tags. My impression is that this is really slow. An alternative
could be to have the dojo tags generate some javascript code on the top
of the page that defines the widgets instead. It could look just as nice
in the Lisp code. I will try this soon (in some weeks).

> As it is, I think UCW is getting 
> too big, so i'm of the opinion that it should be a seperate library, 
> especially if i/you/we plan on including Dojo itself with the code.
An advantage with this is that maybe other Lisp markup users can use at
least some of the code. 

I have great hopes for the combination ucw + dojo + parenscript and
would be glad to help with a nice dojo library.

/Henrik Hjelte
-------------- next part --------------
(in-package :it.bese.yaclml)

(defmacro def-dojo-tag (name html-tag base-attributes &rest attributes)
;; Don't know why, but <div></div> and <div/>
;; is NOT THE Same in dojo, so emit-empty tag was dropped  
  (let ((effective-attributes (arnesi:with-collector (attrs)
                                (dolist (attr attributes)
                                  (case attr
                                    (:core  (attrs 'class 'id 'style 'title))
                                    (:i18n  (attrs 'dir 'lang))
                                    (:event (attrs 'onclick 'ondblclick
                                                   'onkeydown 'onkeypress
                                                   'onkeyup 'onmousedown
                                                   'onmousemove 'onmouseout
                                                   'onmouseover 'onmouseup))
                                    (t (attrs attr))))
                                (attrs))))
    `(deftag ,name (&attribute , at effective-attributes &body body)
      (emit-open-tag ,(string-downcase (symbol-name html-tag))
       (list ,base-attributes
        ,@(mapcar (lambda (attr)
                    `(cons ,(string-downcase (symbol-name attr)) ,attr))
                  effective-attributes)))
      (when body
        (emit-body body))
      (emit-close-tag ,(string-downcase (symbol-name html-tag))))))


;------ Layout

(def-dojo-tag <dojo:layout-pane :div (cons "dojoType"  "LayoutPane")
              :core :event :i18n
        layoutAlign
        layoutChildPriority
        cssPath
        url
        extractContent
        parseContent
        handler
        minWidth
        minHeight
        )

(def-dojo-tag <dojo:split-pane :div (cons "dojoType"  "SplitPane")
              :core :event :i18n

        widgetid
        
	orientation
	sizerWidth
	activeSizing
        debugName


        ;; Inherited from dojo.widget.HtmlLayoutPane
        layoutAlign
        layoutChildPriority
        cssPath
        url
        extractContent
        parseContent
        minWidth
        minHeight
        )

(def-dojo-tag <dojo:split-pane-panel :div (cons "dojoType"  "SplitPanePanel")
              :core :event :i18n
        sizeMin
        sizeShare

        ;; Inherited from dojo.widget.HtmlLayoutPane
        layoutAlign
        layoutChildPriority
        cssPath
        url
        extractContent
        parseContent
        minWidth
        minHeight
        )


;;--------------- Tree -------------

(def-dojo-tag <dojo:tree :div (cons "dojoType"  "Tree")
              :core :event :i18n
	templatePath
	templateCssPath

	publishSelectionTopic
	publishExpandedTopic
	publishCollapsedTopic
	preChildIcon
	nestedChildIcon
	snarfChildDomOutput
        )

(def-dojo-tag <dojo:tree-node :div (cons "dojoType"  "TreeNode")
              :core :event :i18n

	templatePath
	templateCssPath

	snarfChildDomOutput

	;; the last node and with no children
	lastNodeLeafImgSrc
	;; not the last node and with no children
	notLastNodeLeafImgSrc
	;; the last node and with children
	lastNodeParentImgSrc
	;; not the last node and with children
	notLastNodeParentImgSrc

	lastNodeParentToggleImgSrc
	notLastNodeParentToggleImgSrc

	childIcon
	childIconSrc

	;; the DOM node that holds the title and open / close controls
	nodeTitle
	;; the DOM text node with the title in it
	titleText
	;; the node which controls opening and closing the children (only exists when children are added)
	toggleControl
	;; the node which holds the toggle image.
	toggleImage

	;; the outer tree containing this node
	tree
	;; flag to hold whether this is the last node in the branch.
	isLastNode
	isExpanded
	isParent
	open
        )


(def-dojo-tag <dojo:tabset :div (cons "dojoType"  "TabSet")
              :core :event :i18n
        labelPosition
        templateCssPath
        selectedTab
        

        ;; Inherited from dojo.widget.HtmlLayoutPane
        layoutAlign
        layoutChildPriority
        cssPath
        url
        extractContent
        parseContent
        minWidth
        minHeight
)

(def-dojo-tag <dojo:tab :div (cons "dojoType"  "Tab")
              :core :event :i18n
        label
        ;; Is also inherited ;;url
        handler
        selected

        ;; Inherited from dojo.widget.HtmlLayoutPane
        layoutAlign
        layoutChildPriority
        cssPath
        url
        extractContent
        parseContent
        minWidth
        minHeight
)


(def-dojo-tag <dojo:resize-handle :div (cons "dojoType"  "ResizeHandle")
              :core :event :i18n
        targetElmId
        )
-------------- next part --------------
A non-text attachment was scrubbed...
Name: packages.lisp
Type: text/x-emacs-lisp
Size: 317 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060124/d674893b/attachment.bin>
-------------- next part --------------
(in-package #:cl-user)

(defpackage #:dojo-system
    (:use #:cl #:asdf))

(in-package #:dojo-system)

(defsystem "dojo"
    :description "Yaclml tags for the Dojo Javascript framework, see dojotoolkit.org"
    :version "0.1"
    :author "Henrik Hjelte <henrik at evahjelte.com>"
    :licence "LLGPL"
    :components ((:file "packages")
                 (:file "dojo" :depends-on ("packages")))
    :depends-on (:yaclml))





From mb at bese.it  Tue Jan 24 10:13:47 2006
From: mb at bese.it (Marco Baringer)
Date: Tue, 24 Jan 2006 11:13:47 +0100
Subject: [Bese-devel] Re: AJAX teaser
In-Reply-To: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
References: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
Message-ID: <dr4ukr$qa8$1@sea.gmane.org>

Hoan Ton-That wrote:
> Hey everybody,
> 
> If you want to see what can be done with UCW and AJAX see
> http://www.ton-that.org/ajax/teaser
> [snip]
> The corresponding source code to the above example can be found at
> http://www.ton-that.org/ajax/ajax.lisp

very nice! almost exactly what i had in mind (but hadn't gotten around
to doing)

> At the moment, the implementation isn't quite there yet.
> Some things are still not implemented yet like back-button
> support, updating every single component that has changed
> (not just the current place), and many other things.

doesn't using ajax automatically mean you've given up back button support
anyway? as far as updates go i'd suggest just documentating that only the
current place gets updated (or providing a means of specifying what gets
updated) and not attempting to automatically figure it out.

> Check the public repository around the end of the month,
> and you might find a late Christmas present.  :)

that would be very very cool :)

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From mb at bese.it  Tue Jan 24 13:33:58 2006
From: mb at bese.it (Marco Baringer)
Date: Tue, 24 Jan 2006 14:33:58 +0100
Subject: [Bese-devel] Re: some problems getting FiveAM to load...
In-Reply-To: <2F64E96E-7C71-4C06-9261-DADC4F111FB2@metabang.com>
References: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>	<dr08ui$fhq$1@sea.gmane.org>
	<2F64E96E-7C71-4C06-9261-DADC4F111FB2@metabang.com>
Message-ID: <dr5ac6$2c8$1@sea.gmane.org>

Gary King wrote:
> So the problem is that MCL doesn't seem to like the
> 
> (intern-concat (list #:WITH- 'foo) "5AM")
> 
> form. Specifically, in MCL (princ '#:with-) prints #:WITH- instead
> of WITH-. As a work-around, changing the def-special-environment macro
> to use (intern-concat (list "WITH-" name) ...) seems to make happiness.

intern-concat is built ontop of strcat* whcih uses princ (which
admitaddly isn't what intern-concat should be using). Could you try
changing the definition of intern-concat to:

(defun intern-concat (string-designators &optional (package *package*))
  (intern (with-output-to-string (symbol-name)
            (dolist (designator string-designators)
              (write-string (etypecase designator
                              (symbol (symbol-name designator))
                              (string designator))
                            symbol-name)))
          package))

and recompile everything? i think i'll commit the patch anyway since it
is much clearer about what inter-concat is designed to deal with but do
still tell me if mcl keeps failing.

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From gwking at metabang.com  Tue Jan 24 15:19:16 2006
From: gwking at metabang.com (Gary King)
Date: Tue, 24 Jan 2006 10:19:16 -0500
Subject: [Bese-devel] Re: some problems getting FiveAM to load...
In-Reply-To: <dr5ac6$2c8$1@sea.gmane.org>
References: <04BBB109-050B-41D0-8826-7D89EEA586AD@metabang.com>	<dr08ui$fhq$1@sea.gmane.org>
	<2F64E96E-7C71-4C06-9261-DADC4F111FB2@metabang.com>
	<dr5ac6$2c8$1@sea.gmane.org>
Message-ID: <28E1CEE8-D9DB-4199-BC79-13B26962543A@metabang.com>

Hi Marco,

The changed intern-concat seems to work fine. However the new *run- 
when-defined* is confused... The macro uses

*run-when-defined*

but the defvar defines *run-test-when-defined*.


On Jan 24, 2006, at 8:33 AM, Marco Baringer wrote:

> Gary King wrote:
>> So the problem is that MCL doesn't seem to like the
>>
>> (intern-concat (list #:WITH- 'foo) "5AM")
>>
>> form. Specifically, in MCL (princ '#:with-) prints #:WITH- instead
>> of WITH-. As a work-around, changing the def-special-environment  
>> macro
>> to use (intern-concat (list "WITH-" name) ...) seems to make  
>> happiness.
>
> intern-concat is built ontop of strcat* whcih uses princ (which
> admitaddly isn't what intern-concat should be using). Could you try
> changing the definition of intern-concat to:
>
> (defun intern-concat (string-designators &optional (package  
> *package*))
>   (intern (with-output-to-string (symbol-name)
>             (dolist (designator string-designators)
>               (write-string (etypecase designator
>                               (symbol (symbol-name designator))
>                               (string designator))
>                             symbol-name)))
>           package))
>
> and recompile everything? i think i'll commit the patch anyway  
> since it
> is much clearer about what inter-concat is designed to deal with  
> but do
> still tell me if mcl keeps failing.
>
> -- 
> -Marco
> Ring the bells that still can ring.
> Forget the perfect offering.
> There is a crack in everything.
> That's how the light gets in.
> 	-Leonard Cohen
>
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel


-- 
Gary Warren King
metabang.com
http://www.metabang.com/




From luca at pca.it  Fri Jan 27 09:03:34 2006
From: luca at pca.it (Luca Capello)
Date: Fri, 27 Jan 2006 10:03:34 +0100 (CET)
Subject: [Bese-devel] darcs patch: merge parenscript-test.asd into
	parenscript.asd
Message-ID: <20060127090334.7AFF2C112@gismo.pca.it>

Fri Jan 27 09:57:09 CET 2006  Luca Capello <luca at pca.it>
  * merge parenscript-test.asd into parenscript.asd
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/x-darcs-patch
Size: 6647 bytes
Desc: A darcs patch for your repository!
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060127/63e8b61d/attachment.bin>

From mb at bese.it  Fri Jan 27 09:44:38 2006
From: mb at bese.it (Marco Baringer)
Date: Fri, 27 Jan 2006 10:44:38 +0100
Subject: [Bese-devel] Re: darcs patch: merge parenscript-test.asd into
	parenscript.asd
In-Reply-To: <20060127090334.7AFF2C112@gismo.pca.it>
References: <20060127090334.7AFF2C112@gismo.pca.it>
Message-ID: <drcq1t$56p$2@sea.gmane.org>

Luca Capello wrote:
> Fri Jan 27 09:57:09 CET 2006  Luca Capello <luca at pca.it>
>   * merge parenscript-test.asd into parenscript.asd

applied. grazie.

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen



From aycan.irican at core.gen.tr  Fri Jan 27 14:32:36 2006
From: aycan.irican at core.gen.tr (Aycan iRiCAN)
Date: Fri, 27 Jan 2006 16:32:36 +0200
Subject: [Bese-devel] Adding a new slot-presentation
Message-ID: <87u0bphhbv.fsf@core.gen.tr>

Hi,

I wanted to make a textarea with a javascript wysiwyg editor (tinymce) for a simple
content editing task. 

I have a simple content class in my package:

(defclass content ()
  ((title :accessor title
	  :initarg :title
	  :initform "Sample Title"
	  :documentation "Title for content")
   (data :accessor data
	 :initarg :data
	 :initform "Data"
	 :documentation "Data for content")))

For the presentation of the title slot, string-slot-presentation
is enough. So I defined it's type as "string". But for the data
slot, I need a textarea presentation. So I defined a new type
that is also in my package:

(defpresentation content-editor (object-presentation)
  ((string :label "Title" :slot-name 'title :max-length 30 :editablep nil)
   (text-content :label "Content" :slot-name 'data :editablep nil)))

To register the new type we need a defslot-presentation. Here it is:

(ucw::defslot-presentation text-content-slot-presentation ()
  ((cols :accessor cols :initarg :cols :initform 40)
   (rows :accessor rows :initarg :rows :initform 20))
  (:type-name text-content))

Finally I defined present-slot method:

(defmethod present-slot ((slot text-content-slot-presentation) instance)
  (if (editablep slot)
      (progn
	(<ucw:textarea :cols (cols slot) :rows (rows slot) :accessor (presentation-slot-value slot instance))
;;;; TODO: fix wwwroot and proper install jscript
	(<:as-is "<script language=\"javascript\" type=\"text/javascript\" src=\"http://www.core.gen.tr/tinymce/jscripts/tiny_mce/tiny_\mce.js\"> </script>")
	(<:as-is "<script language=\"javascript\" type=\"text/javascript\"> tinyMCE.init({ mode : \"textareas\" }); </script>"))
      (<:as-is (presentation-slot-value slot instance))))

Now the problem is I'm getting an error:

Execution of a form compiled with errors. 
Form: 
(SLOT-PRESENTATIONS 
 (STRING LABEL Title SLOT-NAME 'TITLE MAX-LENGTH 30 EDITABLEP NIL) 
 (TEXT-CONTENT LABEL Content SLOT-NAME 'DATA EDITABLEP NIL)) 

Compile-time-error: 
(in macroexpansion of (SLOT-PRESENTATIONS # #)) 
(hint: For more precise location, try *BREAK-ON-SIGNALS*.) Unknown
slot type TEXT-CONTENT.

This is probably because text-content is defined in ucw
package. What is the proper way to add new slot-presentations?

Best Regards,

-- 
Aycan iRiCAN
C0R3 Computer Security Group
http://www.core.gen.tr
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060127/aac8d0fe/attachment.sig>

From ocorrain at yahoo.com  Sat Jan 28 23:24:41 2006
From: ocorrain at yahoo.com (=?iso-8859-1?Q?Tiarn=E1n_=D3_Corr=E1in?=)
Date: Sat, 28 Jan 2006 23:24:41 +0000
Subject: [Bese-devel] latest version of arnesi
Message-ID: <m2u0box7eu.fsf@Cascade.local>

Hi--

I just got the latest version of ucw_dev from the darcs
repository. Picked up arnesi from
http://ignas.pov.lt/arnesi_1.4.2.tar.gz (as suggested by
Cliki). However, UCW complains about the symbols walk-lambda-list and
extract-argument-names being internal systems. Indeed, they are not
exported.

I changed packages.lisp in arnesi to export these two, but am
concerned that I have an out of date version. What is the best place
to get the latest and greatest versions of the various UCW
dependencies (yaclml + arnesi, especially), and has anyone attempted
to make UCW asdf-installable? Would there be value in doing so?

regards

Tiarn?n


From ignas.mikalajunas at gmail.com  Sun Jan 29 12:58:57 2006
From: ignas.mikalajunas at gmail.com (Ignas Mikalajunas)
Date: Sun, 29 Jan 2006 14:58:57 +0200
Subject: [Bese-devel] latest version of arnesi
In-Reply-To: <m2u0box7eu.fsf@Cascade.local>
References: <m2u0box7eu.fsf@Cascade.local>
Message-ID: <cc0c36330601290458v1581a7ch8a3989f54bf9640b@mail.gmail.com>

  As these are unofficial package packages of arnesi, yaclml the only
way to update them is to bug me or repackage them yourselves.

  The best places to get the official ones are is:

http://common-lisp.net/project/bese/yaclml.html
http://common-lisp.net/project/bese/arnesi.html

--
  Ignas Mikalaj?nas

From mdanish at andrew.cmu.edu  Mon Jan 30 15:01:35 2006
From: mdanish at andrew.cmu.edu (Matthew Danish)
Date: Mon, 30 Jan 2006 10:01:35 -0500
Subject: [Bese-devel] playing with forms
Message-ID: <20060130150135.GE562@mapcar.org>

(apologies if this goes out twice)

Been playing around with the form components.  The documentation isn't
very good and there are no real examples.  I've pieced together the
following code from guesses, and it seems to work, as a demo:

(defcomponent my-form (form-element)
  ((input1 :component (text-element) :accessor input1)
   (date :component (time-element) :accessor date)

   (completer :component (completing-text-element
                          :completions '("foo" "bar"))
              :accessor completer)))

(defaction submit ((f my-form))
  (call 'info-message :message (client-value (input1 f))))

However, besides the fact that I really don't know what I'm doing with
this, I noticed that whenever I update the my-form component with a new
slot, it seems to cause collisions with old instances.

Namely, trying to reload the form, even from the starting entry point,
causes all sorts of fun error msgs to pop up about obsolete instances of
MY-FORM causing trouble.

Now I don't see why they are sticking around, after all, if I start from
the entry point.  Shouldn't it be generating new objects then?

Also, whatever happened to update-instance-for-redefined-class?

(Using SBCL 0.9.9 x86 Linux, mod-lisp backend)

invalid structure layout:                                                                                                           
  A test for class                                                                                                                  
    IT.BESE.UCW:INDIRECT-VALUE                                                                                                      
  was passed the obsolete instance                                                                                                  
    #<HOTEL-MANAGEMENT-SYSTEM.FRONTEND::MY-FORM {B16B089}>
   [Condition of type SB-KERNEL:LAYOUT-INVALID]

Restarts:
  0: [SERVER-ERROR] Send the client an internal server error page.
  1: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs.
  2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "an httpd worker 2" {AE39E71}>)

  9: (ERROR SB-KERNEL:LAYOUT-INVALID)
 10: (SB-KERNEL::LAYOUT-INVALID-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB6ABA608) #<SB-ALIEN-INTERNALS:ALIEN-VALU$
 11: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB6ABA2DC) #<unavailable argument>)
 12: ("foreign function: call_into_lisp")
 13: ("foreign function: funcall2")
 14: ("foreign function: interrupt_internal_error")
 15: ("foreign function: sigtrap_handler")
 16: ((SB-PCL::FAST-METHOD SB-MOP:SLOT-VALUE-USING-CLASS (IT.BESE.UCW::INDIRECT-VALUE-MIXIN-CLASS T T)) #<unavailable argument> #<C$
 17: ((SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (IT.BESE.UCW::INDIRECT-VALUE-MIXIN-CLASS T T)) #<unavailable argument> #S$
 18: ((LAMBDA NIL))
 19: ((SB-PCL::FAST-METHOD IT.BESE.UCW::SAVE-BACKTRACKED (IT.BESE.UCW::STANDARD-SESSION-FRAME)) #<unavailable argument> #<unavailab$
 20: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 21: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 22: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 23: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)) #<un$
 24: (IT.BESE.UCW::HTTPD-WORKER-LOOP/HANDLE #<IT.BESE.UCW::HTTPD-WORKER {AE39551}> #<IT.BESE.UCW:MULTITHREAD-MOD-LISP-BACKEND {AD27$
 25: (IT.BESE.UCW::HTTPD-WORKER-LOOP #<IT.BESE.UCW::HTTPD-WORKER {AE39551}>)

-- 
;; Matthew Danish -- user: mrd domain: cmu.edu
;; OpenPGP public key: C24B6010 on keyring.debian.org


From evrim at core.gen.tr  Tue Jan 31 02:38:18 2006
From: evrim at core.gen.tr (Evrim ULU)
Date: Tue, 31 Jan 2006 04:38:18 +0200
Subject: [Bese-devel] AJAX teaser
In-Reply-To: <1138095925.9072.66.camel@localhost.localdomain>
References: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>	<43D59F1F.5060001@tech.coop>
	<1138095925.9072.66.camel@localhost.localdomain>
Message-ID: <43DECD9A.9090107@core.gen.tr>

henrik hjelte wrote:

>>I'd like to have a UCW 
>>component/tag for each of Dojos widgets, and nice lispy functions and 
>>macros for dealing with it in general. 
>>    
>>
>I have started to assemble some dojo tags in a dojo package, so you can
>use the dojo attributes like this:
>         (<dojo:split-pane  :orientation "horizontal"
>                            :widgetId "splitter"
>                            :sizerWidth "5"
>                            :activeSizing "0" ...
>It is very adhoc now, I have just picked the dojo widgets I have needed
>so far and made tags out of them. Here are some thoughts:
>  
>
Hi,

This reminded me the problem, saving the state of the current component.
Have anybody  solved this problem before? I just want to be able to save
current style state so that next time i can feed with saved style. Style
includes: colors, position, font etc.

Thanks.
evrim.


From henrik at evahjelte.com  Tue Jan 31 12:32:45 2006
From: henrik at evahjelte.com (Henrik Hjelte)
Date: Tue, 31 Jan 2006 13:32:45 +0100
Subject: [Bese-devel] AJAX teaser
In-Reply-To: <43DECD9A.9090107@core.gen.tr>
References: <e2c5eaf10601230219h7b3f0298k63f29e2f41f90045@mail.gmail.com>
	<43D59F1F.5060001@tech.coop>
	<1138095925.9072.66.camel@localhost.localdomain>
	<43DECD9A.9090107@core.gen.tr>
Message-ID: <1138710766.9481.50.camel@localhost.localdomain>

> Hi,
> 
> This reminded me the problem, saving the state of the current component.
> Have anybody  solved this problem before? I just want to be able to save
> current style state so that next time i can feed with saved style. Style
> includes: colors, position, font etc.
> 
> Thanks.
> evrim.
I'm not sure what you mean. Saving to where? 
Memory on the server?
The UCW components are in memory, so that should not be a problem. 

Saving to a persistent media?
Save to a file with print/read.
Save to a database with clsql.
Nicely combined with serialization of objects to xml or sexp using 
the cl-persistence package.

Or do you mean on the client side? 
Then its harder. Set a cookie, or send the data to your server. For
example with using a XMLHttpRequest javascript object. The bind
functionality of the dojo toolkit is a nice wrapper round this. 

I think you need to elaborate your question more if you want more
specific answers.

/Henrik Hjelte




From henrik at evahjelte.com  Sun Jan 29 13:47:25 2006
From: henrik at evahjelte.com (henrik hjelte)
Date: Sun, 29 Jan 2006 14:47:25 +0100
Subject: [Bese-devel] latest version of arnesi
In-Reply-To: <m2u0box7eu.fsf@Cascade.local>
References: <m2u0box7eu.fsf@Cascade.local>
Message-ID: <1138542445.9481.30.camel@localhost.localdomain>

On l?r, 2006-01-28 at 23:24 +0000, Tiarn?n ? Corr?in wrote:

> What is the best place
> to get the latest and greatest versions of the various UCW
> dependencies (yaclml + arnesi, especially), and has anyone attempted
> to make UCW asdf-installable? Would there be value in doing so?

The homepage at http://common-lisp.net/project/bese/arnesi.html
says the following:
darcs repository
http://common-lisp.net/project/bese/repos/arnesi_dev/

Releases
There are none. We did use to have 'official' releases but it was a lot
of work, introduced a lot of incompatable version problems, and
installing a release is just as easy as doing darcs get ....

/Henrik Hjelte



From attila.lendvai at gmail.com  Sun Jan 22 23:10:34 2006
From: attila.lendvai at gmail.com (Attila Lendvai)
Date: Mon, 23 Jan 2006 00:10:34 +0100
Subject: [Bese-devel] presentations.lisp
In-Reply-To: <43D3D643.6020007@core.gen.tr>
References: <43D3D643.6020007@core.gen.tr>
Message-ID: <b54b34af0601221510n2fe2b4a7lcc6ff0ae13bb71c0@mail.gmail.com>

> I've noticed that there is no ":" before "instance" (for initializing arguments).

one of the attached patches fixes this and other typos in presentation.lisp.

the other patch is for yaclml, to print list attribute values as a
space separated list (hint: cool for multiple css classes; patch for
presentations.lisp will follow).

happy coding,

- attila

(alias 101 on irc &no 'its not lisp code :)

PS: gmail is tricking me. i might have sent a mail similar to this
before. if so then the yaclml patch in that mail uses non-applied
iterate patches - i've fixed that in this version.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ucw-presentation-typos-patch
Type: application/octet-stream
Size: 43041 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/87708fb4/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: yaclml-attr-value-patch.2
Type: application/octet-stream
Size: 3568 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060123/87708fb4/attachment-0001.obj>

From attila.lendvai at gmail.com  Sun Jan 22 21:50:20 2006
From: attila.lendvai at gmail.com (Attila Lendvai)
Date: Sun, 22 Jan 2006 22:50:20 +0100
Subject: [Bese-devel] presentations.lisp
In-Reply-To: <43D3D643.6020007@core.gen.tr>
References: <43D3D643.6020007@core.gen.tr>
Message-ID: <b54b34af0601221350q71fb2d66h5b9b48274baabd6e@mail.gmail.com>

> I've noticed that there is no ":" before "instance" (for initializing arguments).

one of the attached patches fixes this and other typos in presentation.lisp.

the other patch is for yaclml, to print list attribute values as a
space separated list (hint: cool for multiple css class-es, patch for
presentations.lisp will follow).

happy coding,

- attila

(alias 101 on irc &no it's not lisp code :)
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ucw-presentation-typos-patch
Type: application/octet-stream
Size: 43041 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/3886053a/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: yaclml-attr-value-patch
Type: application/octet-stream
Size: 3267 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060122/3886053a/attachment-0001.obj>

From mdanish at andrew.cmu.edu  Sat Jan 28 00:03:31 2006
From: mdanish at andrew.cmu.edu (Matthew Danish)
Date: Fri, 27 Jan 2006 19:03:31 -0500
Subject: [Bese-devel] TAL mystery
Message-ID: <20060128000331.GC18347@mapcar.org>

I got UCW up and running with a few demos.  I commented out the example
system and application from the ucwctl file and added in my own stuff.

I tried out the wiki example and typed it into a separate file.  Got it
up and running.  Changed a few things to suit my system, for example:

(defcomponent view-wiki-page (window-component template-component)
  ((page-name :accessor :page-name :initarg :page-name))
    (:default-initargs :template-name "/home/mrd/ucw/wiki/view.tal"))


I decided to check out the TAL file that I thought I had copied into
that location.  Turns out, it didn't exist, I had copied it to the wrong
directory.  And yet, the Wiki functions properly.  So tell me, exactly
how does TAL find a copy of the template file it is supposed to use?

How come the template worked, even though the pathname I specified did
not exist?

-- 
;; Matthew Danish -- user: mrd domain: cmu.edu
;; OpenPGP public key: C24B6010 on keyring.debian.org


From mdanish at andrew.cmu.edu  Sun Jan 29 22:31:00 2006
From: mdanish at andrew.cmu.edu (Matthew Danish)
Date: Sun, 29 Jan 2006 17:31:00 -0500
Subject: [Bese-devel] playing with forms
Message-ID: <20060129223100.GC562@mapcar.org>

Been playing around with the form components.  The documentation isn't
very good and there are no real examples.  I've pieced together the
following code from guesses, and it seems to work, as a demo:

(defcomponent my-form (form-element)
  ((input1 :component (text-element) :accessor input1)
   (date :component (time-element) :accessor date)

   (completer :component (completing-text-element
                          :completions '("foo" "bar"))
              :accessor completer)))

(defaction submit ((f my-form))
  (call 'info-message :message (client-value (input1 f))))

However, besides the fact that I really don't know what I'm doing with
this, I noticed that whenever I update the my-form component with a new
slot, it seems to cause collisions with old instances.

Namely, trying to reload the form, even from the starting entry point,
causes all sorts of fun error msgs to pop up about obsolete instances of
MY-FORM causing trouble.

Now I don't see why they are sticking around, after all, if I start from
the entry point.  Shouldn't it be generating new objects then?

Also, whatever happened to update-instance-for-redefined-class?

(Using SBCL 0.9.9 x86 Linux, mod-lisp backend)

invalid structure layout:                                                                                                           
  A test for class                                                                                                                  
    IT.BESE.UCW:INDIRECT-VALUE                                                                                                      
  was passed the obsolete instance                                                                                                  
    #<HOTEL-MANAGEMENT-SYSTEM.FRONTEND::MY-FORM {B16B089}>
   [Condition of type SB-KERNEL:LAYOUT-INVALID]

Restarts:
  0: [SERVER-ERROR] Send the client an internal server error page.
  1: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs.
  2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "an httpd worker 2" {AE39E71}>)

  9: (ERROR SB-KERNEL:LAYOUT-INVALID)
 10: (SB-KERNEL::LAYOUT-INVALID-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB6ABA608) #<SB-ALIEN-INTERNALS:ALIEN-VALU$
 11: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB6ABA2DC) #<unavailable argument>)
 12: ("foreign function: call_into_lisp")
 13: ("foreign function: funcall2")
 14: ("foreign function: interrupt_internal_error")
 15: ("foreign function: sigtrap_handler")
 16: ((SB-PCL::FAST-METHOD SB-MOP:SLOT-VALUE-USING-CLASS (IT.BESE.UCW::INDIRECT-VALUE-MIXIN-CLASS T T)) #<unavailable argument> #<C$
 17: ((SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (IT.BESE.UCW::INDIRECT-VALUE-MIXIN-CLASS T T)) #<unavailable argument> #S$
 18: ((LAMBDA NIL))
 19: ((SB-PCL::FAST-METHOD IT.BESE.UCW::SAVE-BACKTRACKED (IT.BESE.UCW::STANDARD-SESSION-FRAME)) #<unavailable argument> #<unavailab$
 20: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 21: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 22: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable a$
 23: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)) #<un$
 24: (IT.BESE.UCW::HTTPD-WORKER-LOOP/HANDLE #<IT.BESE.UCW::HTTPD-WORKER {AE39551}> #<IT.BESE.UCW:MULTITHREAD-MOD-LISP-BACKEND {AD27$
 25: (IT.BESE.UCW::HTTPD-WORKER-LOOP #<IT.BESE.UCW::HTTPD-WORKER {AE39551}>)

-- 
;; Matthew Danish -- user: mrd domain: cmu.edu
;; OpenPGP public key: C24B6010 on keyring.debian.org


From vagif at cox.net  Tue Jan 31 07:12:54 2006
From: vagif at cox.net (Vagif Hagverdiyev)
Date: Mon, 30 Jan 2006 23:12:54 -0800
Subject: [Bese-devel] ucw on windows and acl
Message-ID: <000901c62635$c16a9e30$2302a8c0@p4>

When trying to run ucw on windows emacs+slime+acl7 I get following error:
Class #<STANDARD-CLASS IT.BESE.ARNESI:APPLICATION-FORM> is not yet 
finalized. 
All libraries are latest pulled from darsc, including arnesi. 
Marco Baringer in this mailing list suggested following:
>there's a call to with-call/cc in backtracking.lisp, with-call/cc
>macro expands into a literal occurence of (among other things) an
>instance of application-form. however, when backtracking.fasl is
>loaded arnesi (and therefore application-form) should already be
>loaded. what happens if put 
 
(eval-when (:compile-toplevel :load-toplevel :execute)
  (finalize-inheritenc (find-class 'application-form)))
 
>after the defclass form which define application-form? (in
>arnesi/src/walk.lisp).
I did that and got this:
attempt to call `IT.BESE.ARNESI::FINALIZE-INHERITENC' which is an
undefined function.
   [Condition of type UNDEFINED-FUNCTION]
Please help. 
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060130/1fabfc7d/attachment.html>

From vagif at cox.net  Tue Jan 31 08:23:06 2006
From: vagif at cox.net (Vagif Hagverdiyev)
Date: Tue, 31 Jan 2006 00:23:06 -0800
Subject: [Bese-devel] ucw on windows and acl
Message-ID: <000e01c6263f$90cb1020$2302a8c0@p4>

Followup
 
I was able to start ucw.
 
In order to start it under windows acl you need to add following code to
walk.lisp
 
(eval-when (:compile-toplevel :load-toplevel :execute)
  (mop:finalize-inheritance (find-class 'standard-object))
  (mop:finalize-inheritance (find-class 'form))
  (mop:finalize-inheritance (find-class 'application-form))
  (mop:finalize-inheritance (find-class 'declaration-form))
  (mop:finalize-inheritance (find-class 'function-argument-form))
  (mop:finalize-inheritance (find-class 'function-object-form))
  (mop:finalize-inheritance (find-class 'variable-reference))
  (mop:finalize-inheritance (find-class 'variable-binding-form))
  (mop:finalize-inheritance (find-class 'variable-declaration-form))
  (mop:finalize-inheritance (find-class 'binding-form-mixin))
  (mop:finalize-inheritance (find-class 'IMPLICIT-PROGN-WITH-DECLARE-MIXIN))
  (mop:finalize-inheritance (find-class 'IMPLICIT-PROGN-MIXIN))
  (mop:finalize-inheritance (find-class 'IGNORABLE-DECLARATION-FORM-MIXIN)))
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060131/b43edf79/attachment.html>