X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Floop.lisp;h=5cc33477957b2372b6c0164d87a511e5f73ee80c;hb=a96369c72588c5457d71d6aaea35f2c450b19ef5;hp=ed2469260d45724b58a26b4170d656cc9112c213;hpb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index ed24692..5cc3347 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -737,10 +737,9 @@ code to be loaded.
       ((eq l (cdr *loop-source-code*)) (nreverse new))))
 
 (defun loop-error (format-string &rest format-args)
-  (error "~?~%current LOOP context:~{ ~S~}."
-	 format-string
-	 format-args
-	 (loop-context)))
+  (error 'sb!int:simple-program-error
+	 :format-control "~?~%current LOOP context:~{ ~S~}."
+	 :format-arguments (list format-string format-args (loop-context))))
 
 (defun loop-warn (format-string &rest format-args)
   (warn "~?~%current LOOP context:~{ ~S~}."
@@ -1896,8 +1895,10 @@ code to be loaded.
 			     (downfrom (loop-for-arithmetic :downfrom))
 			     (upfrom (loop-for-arithmetic :upfrom))
 			     (below (loop-for-arithmetic :below))
+                             (above (loop-for-arithmetic :above))
 			     (to (loop-for-arithmetic :to))
 			     (upto (loop-for-arithmetic :upto))
+			     (downto (loop-for-arithmetic :downto))
 			     (by (loop-for-arithmetic :by))
 			     (being (loop-for-being)))
 	     :iteration-keywords '((for (loop-do-for))