Changeset 8945


Ignore:
Timestamp:
Mar 30, 2008, 7:57:54 AM (11 years ago)
Author:
gb
Message:

Move %SHRINK-VECTOR earlier, since some pathname hacks try to call it.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-files.lisp

    r8286 r8945  
    119119
    120120                   
     121(defun %shrink-vector (vector to-size)
     122  (cond ((eq (length vector) to-size)
     123         vector)
     124        ((array-has-fill-pointer-p vector)
     125         (setf (fill-pointer vector) to-size)
     126         vector)
     127        (t (subseq vector 0 to-size))))
    121128
    122129(defun namestring-unquote (name)
Note: See TracChangeset for help on using the changeset viewer.