Ignore:
Timestamp:
Oct 2, 2008, 6:43:48 PM (11 years ago)
Author:
gz
Message:

Propagate r10938:r10941 (duplicate definition warnings) to trunk

File:
1 edited

Legend:

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

    r10872 r10942  
    128128
    129129                   
    130 (defun %shrink-vector (vector to-size)
    131   (cond ((eq (length vector) to-size)
    132          vector)
    133         ((array-has-fill-pointer-p vector)
    134          (setf (fill-pointer vector) to-size)
    135          vector)
    136         (t (subseq vector 0 to-size))))
    137 
    138130(defun namestring-unquote (name)
    139131  #+(and windows-target bogus)
     
    258250
    259251
    260 (defun pathname-host (thing)  ; redefined later in this file
    261   (declare (ignore thing))
    262   :unspecific)
    263 
    264 (defun pathname-version (thing)  ; redefined later in this file
    265   (declare (ignore thing))
    266   nil)
     252(fset 'pathname-host (nfunction bootstrapping-pathname-host   ; redefined later in this file
     253                                (lambda (thing)
     254                                  (declare (ignore thing))
     255                                  :unspecific)))
     256
     257(fset 'pathname-version (nfunction bootstrapping-pathname-version   ; redefined later in this file
     258                                   (lambda (thing)
     259                                     (declare (ignore thing))
     260                                     nil)))
    267261
    268262(defmethod print-object ((pathname pathname) stream)
Note: See TracChangeset for help on using the changeset viewer.