Ignore:
Timestamp:
Mar 21, 2009, 12:08:57 AM (11 years ago)
Author:
gz
Message:

Assorted tweaks for declaration checking

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/loop.lisp

    r11810 r11834  
    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.