Changeset 12215 for trunk/source/library


Ignore:
Timestamp:
Jun 6, 2009, 9:27:52 PM (10 years ago)
Author:
gz
Message:

Merge r11834 r11669 r11833 r11834 into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/loop.lisp

    r11855 r12215  
    19101910(defun loop-for-arithmetic (var val data-type kwd)
    19111911  (loop-sequencer
    1912     var (loop-check-data-type data-type *loop-real-data-type*) t
     1912    var (loop-check-data-type data-type 'number) t
    19131913    nil nil nil nil nil nil
    19141914    (loop-collect-prepositional-phrases
     
    19701970            (setq key-var (and other-p other-var) val-var variable))
    19711971        (push `(with-hash-table-iterator (,next-fn ,ht-var)) *loop-wrappers*)
    1972         (when (consp key-var)
     1972        (when (or (consp key-var) data-type)
    19731973          (setq post-steps `(,key-var ,(setq key-var (loop-gentemp 'loop-hash-key-temp-))
    19741974                             ,@post-steps))
    19751975          (push `(,key-var nil) bindings))
    1976         (when (consp val-var)
     1976        (when (or (consp val-var) data-type)
    19771977          (setq post-steps `(,val-var ,(setq val-var (loop-gentemp 'loop-hash-val-temp-))
    19781978                             ,@post-steps))
Note: See TracChangeset for help on using the changeset viewer.