parenscript-devel

parenscript-devel@common-lisp.net

373 discussions

[parenscript-devel] APPLY with FLET/LABELS
by sblist＠me.com 08 Jun '09

08 Jun '09

Good morning, FLET and LABELS appears not to work with APPLY. Using regular function application or FUNCALL, the gensymed symbol is used: PS> (flet ((foo () 'bar)) (foo)) BAR PS> (ps (flet ((foo () 'bar)) (foo))) "var foo1 = function () { 'bar'; }; foo1();" PS> (ps (flet ((foo () 'bar)) (funcall foo))) "var foo3 = function () { 'bar'; }; foo3();" PS> APPLY, however, does not use the gensym: PS> (ps (flet ((foo () 'bar)) (apply foo nil))) "var foo2 = function () { 'bar'; }; foo.apply(this, null);" - Scott

2 2

[parenscript-devel] DESTRUCTURING-BIND broken with parallel LET
by sblist＠me.com 08 Jun '09

08 Jun '09

DESTRUCTURING-BIND relies on sequential evaluation in its generated bindings, so must be updated to use LET*: diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp index cb413cf..5c65ad6 100644 --- a/src/lib/ps-macro-lib.lisp +++ b/src/lib/ps-macro-lib.lisp @@ -146,4 +146,4 @@ (mapcan (lambda (var) (incf n) (when var `((,var (aref ,arr ,n))))) vars)))) - `(let ,bindings ,@body))) + `(let* ,bindings ,@body))) - Scott

2 1

[parenscript-devel] Macro symbols affect GENSYMing in LET
by sblist＠me.com 08 Jun '09

08 Jun '09

I haven't done a very good job of distilling down this bug, but we're experiencing an issue with the GENSYMing done by LET in the presence of macros with the same names as variables bound in LET. This is the simplest example I could come up with: > (ps (macrolet ((a (n) `(+ ,n 5))) (let ((a (a 1))) (let ((b (a (- a 4)))) (+ a b))))) "var a1661 = 1 + 5; var b = (a - 4) + 5; a1661 + b;" You can see here that the symbol A is GENSYM'd since it occurs elsewhere in the LET binding forms, but it seems to be missed in the inner LET form. If the symbol A is not inside the subtraction form, it is caught: > (ps (macrolet ((a (n) `(+ ,n 5))) (let ((a (a 1))) (let ((b (a a))) (+ a b))))) "var a1662 = 1 + 5; var b = a1662 + 5; a1662 + b;" - Scott

2 2

[parenscript-devel] FLATTEN no longer supports dotted lists
by sblist＠me.com 08 Jun '09

08 Jun '09

Hi folks, We have some code that fails during ps-macroexpansion time as a result of the following change in src/utils.lisp: Previous definition (works): (defun flatten (x &optional acc) (cond ((null x) acc) ((atom x) (cons x acc)) (t (flatten (car x) (flatten (cdr x) acc))))) Current definition (crashes): (defun flatten (x) (if (atom x) (list x) (mapcan #'flatten x))) The failing call in the backtrace is (FLATTEN (IE . 6)), with a type error: 6 is not of type LIST. This is expected, given that current definition of FLATTEN calls MAPCAN. FLATTEN is only being called when the PS macro that fails to expand, BROWSER-CASE, is wrapped in a LET form: > (ps (browser-case '(:ie . 6) 'foo :default 'bar)) "'bar';" > (ps (let ((baz (browser-case '(:ie . 6) 'foo :default 'bar))) baz)) ; Evaluation aborted. (Failure) - Scott

2 1

Re: [parenscript-devel] Create doesn't create
by Jim McDonald 06 Jun '09

06 Jun '09

Thanks Red. That was enormously embarrassing. Jim On Sat, Jun 6, 2009 at 10:00 AM, <parenscript-devel-request(a)common-lisp.net>wrote: > Send parenscript-devel mailing list submissions to > parenscript-devel(a)common-lisp.net > > To subscribe or unsubscribe via the World Wide Web, visit > http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel > or, via email, send a message with subject or body 'help' to > parenscript-devel-request(a)common-lisp.net > > You can reach the person managing the list at > parenscript-devel-owner(a)common-lisp.net > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of parenscript-devel digest..." > > > Today's Topics: > > 1. Create doesn't create (ps_jim(a)emidium.com) > 2. Re: Create doesn't create (Red Daly) > 3. Catch forms shouldn't require a variable (Daniel Gackle) > 4. Lexical scoping question (Daniel Gackle) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Fri, 05 Jun 2009 12:40:44 -0400 > From: ps_jim(a)emidium.com > Subject: [parenscript-devel] Create doesn't create > To: <parenscript-devel(a)common-lisp.net> > Message-ID: <16286717.439541244220044718.JavaMail.servlet@perfora> > Content-Type: text/plain; charset=UTF-8 > > Hey all, > I'm new to parenscript so I hope this is a reasonable question > > I think > > (parenscript:ps (create :foo "bar" :blorg 1)) > > should return > > { foo : 'bar', blorg :1} > > but it returns > > create('foo', 'bar', 'blorg', 1); > > which means it is falling through to a regular function. > > I was looking at the source and there create is a 'define-ps-special-form' > but it's gonna take me a while to figure out what is going on. Any thoughts > about what I'm doing wrong? > > This was in the last tarball and the latest from git. > > Jim > > > > ------------------------------ > > Message: 2 > Date: Fri, 5 Jun 2009 10:26:14 -0700 > From: Red Daly <reddaly(a)gmail.com> > Subject: Re: [parenscript-devel] Create doesn't create > To: parenscript-devel <parenscript-devel(a)common-lisp.net> > Message-ID: > <f6700f0c0906051026o79a5cd35r424ddf9fba2a1c46(a)mail.gmail.com> > Content-Type: text/plain; charset="iso-8859-1" > > Make sure you are using the 'create from the parenscript package: > > (ps:ps (ps:create :foo "bar" :blorg 1)) > > that's my guess, > > Red > > On Fri, Jun 5, 2009 at 9:40 AM, <ps_jim(a)emidium.com> wrote: > > > Hey all, > > I'm new to parenscript so I hope this is a reasonable question > > > > I think > > > > (parenscript:ps (create :foo "bar" :blorg 1)) > > > > should return > > > > { foo : 'bar', blorg :1} > > > > but it returns > > > > create('foo', 'bar', 'blorg', 1); > > > > which means it is falling through to a regular function. > > > > I was looking at the source and there create is a > 'define-ps-special-form' > > but it's gonna take me a while to figure out what is going on. Any > thoughts > > about what I'm doing wrong? > > > > This was in the last tarball and the latest from git. > > > > Jim > > > > _______________________________________________ > > parenscript-devel mailing list > > parenscript-devel(a)common-lisp.net > > http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel > > >

1 0

[parenscript-devel] Catch forms shouldn't require a variable
by Daniel Gackle 06 Jun '09

06 Jun '09

PS throws an error here: (ps (try (a) (:catch nil (b)))) I think it should just gensym an identifier for the catch form. Sometimes you just want to know whether an error occurred, not what it was. This came up because I implemented something like try/catch in CL, for the code that we compile to both CL and PS. If I stuff a variable in the catch form, the CL compiler warns about an unused variable. So I wrote a wrapper to do the above-mentioned gensym thing. Daniel

1 0

[parenscript-devel] Create doesn't create
by ps_jim＠emidium.com 05 Jun '09

05 Jun '09

Hey all, I'm new to parenscript so I hope this is a reasonable question I think (parenscript:ps (create :foo "bar" :blorg 1)) should return { foo : 'bar', blorg :1} but it returns create('foo', 'bar', 'blorg', 1); which means it is falling through to a regular function. I was looking at the source and there create is a 'define-ps-special-form' but it's gonna take me a while to figure out what is going on. Any thoughts about what I'm doing wrong? This was in the last tarball and the latest from git. Jim

2 1

[parenscript-devel] ps-html clisp loop
by Olaf Ruppert 25 May '09

25 May '09

parenscipt on clips does not generate attributes correct. (parenscript::process-html-forms-lhtml '(((:body :style "width:72em") "teset"))) => ("<BODY>teset</BODY>") to fix this, change the loop in process-html-forms-lhtml: (loop with attrs = (cdar form) for (attr-name attr-val) on attrs by #'cddr for attr-test = (when (not (keywordp attr-name)) (let ((test attr-name)) (setf attr-name (pop attrs)) test)) do (if attr-test (push `(if ,attr-test (concat-string ,(format nil " ~A=\"" attr-name) ,attr-val "\"") "") r) (progn (push (format nil " ~A=\"" attr-name) r) (push attr-val r) (push "\"" r))))

2 1

[parenscript-devel] [ELS 2009] Call for participation
by Marco Antoniotti 20 May '09

20 May '09

Apologies for multiple postings.... ************************************************************************ 2nd European Lisp Symposium (ELS 2009) Milan, Italy, May 27-29, 2009 Universita` degli Studi di Milano-Bicocca www.european-lisp-symposium.org ************************************************************************ CALL FOR PARTICIPATION ********************** REGISTRATION IS OPEN AT www.european-lisp-symposium.org. Check out the updated program. Scope and Program Highlights: ***************************** The purpose of the European Lisp Symposium is to provide a forum for the discussion of all aspects of the design, implementation and application of any of the Lisp dialects. We encourage everyone interested in Lisp to participate. The European Lisp Symposium 2009 program includes presentations of high quality papers about novel research results, insights and lessons learned from practical applications, and educational perspectives, all involving Lisp dialects, including Common Lisp, Scheme, Emacs Lisp, AutoLisp, ISLISP, Dylan, Clojure, and so on. The European Lisp Symposium will feature the following highlights: - Scott McKay of ITA Software will talk about how Lisp use has evolved in his circannual industry work. - Mark Tarver of Lambda Associates will talk about Qi as a viral mutation of the Lisp DNA. - Mauro Pezze` of University of Milan-Bicocca will host a panel on Programmers' Productivity from a Software Engineering point of view. - Joao Pavao Martins and Ernesto Morgado of SISCOG will talk about the role of LISP in the success of SISCOG - Christophe Rhodes will give an unportable tutorial. - Michele Simionato will give a tutorial on Scheme module system and Scheme libraries portability issues across implementations. Social Events: ************** Friday 29th evening, Conference Banquet Saturday 30th morning, Guided tour to the "Futurismo" Exhibit in the center of Milan; 2009 marks the 100th anniversary of the Futurism Manifesto; stretching it, the harbinger of Lisp 50 years later. Program Chair: ************** * Antonio Leitao, Technical University of Lisbon, Portugal Local Chair: ************ * Marco Antoniotti, DISCo, Universita`† Milano Bicocca, Italy Program committee: ****************** * Giuseppe Attardi, Universita` di Pisa , Italy * Pascal Costanza, Vrije Universiteit Brussel, Belgium * Irene Durand, Universite` Bordeaux 1, France * Marc Feeley, Universite` de Montreal, Canada * Ron Garret, Amalgamated Widgets Unlimited, USA * Gregor Kiczales, University of British Columbia, Canada * Scott McKay, ITA Software, Inc., USA * Peter Norvig, Google Inc., USA * Julian Padget, University of Bath, UK * Kent Pitman, HyperMeta, USA * Christian Queinnec, Universite` Pierre et Marie Curie, France * Christophe Rhodes, Goldsmiths College, University of London, UK * Robert Strandh, Universite` Bordeaux 1, France * Mark Tarver, Lambda Associates, UK * Didier Verna, EPITA Research and Development Laboratory, France * JonL White, TheGingerIceCreamFactory of Palo Alto, USA * Taiichi Yuasa, Kyoto University, Japan Registration Fees: ****************** * Students EU100, regular EU220. Registration will include the proceedings, coffee breaks, the symposium dinner and other amenities. Accommodation is not included.

1 0

Re: [parenscript-devel] jQuery chain commands?
by Richard KLINDA 17 May '09

17 May '09

>>>>> Regarding 'Re: [parenscript-devel] jQuery chain commands?'; Vladimir Sedach adds: > Here's one way to do it: (defpsmacro chain (&rest method-calls) > (labels ((do-chain (method-calls) > (if (cdr method-calls) > `((@ ,(do-chain (cdr method-calls)) ,(caar > method-calls)) ,@(cdar method-calls)) > (car method-calls)))) > (do-chain (reverse method-calls)))) > Then you can say: > (ps (chain ($ "foo") (bar x z) (baz 5))) > => "$('foo').bar(x, z).baz(5); I rewrote ~200 lines of JavaScript (it's a lot for me) into ParenScript and I absolutely love it, so much cleaner and maintainable. Thank you for this chain macro and the whole project, superb. > As an aside, be careful that none of the chained functions cause > reflows, and cache the intermediate results when possible. The > jQuery style of programming is pretty much stream processing, but > done in a terribly slow way (mostly because current JS > implementations are not very good, but also because of the way > jQuery is implemented). It would be interesting to do something like > Rich Waters' SERIES for Parenscript since (like SERIES itself) you > can do some really mean optimizations with macros. I'll keep that in mind, thanks. -- Udv, Richard

1 0

← Newer
1
...
23
24
25
26
27
28
29
...
38
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

parenscript-devel