Changeset 16516


Ignore:
Timestamp:
Aug 26, 2015, 4:35:57 PM (4 years ago)
Author:
rme
Message:

Apply fix to write-perverted-string from ticket:1301.

Closes ticket:1301 and ticket:1135.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r16338 r16516  
    11781178
    11791179(defun write-perverted-string (string stream end type &optional escape)
    1180   ; type :invert :upcase :downcase :capitalize or :studly
     1180  ;; type :invert :upcase :downcase :capitalize or :studly
    11811181  (declare (fixnum end))
    11821182  (let* ((readtable *readtable*)
    11831183         (readcase (readtable-case readtable))
    11841184         (outbuf-ptr -1)
    1185          (outbuf (make-string (if escape
    1186                                 (+ end 2 (count-if (lambda (c) (or (eql c escape)
    1187                                                                    (eql c #\\))) string :end end))
    1188                                 end)))
     1185         (outbuf (make-string (+ end
     1186                                 (if escape 2 0)
     1187                                 (count-if (lambda (c)
     1188                                             (or (eql c escape)
     1189                                                 (eql c #\\)))
     1190                                           string :end end))))
    11891191         (word-start t)
    11901192         (offset 0))
Note: See TracChangeset for help on using the changeset viewer.