Ignore:
Timestamp:
12/06/03 14:10:57 (18 years ago)
Author:
piso
Message:

DOTIMES: make implicit nil block have the right scope.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/boot.lisp

    r4982 r4990  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.132 2003-12-06 00:03:09 piso Exp $
     4;;; $Id: boot.lisp,v 1.133 2003-12-06 14:10:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    326326  (if (numberp count)
    327327      (let ((tag (gensym)))
    328         `(let ((,var 0))
    329            (block nil
     328        `(block nil
     329           (let ((,var 0))
    330330             (tagbody
    331331              ,tag
     
    337337      (let ((limit (gensym))
    338338            (tag (gensym)))
    339         `(let ((,limit ,count)
    340                (,var 0))
    341            (block nil
     339        `(block nil
     340           (let ((,limit ,count)
     341                 (,var 0))
    342342             (tagbody
    343343              ,tag
Note: See TracChangeset for help on using the changeset viewer.