Permalink
Browse files

Rename loop-indexes to do-indexes.

The 'loop' prefix confuses common-lisp-indent-function.
  • Loading branch information...
1 parent f493a73 commit 1118ba0b82e1105716cd1d8d6079dad994f11c1a @angavrilov committed Sep 5, 2009
Showing with 4 additions and 3 deletions.
  1. +1 −1 compute-pkg.lisp
  2. +2 −1 formula.el
  3. +1 −1 logic/loops.lisp
View
@@ -7,7 +7,7 @@
(:export "MULTIVALUE" "MULTIVALUE-DATA" "MULTIVALUE-SYNC"
"DEF-MULTIVALUE" "COPY-MULTIVALUE" "DEF-MULTIVALUE-MACRO"
"ALLOC-MULTIVALUES" "WITH-LOCAL-MULTIVALUES"
- "IREF" "ENABLE-EXPR-QUOTES" "LOOP-INDEXES"
+ "IREF" "ENABLE-EXPR-QUOTES" "DO-INDEXES"
"*CURRENT-COMPUTE*" "COMPUTE"
"LETV" "CALC" "_GRP"
"SET-COMPUTE-THREAD-COUNT" "PARALLEL-LOOP"
View
@@ -166,7 +166,8 @@ When Formula mode is enabled, code within {} is indented specially."
(put 'do-wrap-loops 'common-lisp-indent-function '(&rest nil))
(put 'error-fallback 'common-lisp-indent-function 2)
(put 'wrap-compute-sync-data 'common-lisp-indent-function 2)
-
+(put 'letv 'common-lisp-indent-function 1)
+(put 'do-indexes 'common-lisp-indent-function 2)
;;; Some tweaks for the indentation of the compute statement.
(put 'compute 'common-lisp-indent-function
View
@@ -116,7 +116,7 @@
(build-loop-list name indexes idxlist
:min-layer min-layer)))
-(defmacro loop-indexes (name idxlist &body code)
+(defmacro do-indexes (name idxlist &body code)
(let ((indexes (get name 'mv-indexes)))
(unless indexes
(error "Unknown multivalue ~A" name))

0 comments on commit 1118ba0

Please sign in to comment.