962 |
(defun loop-error (format-string &rest format-args) |
(defun loop-error (format-string &rest format-args) |
963 |
#+(or Genera CLOE) (declare (dbg:error-reporter)) |
#+(or Genera CLOE) (declare (dbg:error-reporter)) |
964 |
#+Genera (setq format-args (copy-list format-args)) ;Don't ask. |
#+Genera (setq format-args (copy-list format-args)) ;Don't ask. |
965 |
(error "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context))) |
(specific-error :invalid-form "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context))) |
966 |
|
|
967 |
|
|
968 |
(defun loop-warn (format-string &rest format-args) |
(defun loop-warn (format-string &rest format-args) |
2101 |
(downfrom (loop-for-arithmetic :downfrom)) |
(downfrom (loop-for-arithmetic :downfrom)) |
2102 |
(upfrom (loop-for-arithmetic :upfrom)) |
(upfrom (loop-for-arithmetic :upfrom)) |
2103 |
(below (loop-for-arithmetic :below)) |
(below (loop-for-arithmetic :below)) |
2104 |
|
(above (loop-for-arithmetic :above)) |
2105 |
|
(by (loop-for-arithmetic :by)) |
2106 |
(to (loop-for-arithmetic :to)) |
(to (loop-for-arithmetic :to)) |
2107 |
(upto (loop-for-arithmetic :upto)) |
(upto (loop-for-arithmetic :upto)) |
2108 |
(being (loop-for-being))) |
(being (loop-for-being))) |