Changeset 8953


Ignore:
Timestamp:
Mar 30, 2008, 8:04:34 AM (11 years ago)
Author:
gb
Message:

%SHRINK-VECTOR moved earlier, to deal with temporary pathname hacks.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lib/arrays-fry.lisp

    r2325 r8953  
    210210
    211211; new and faulty def
    212 (defun %shrink-vector (vector to-size)
    213   (cond ((eq (length vector) to-size)
    214          vector)
    215         ((array-has-fill-pointer-p vector)
    216          (setf (fill-pointer vector) to-size)
    217          vector)
    218         (t (subseq vector 0 to-size))))
     212
    219213
    220214
Note: See TracChangeset for help on using the changeset viewer.