I noticed that there is a package in maxima called 'sloop' which
shadows CL's loop macro. Grepping in the root maxima dir gives:
$ grep -i 'sloop' *.lisp */*.lisp */*/*.lisp */*/*/*.lisp */*/*/*/*.lisp
lisp-utils/make-proclaim.lisp: (sloop::sloop with ret with at
src/maxima-package.lisp:;; GCL has SLOOP built in but it's slightly
different now...
src/maxima-package.lisp:(defpackage :cl-sloop
src/maxima-package.lisp: (:export #:sloop))
src/maxima-package.lisp: (:import-from :cl-sloop #:sloop)
src/sin.lisp: (timesloop *d* blist)
src/sin.lisp:(defun timesloop (a b)
src/sin.lisp: (addn (mapcar #'(lambda (c) (timesloop c aa)) b) nil))
src/sloop.lisp:(in-package :cl-sloop)
src/sloop.lisp:(defmacro sloop (&rest body) `(loop , at body))
src/sys-proclaim.lisp:(PROCLAIM '(FTYPE (FUNCTION (T T) T)
MAXIMA::TIMESLOOP))
share/algebra/grob1.lisp: (sloop for w in base collect
($decode_poly w nil)))))
share/algebra/grob1.lisp: (let ((monoms (sloop for v in (fourth header)
share/algebra/grob1.lisp: (sloop for v in poly
share/algebra/grob1.lisp: (sloop for deg in (cdr v)
share/algebra/grob1.lisp: ((consp (caar term)) (sloop for v in
term do (show-lazard v)))
share/contrib/graph2d.lisp: (sloop for v in (rest $graph2d_options)
share/contrib/graph2d.lisp: (sloop for v in
(rest $graph2d_options)
share/contrib/graph2d.lisp: (sloop for v on (rest $graph2d_options)
share/contrib/graph2d.lisp: (sloop for v in (rest lis)
share/contrib/graph2d.lisp: (sloop with (this xvals yvals)
share/tensor/itensor.lisp: ((lambda (l) (cond
((sloop for v in l
share/tensor/itensor.lisp: (sloop for v in (setq l
(listify (f- 1 n)))
share/tensor/itensor.lisp: (sloop for v in (setq l
(listify (f- 1 n)))
share/tensor/itensor.lisp: (sloop for v in (cdr e) always
(atom v))
share/contrib/lurkmathml/mathml.lisp: (sloop for i downfrom (1- l)
share/contrib/numericalio/numericalio.lisp: (sloop for i from
0 to (- (car d) 1) do
share/contrib/numericalio/numericalio.lisp: (sloop for i from 0
to (- (car d) 1) do
share/contrib/stringproc/printf.lisp: (sloop for v in args do
I think we can remove it. It's roughly 20 changes in 6 files.. 3
minutes of work. I don't have CVS access, but perhaps somebody can
remove this?
Contrib folder could also be cleaned of some of the outdated stuff,
but this requires some revision of packages..
Regards,
Ziga