Iterate symbol case changes for non-standard lower case CL implementations.

Hi,

The Scieneer CL and ACL have non-standard versions or modes in which the standard symbols are lower case and
this can be 
accommodated with some minor changes.

Regards
Douglas Crosher

diff -rc iterate-20111001-darcs/iterate.lisp ../iterate-20111001-darcs/iterate.lisp
*** iterate-20111001-darcs/iterate.lisp	2011-10-02 01:17:06.000000000 +1000
--- ../iterate-20111001-darcs/iterate.lisp	2011-11-01 22:41:34.000000000 +1100
***************
*** 2324,2342 ****
  	(setf (cdr entry) doc-string))
      symbol))

! ;;; (INITIALLY &rest)
  (def-special-clause initially (&rest forms)
    "Lisp forms to execute before loop starts"
    (mapc #'local-binding-check forms)
    (return-code :initial (copy-list forms)))

! ;;; (AFTER-EACH &rest)
  (def-special-clause after-each (&rest forms)
    "Lisp forms to execute after each iteration"
    (mapc #'local-binding-check forms)
    (return-code :step (walk-list forms)))