Fixed typo in ps-macro-lib.lisp

[clinton/parenscript.git] / src / lib / ps-macro-lib.lisp

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 47937df..e6c32be 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -138,7 +138,7 @@
 
 (defpsmacro destructuring-bind (vars expr &body body)
   ;; a simple implementation that for now only supports flat lists
-  (let* ((arr (if (complex-js-expr-p expr) (ps-gensym) expr))
+  (let* ((arr (if (complex-js-expr? expr) (ps-gensym) expr))
          (n -1)
          (bindings
           (append (unless (equal arr expr) `((,arr ,expr)))