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-utils.lisp

    r10712 r10942  
    9292;;; to avoid clutter - done
    9393
    94 (defun physical-pathname-p (file)(declare (ignore file)) nil) ; redefined later
     94(fset 'physical-pathname-p (lambda (file)(declare (ignore file)) nil)) ; redefined later
    9595
    9696
    9797;(%defvar *enqueued-window-title* nil)
    9898
    99 (defun booted-probe-file (file)
    100   (declare (ignore file))
    101   nil)
     99(fset 'booted-probe-file (lambda (file) (declare (ignore file)) nil))
    102100
    103101(queue-fixup
Note: See TracChangeset for help on using the changeset viewer.