Changeset 413


Ignore:
Timestamp:
Jan 26, 2004, 8:50:18 AM (21 years ago)
Author:
Gary Byers
Message:

%DECODE-FOREIGN-NAME handles 0-length names correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/db-io.lisp

    r336 r413  
    11131113    (declare (fixnum n))
    11141114    (if (zerop n)
    1115       (values nil 1)
     1115      (values nil (1+ p))
    11161116      (let* ((pname (make-string n)))
    11171117        (%copy-ptr-to-ivector buf (1+ p) pname 0 n)
Note: See TracChangeset for help on using the changeset viewer.