parenscript-devel

Download

parenscript-devel@common-lisp.net

April 2019

3 participants
2 discussions

An issue where defsetf doesn't work for a symbol defined by symbol-macrolet
by Seki_GMail 11 Apr '19

11 Apr '19

Hi, Thanks for your great project. I found an issue where defsetf doesn't work for a symbol defined by symbol-macrolet. The detail is the following. ## environment - version of Parenscript - latest of master (526346549f0342d67947d360a8f7ba9fc7b09e54) - CL Implementation (same result in both) - SBCL 1.5.0 - Clozure CL 1.11.5 ## code to reproduce ```lisp (use-package :parenscript) (princ (ps (defun my-car (lst) (nth 0 lst)) (defun my-set-car (lst value) (setf (nth 0 lst) value)) (defsetf my-car (lst) (value) `(my-set-car ,lst ,value)) ;; Raw setf is ok (setf (my-car lst) 100) ;; setf for macrolet symbol is NG (symbol-macrolet ((sym (my-car lst))) (setf sym 300)))) ``` Then, the result is the following. (I added some comments for convenience.) ```javascript function myCar(lst) { __PS_MV_REG = []; return nth(0, lst); }; function mySetCar(lst, value) { __PS_MV_REG = []; return nth(0, lst) = value; }; /* Raw setf is ok */ (function () { var _js66 = lst; var _js65 = 100; __PS_MV_REG = []; return mySetCar(_js66, _js65); })(); /* setf for macrolet symbol is NG */ myCar(lst) = 300; ``` Thanks. Regards, -- Eiji, Seki (hamgoostar(a)gmail.com) https://github.com/eshamster

2 2

Implement importing and exporting ES Modules
by Moritz.Hedtke 03 Apr '19

03 Apr '19

Hello, recently I tried to use ES Modules with Parenscript so I modified the code. I just wanted to share the patch - maybe you want to include it in the official repository. Kind regards, Moritz Hedtke From 4862600435c3dfbf4b329b5d4578e5ae77f9eaa2 Mon Sep 17 00:00:00 2001 From: mohe2015 <mohe2015(a)users.noreply.github.com> Date: Sun, 24 Mar 2019 13:00:31 +0100 Subject: [PATCH] Implement importing and exporting ES Modules --- src/js-ir-package.lisp | 4 ++++ src/package.lisp | 6 ++++++ src/printer.lisp | 15 +++++++++++++++ src/special-operators.lisp | 12 ++++++++++++ 4 files changed, 37 insertions(+) diff --git a/src/js-ir-package.lisp b/src/js-ir-package.lisp index dd5fa80..46aefc7 100644 --- a/src/js-ir-package.lisp +++ b/src/js-ir-package.lisp @@ -144,4 +144,8 @@ #:funcall #:escape #:regex + #:export + #:export-default + #:import + #:import-default )) diff --git a/src/package.lisp b/src/package.lisp index 2a39628..3262cc8 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -150,6 +150,12 @@ ;; compile-time stuff #:eval-when + ;; modules + #:export + #:export-default + #:import + #:import-default + ;; body forms #:progn diff --git a/src/printer.lisp b/src/printer.lisp index fc52e71..df94dfa 100644 --- a/src/printer.lisp +++ b/src/printer.lisp @@ -415,3 +415,18 @@ vice-versa.") ;; literal-js should be a form that evaluates to a string containing ;; valid JavaScript (psw literal-js)) + +(defprinter ps-js:export (object) + "export " (ps-print object)) + +(defprinter ps-js:export-default (object) + "export default " (ps-print object)) + +(defprinter ps-js:import (file objects) + "import { " + (loop for (object . remaining) on objects do + (psw object) (when remaining (psw ", "))) + " } from " (ps-print file)) + +(defprinter ps-js:import-default (file name) + "import " (psw name) " from " (ps-print file)) diff --git a/src/special-operators.lisp b/src/special-operators.lisp index a3abc90..4a90683 100644 --- a/src/special-operators.lisp +++ b/src/special-operators.lisp @@ -702,3 +702,15 @@ code in :execute." (if (member :execute situation-list) (ps-compile `(progn ,@body)) (ps-compile `(progn)))) + +(define-expression-operator export (object) + `(ps-js:export ,(ps-compile object))) + +(define-expression-operator export-default (object) + `(ps-js:export-default ,(ps-compile object))) + +(define-expression-operator import (file &rest objects) + `(ps-js:import ,file ,objects)) + +(define-expression-operator import-default (file name) + `(ps-js:import-default ,file ,name))

1 0