Show
Ignore:
Timestamp:
08/18/11 08:23:42 (22 months ago)
Author:
rjs
Message:

Update.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/lisp/nzwei/for.lisp

    r257 r258  
    484484;;; Return an interval surrounding the DEFUN that BP is in, or NIL if it fails. 
    485485 
    486 (DEFUN DEFUN-INTERVAL (BP &OPTIONAL (TIMES 1) FIXUP-P (COMMENTS-P T)) 
     486(DEFUN DEFUN-INTERVAL (BP &OPTIONAL (TIMES 1) FIXUP-P (COMMENTS-P T) (TOP-BLANK-P NIL)) 
    487487  (PROG (BP1 BP2 BP3 BP4 SBP) 
    488488        (COND ((NULL (SETQ BP1 (FORWARD-DEFUN BP -1))) 
    … …  
    493493        (OR (SETQ BP2 (FORWARD-SEXP BP1 TIMES)) 
    494494            (IF (NOT FIXUP-P) (RETURN NIL) 
    495                 (SETQ BP2 (BEG-LINE (BACKWARD-OVER-COMMENT-LINES (FORWARD-DEFUN BP1 1 T)) 
     495                (SETQ BP2 (BEG-LINE (BACKWARD-OVER-COMMENT-LINES (FORWARD-DEFUN BP1 1 T) 
     496                                                                 TOP-BLANK-P) 
    496497                                    -1)))) 
    497498        (OR (BP-< (END-LINE BP2) BP) 
    … …  
    512513        (SETQ SBP BP1)                  ;Save real starting line 
    513514     CONTIN 
    514         (AND COMMENTS-P (SETQ BP1 (BACKWARD-OVER-COMMENT-LINES BP1))) 
     515        (AND COMMENTS-P (SETQ BP1 (BACKWARD-OVER-COMMENT-LINES BP1 TOP-BLANK-P))) 
    515516        (SETQ BP3 (FORWARD-OVER *BLANKS* BP2)) 
    516517        (AND BP3 (OR (= (LIST-SYNTAX (BP-CHAR BP3)) LIST-COMMENT)