From 98b0b2441e3195f944c5cf1351dc438da6def2ff Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Sun, 19 Apr 2009 21:24:23 -0600
Subject: [PATCH] Fixed typo in ps-macro-lib.lisp

---
 src/lib/ps-macro-lib.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 47937df..e6c32be 100644
--- 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)))
-- 
2.20.1