Fix dolist.
Fri Jul 10 08:05:16 PDT 2009 levente.meszaros@gmail.com
* Fix dolist.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-quasi-quote/src/js/js-utils.lisp new-cl-quasi-quote/src/js/js-utils.lisp
--- old-cl-quasi-quote/src/js/js-utils.lisp 2014-07-30 22:25:07.000000000 -0700
+++ new-cl-quasi-quote/src/js/js-utils.lisp 2014-07-30 22:25:07.000000000 -0700
@@ -35,7 +35,7 @@
,@(WHEN MORE `((cond ,@MORE))))})))))))
(def (js-macro e) |dolist| ((var list) &body body)
- (with-unique-js-names (idx)
+ (with-unique-names (idx)
(once-only (list)
{with-preserved-readtable-case
`(do ((,IDX 0 (1+ ,IDX)))
diff -rN -u old-cl-quasi-quote/src/js/repositories.lisp new-cl-quasi-quote/src/js/repositories.lisp
--- old-cl-quasi-quote/src/js/repositories.lisp 2014-07-30 22:25:07.000000000 -0700
+++ new-cl-quasi-quote/src/js/repositories.lisp 2014-07-30 22:25:07.000000000 -0700
@@ -28,6 +28,8 @@
(def (function ie) unique-js-name (&optional (prefix "g"))
(concatenate 'string prefix (princ-to-string (incf *js-unique-counter*))))
+;; TODO: delme eventually
+;; this is suspicious and caused a weird bug in dolist (always generating the very same js variable name)
(def (macro e) with-unique-js-names (names &body body)
`(bind (,@(iter (for name :in names)
(collect `(,name (quote ,(make-symbol (unique-js-name (string name))))))))