Changeset 11645


Ignore:
Timestamp:
Jan 27, 2009, 8:28:33 PM (10 years ago)
Author:
gb
Message:

In FORMAT-STRING-SANS-NEWLINES: don't pass NIL as first arg to SUBSEQ
if POSITION-IF-NOT returns NIL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r11539 r11645  
    19841984                  (setq string (%str-cat (subseq string 0 (- pos 2))
    19851985                                         "~%"
    1986                                          (subseq string (position-if-not #'whitespacep string
    1987                                                                          :start (1+ pos))))))
    1988                  ((eq ch #\~)
     1986                                         (subseq string (or
     1987                                                         (position-if-not #'whitespacep string
     1988                                                                          :start (1+ pos))
     1989                                                         (1+ pos))))))
     1990                  ((eq ch #\~)
    19891991                  (decf pos)
    19901992                  (setq string (%str-cat (subseq string 0 pos)
    1991                                          (subseq string (position-if-not #'whitespacep string
    1992                                                                          :start (1+ pos))))))))
     1993                                         (subseq string (or (position-if-not #'whitespacep string
     1994                                                                         :start (1+ pos))
     1995                                                            (1+ pos))))))))
    19931996  string)
    19941997
Note: See TracChangeset for help on using the changeset viewer.