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.<br><br>Daniel<br><br>From 6e7190ace745f5bb2448249b368104a9a8917679 Mon Sep 17 00:00:00 2001<br>
From: Daniel Gackle <<a href="mailto:danielgackle@gmail.com">danielgackle@gmail.com</a>><br>Date: Mon, 20 Apr 2009 16:14:20 -0700<br>Subject: [PATCH] Use the name of function COMPLEX-JS-EXPR? consistently.<br><br>---<br>
 src/lib/ps-loop.lisp |    4 ++--<br> 1 files changed, 2 insertions(+), 2 deletions(-)<br><br>diff --git a/src/lib/ps-loop.lisp b/src/lib/ps-loop.lisp<br>index 7eeae46..e806e41 100644<br>--- a/src/lib/ps-loop.lisp<br>+++ b/src/lib/ps-loop.lisp<br>
@@ -1,6 +1,6 @@<br> (in-package :parenscript)<br> <br>-(defun complex-js-expr-p (expr)<br>+(defun complex-js-expr? (expr)<br>   (if (symbolp expr)<br>       (find #\. (symbol-name expr))<br>       (consp expr)))<br>@@ -26,7 +26,7 @@<br>
         destructurings body)<br>     (macrolet ((with-local-var ((name expr) &body body)<br>                  (once-only (expr)<br>-                   `(let ((,name (aif (and (complex-js-expr-p ,expr) (ps-gensym))<br>
+                   `(let ((,name (aif (and (complex-js-expr? ,expr) (ps-gensym))<br>                                       (progn (push (list 'var it ,expr) prologue)<br>                                              it)<br>
                                       ,expr)))<br>-- <br>1.6.1<br><br><br>