gmane.lisp.web.uncommonweb.devel

Re: further development of FiveAM

Stelian Ionescu — 2012-04-21T20:28:06


I've created a new project(http://common-lisp.net/project/fiveam/)
with its own mailing list and converted the sources to git:
https://github.com/sionescu/fiveam
I'll slowly start integrating the various forks and patches I found around, so
if you have some request don't hesitate to ask(on fiveam-devel)

fiveam patch

Kiyoshi Mizumaru — 2012-04-21T13:35:12

Hi,

Would you please have a look at the following diffs?
In Allegro CL's modern case mode, fiveam cannot be load due to some
symbol case mismatches.

Thanks in advance,
Kiyoshi


https://github.com/kmizumar/fiveam/commit/83ea8b5c4ac22cec6befd2b95dafe5cf6ee0a49d

diff -rN old-fiveam/t/suite.lisp new-fiveam/t/suite.lisp
3c3
< (in-package :it.bese.fiveam)
---
9c9
< (def-suite :it.bese.fiveam :in :it.bese)
---

Re: arnesi_dev patches

Kiyoshi Mizumaru — 2012-04-21T13:24:00

Sorry, the first link in the previous mail was wrong, but diffs are okay.

https://github.com/kmizumar/arnesi_dev/commit/787edf707169e2402a3317a84c26b4da24c3983e


On Sat, Apr 21, 2012 at 10:18 PM, Kiyoshi Mizumaru
<kiyoshi.mizumaru< at >gmail.com> wrote:

arnesi_dev patches

Kiyoshi Mizumaru — 2012-04-21T13:18:54

Hi,

Would you please have a look at the following diffs?
One is for Allegro CL's modern case mode, and the other is for
Lispworks conditional compile.

I'm not familiar with darcs, so please forgive me for not sending this
in darcs send.

Thanks in advance,
Kiyoshi


https://github.com/kmizumar/arnesi_dev/commit/aeb41d4b5284559ac07c458cdc315e4aebd42cb9

diff -rN old-arnesi_dev/src/hash.lisp new-arnesi_dev/src/hash.lisp
16,18c16,18
<                (reader (make-lookup-name name "GET-" name))
<                (writer (make-lookup-name name "GET-" name))
<                (rem-er (make-lookup-name name "REM-" name))
---


https://github.com/kmizumar/arnesi_dev/commit/c8aad5de20bb0b14f0b7db8cd47f2c1884dd4dd6

diff -rN old-arnesi_dev/src/lexenv.lisp new-arnesi_dev/src/lexenv.lisp
260c260
< #+(and lispworks macosx)
---
264c264
< #+(and lispworks macosx)
---
274c274
< #+(and lispworks macosx)
---
282c282
< #+(and lispworks macosx)
---
286c286
< #+(and lispworks macosx)
---
296c296
< #+(and lispworks macosx)
---
30

further development of FiveAM

Marco Baringer — 2012-04-18T18:37:47

hi,

   I've haven't worked on FiveAM in a long time (it's been at least 3
   years...), and apparently that's caused stagnation and
   fragmentation of the code base. my bad.

   Stelian Ionescu has graciously offered to take up further
   development of FiveAM. So i'm going to let him do that.

good luck,
--
-marco

form validation

Răzvan Rotaru — 2012-02-06T15:50:26

Hi,



I’m currently trying to learn and evaluate ucw for future projects and I
was wondering if there is any support for form validation. I would be very
thankful for suggestions on how to do this efficiently in ucw.


Thanks,
Razvan
_______________________________________________
bese-devel mailing list
bese-devel< at >common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/bese-devel

[Bug-Report]ARNESI:VARSYMP couses error with zerolengh name symbol

CHIBA Masaomi — 2011-12-21T23:38:54

Hi.
I found trivial bug.
ARNESI:VARSYMP couses error with "zero lengh name" symbol.

(IT.BESE.ARNESI::VARSYMP :||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

(IT.BESE.ARNESI::VARSYMP '||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

fix:
(defun varsymp (x)
  (and (symbolp x)
       (string/= "" x)                  ;not zero length name
       (eq (aref (symbol-name x) 0) #\?)))

Regards.
--
CHIBA Masaomi

[yaclml] [patch] fixed inconsistency between NODE-CHILDREN and MAKE-NODE, (SETF NODE-CHILDREN) in XMLS

Boris Smilga — 2011-03-11T21:29:00

Hi.

This is a minor issue, actually.  In yaclml/src/tal/xmls.lisp, we read:

  (defun make-node (&key name ns attrs child children)
    (cons #<Datum for name, ns and attrs> #<Datum for child or children>))

and, correspondingly,

  (defun (setf node-children) (children elem)
    (setf (CDR elem) children)
    (node-children elem))

but, at the same time,

  (defun node-children (elem)
    (CDDR elem))

which results in the first child being lost.

Attached is a patch to fix this issue.

Sincerely,
 - B. Smilga.
_______________________________________________
bese-devel mailing list
bese-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel

Date in form and clsql time elements mapping

Aashish L — 2010-07-02T13:08:10

Hi 
I am using stock UCW and I have difficulty in handling dates from CLSQL.
Take a look at following code, its messy, use of variables- dd,mm,yy and action- datehelper is what I want to avoid! I also refered back Boxset's form.lisp, but could not figure out how to put raw d,m,y intgers back in time element.
Help welcome!
Thanks.
~Arl

code starts:-------------
(clsql:def-view-class datetrial ()
  ((id
    :db-kind :key :type (integer 4) :initarg :id :initform 0)  
   (trydate
    :accessor trydate :type clsql:wall-time
    :initarg :trydate :initform (clsql:make-time :year 2000 :month 1 :day 1)))
  (:base-table |datetrial|))

;(clsql:create-view-from-class 'datetrial)

(defcomponent date-man ()
  ((ddate :accessor ddate :initarg :ddate :backtrack t
  :initform (make-instance 'datetrial))))

(defcomponent get-date (date-man) 
  ())

(defmethod render ((self get-date))
  (let* ((temp (ddate self))
 (bdate (trydate temp))
 (dd (clsql:time-element bdate :day-of-month))
 (mm (clsql:time-element bdate :month)

Re: [PATCH] Use the provided form for session inWITH-LOCK-HELD-ON-SESSION

Clinton Ebadi — 2010-06-17T17:20:49

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

Re: [PATCH] Use the provided form for session inWITH-LOCK-HELD-ON-SESSION

Drew Crampsie — 2010-06-15T14:54:03

Hey,

I'm on vacation for a week or so. Clinton, can you have a look at
these and apply them? Do you have access to the cl-net repo? If not,
throw it on corsucant and i'll pull them from there when i can.


Cheers,

drewc

On 14 June 2010 12:25, Daniel White <daniel< at >whitehouse.id.au> wrote:

Re: [PATCH] Use the provided form for session inWITH-LOCK-HELD-ON-SESSION

Daniel White — 2010-05-28T04:05:35

Drew actually pointed out that it doesn't appear in the archives.  I
actually resent it a few hours ago, but it hasn't appeared in the
archives, either.

I've also sent another separate patch today that doesn't seem to have
arrived, either.  Mildly frustrating that I've sent patches, but
haven't ever received a bounce or failure message.

Re: [PATCH] Use the provided form for session inWITH-LOCK-HELD-ON-SESSION

Clinton Ebadi — 2010-05-28T03:48:19

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

Re: [PATCH] Use the provided form for session inWITH-LOCK-HELD-ON-SESSION

Daniel White — 2010-05-27T23:31:49

I've noticed this hasn't been pushed into the ucw-core repository.
Any problems with the patch and is the repository being updated and/or
maintained?

Cheers,

Re: serve-file and content-disposition

2010-05-27T21:07:01


OOPS, I was meaning an :after initialize-instance. This works:

(in-package :ucw-standard)

(defmethod initialize-instance :after ((app static-roots-application-mixin)
                                       &rest initargs &key &allow-other-keys)
  (when-bind static-roots (application.static-roots app)
    (mapc (lambda (root)
            (defentry-point (car root) (:application app
                                        :class starts-with-dispatcher
                                        :with-call/cc nil
                                        :action-options (:class 'action))
                ()
              (serve-file (merge-pathnames *dispatcher-url-suffix*
                                           (cdr root)))))
          static-roots)))

It's not so different from what defcomponent macro is doing.


defentry-point doesn't need the :application argument to be registered
to a server to work, if its body doesn't refer to that server.


I register applications with a server that is already running
(s

Re: serve-file and content-disposition

Attila Lendvai — 2010-05-27T16:36:47

content-disposition: attachment is important e.g. if you want to
prevent the annoying pdf plugin to embed a pdf in the browser, or you
want to make sure a txt file is saved instead of displayed.

we have it _slightly_ better in wui:

http://dwim.hu/darcsweb/darcsweb.cgi?r=HEAD%20hu.dwim.wui;a=headblob;f=/source/server/server.lisp

but without further requirements we didn't make it as shiny as possible.

Re: serve-file and content-disposition

Clinton Ebadi — 2010-05-27T15:45:32

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

Re: serve-file and content-disposition

Clinton Ebadi — 2010-05-27T15:35:31

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

Re: serve-file and content-disposition

2010-05-26T23:41:51


Well, can't really answer about your content-type question. But I
never used static-roots-application-mixin before, relying on apache to
direct the request to static file or UCW handling. You triggered my
curiosity.

So static-roots-application-mixin works (I tried downloading non-html
files). Except that you have to run the :after method
startup-application by hand; registering the application in a running
server won't do it. You are normally not hit by that as other types of
applications don't need an initializer. I see no reason that
initialization step couldn't be put in make-instance, or am I missing
something?

Regards.

serve-file and content-disposition

Anton Rizov — 2010-05-22T17:13:47

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

Re: Some trivial changes

Anton Rizov — 2010-05-19T16:22:07

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