rename: async-defun => defun-async, async-lambda => lambda-async

Author: Junker

README.md

@@ -15,13 +15,13 @@ This system can be installed from [UltraLisp](https://ultralisp.org/) like this:
 ## Usage
 
 ```common-lisp
-(async-defun foo ()
+(defun-async foo ()
   ...)
 
 (let ((bar (await (foo))))
   ...)
 
-(async-lambda () (await (foo)))
+(lambda-async () (await (foo)))
 ```
 
 ## Credits

package.lisp

@@ -1,5 +1,5 @@
 (defpackage paren-async
   (:use #:cl)
   (:export #:await
-           #:async-defun
-           #:async-lambda))
+           #:defun-async
+           #:lambda-async))

paren-async.lisp

@@ -9,23 +9,23 @@
 (ps::define-trivial-special-ops
     await ps-js::await)
 
-(ps::define-statement-operator async-defun (name lambda-list &rest body)
+(ps::define-statement-operator defun-async (name lambda-list &rest body)
   (multiple-value-bind (effective-args body-block docstring)
       (ps::compile-named-function-body name lambda-list body)
-    (list 'ps-js::async-defun name effective-args docstring body-block)))
+    (list 'ps-js::defun-async name effective-args docstring body-block)))
 
-(ps::defprinter ps-js::async-defun (name args docstring body-block)
+(ps::defprinter ps-js::defun-async (name args docstring body-block)
   (when docstring (ps::print-comment docstring))
   (ps::psw "async ")
   (ps::print-fun-def name args body-block))
 
-(ps::define-expression-operator async-lambda (lambda-list &rest body)
+(ps::define-expression-operator lambda-async (lambda-list &rest body)
   (multiple-value-bind (effective-args effective-body)
       (ps::parse-extended-function lambda-list body)
-    `(ps-js::async-lambda ,effective-args
+    `(ps-js::lambda-async ,effective-args
                           ,(let ((ps::*function-block-names* ()))
                              (ps::compile-function-body effective-args effective-body)))))
 
-(ps::defprinter ps-js::async-lambda (args body-block)
+(ps::defprinter ps-js::lambda-async (args body-block)
   (ps::psw "async ")
   (ps::print-fun-def nil args body-block))