[parenscript-devel] Minor patch: inconsistent function name

[Daniel Gackle]

Unless I'm missing something, the same function was still being referred to
with names COMPLEX-JS-EXPR? and COMPLEX-JS-EXPR-P. Below is a patch to use
the first name consistently.

Daniel

>From 6e7190ace745f5bb2448249b368104a9a8917679 Mon Sep 17 00:00:00 2001
From: Daniel Gackle <danielgackle at gmail.com>
Date: Mon, 20 Apr 2009 16:14:20 -0700
Subject: [PATCH] Use the name of function COMPLEX-JS-EXPR? consistently.

---
 src/lib/ps-loop.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lib/ps-loop.lisp b/src/lib/ps-loop.lisp
index 7eeae46..e806e41 100644
--- a/src/lib/ps-loop.lisp
+++ b/src/lib/ps-loop.lisp
@@ -1,6 +1,6 @@
 (in-package :parenscript)

-(defun complex-js-expr-p (expr)
+(defun complex-js-expr? (expr)
   (if (symbolp expr)
       (find #\. (symbol-name expr))
       (consp expr)))
@@ -26,7 +26,7 @@
         destructurings body)
     (macrolet ((with-local-var ((name expr) &body body)
                  (once-only (expr)
-                   `(let ((,name (aif (and (complex-js-expr-p ,expr)
(ps-gensym))
+                   `(let ((,name (aif (and (complex-js-expr? ,expr)
(ps-gensym))
                                       (progn (push (list 'var it ,expr)
prologue)
                                              it)
                                       ,expr)))
-- 
1.6.1
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20090420/4306e2d7/attachment.html>