August 2009 - parenscript-devel - mailman3.common-lisp.net

[parenscript-devel] Updates to PS LOOP
by Daniel Gackle 16 Aug '09

16 Aug '09

Javascript's FOR and CL's LOOP disagree about how to interpret end-tests and step-forms. In JS, all of the step forms are evaluated before any of the end tests are, while in LOOP, the end-test for one :FOR clause is evaluated (and, if it fails, the loop terminates) before the step-form for the next :FOR clause is processed. The syntax of LOOP strongly implies the latter behavior. This was leading to unwanted surprises, since the generated JS FOR loop wasn't always terminating when expected. After a dozen or more experiences of JS code crashing because of this contradiction, I bit the bullet and made LOOP generate different JS code when multiple :FOR clauses are specified. This makes the generated code more verbose, because end-tests and step-forms can't be inlined into the FOR block anymore. But now the code does what LOOP implies. This patch has been pushed (along with a couple of very minor tweaks to special-forms.lisp). Daniel

1 0

[parenscript-devel] Bug#540704: RFA: parenscript -- JavaScript embedded in a Common Lisp host
by Luca Capello 09 Aug '09

09 Aug '09

Package: wnpp Severity: normal Hi there! As I explained on the pkg-common-lisp-devel@ mailing list, I have no more interest in maintaining Parenscript: http://lists.alioth.debian.org/pipermail/pkg-common-lisp-devel/2009-July/00… The package is outdated mostly because of a bug with the Debian Darcs repositories, as explained at: http://lists.alioth.debian.org/pipermail/pkg-common-lisp-devel/2008-October… If no one will step in and adopt Parenscript, I will ask for its removal in two weeks. Package description is below. Thx, bye, Gismo / Luca ===== Homepage: http://www.cliki.net/Parenscript 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. . The recommended packages add extra features: test suite with cl-ppcre and cl-fiveam. . Single file documentation is provided via the texlive-latex-base, texlive-latex-recommended, texlive-fonts-recommended and python packages.

1 0

[parenscript-devel] Bug: incorrect JS emitted for binary operators with more than 2 operands
by Daniel Gackle 07 Aug '09

07 Aug '09

PS generates code for expressions like (> x y z) as if the operators worked the same way in JS and Lisp, but they don't. For example, (ps (> 3 2 1)) => "3 > 2 > 1;" ... is an expression that is true in Lisp but false in JS. Daniel

2 3

[parenscript-devel] Added REPEAT clauses to PS loop
by Daniel Gackle 01 Aug '09

01 Aug '09

I added the simple REPEAT clause that's supported by CL's LOOP to PS's pseudo-LOOP: (ps (loop repeat 3 do (alert "hi"))) => "for (var _js3691 = 0; _js3691 < 3; _js3691 += 1) { alert('hi'); };" Daniel >From 043a85a1f155068af509e05fd32ae2adcfb0f30f Mon Sep 17 00:00:00 2001 From: Daniel Gackle <danielgackle(a)gmail.com> Date: Fri, 31 Jul 2009 14:20:15 -0600 Subject: [PATCH] Added :REPEAT clauses to PS's LOOP. --- src/lib/ps-loop.lisp | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/src/lib/ps-loop.lisp b/src/lib/ps-loop.lisp index c7334fa..38ea78c 100644 --- a/src/lib/ps-loop.lisp +++ b/src/lib/ps-loop.lisp @@ -9,7 +9,7 @@ (defvar *loop-keywords* '(:for :do :when :unless :initially :finally :first-time :last-time :while :until :from :to :below :downto :above :by :in :across :on :index := :then :sum :collect - :count :minimize :maximize :into)) + :count :minimize :maximize :into :repeat)) (defun normalize-loop-keywords (args) (mapcar @@ -146,10 +146,15 @@ ((:in :across) (for-in var)) (:on (for-on var)) (otherwise (error "FOR ~s ~s is not valid in PS-LOOP." var term))))) + (repeat-clause () + (let ((index (ps-gensym))) + (setf terms (append `(:for ,index :from 0 :below ,(consume)) terms)) + (clause))) (clause () (let ((term (consume-atom))) (case term (:for (for-clause)) + (:repeat (repeat-clause)) (:while (push `(unless ,(consume) break) body)) (:until (push `(when ,(consume) break) body)) (:initially (push (consume-progn) initially)) -- 1.6.1

2 1

[parenscript-devel] patch to export chain macro
by Kelly McDonald 01 Aug '09

01 Aug '09

The chain macro was defined @ d9d9a9705bdfd0559ee1bbf9ca, but wasn't exported Kelly diff --git a/src/package.lisp b/src/package.lisp index dee537f..a41ce1e 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -185,6 +185,7 @@ #:defined #:undefined #:@ + #:chain #:with-lambda #:stringp #:numberp

2 1