/[gcl]/gcl/lsp/loop.lsp
ViewVC logotype

Diff of /gcl/lsp/loop.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Wed Oct 23 00:16:08 2002 UTC revision 1.5 by camm, Sun Nov 17 21:43:01 2002 UTC
# Line 962  a LET-like macro, and a SETQ-like macro, Line 962  a LET-like macro, and a SETQ-like macro,
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)
# Line 2101  collected result will be returned as the Line 2101  collected result will be returned as the
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)))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26