Changeset 299


Ignore:
Timestamp:
Jan 15, 2004, 12:25:41 AM (21 years ago)
Author:
Gary Byers
Message:

PATHNAME-DEVICE typechecks its arg before ignoring it.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-files.lisp

    r6 r299  
    12391239
    12401240(defun pathname-device (thing &key case)
    1241   (declare (ignore case thing))
    1242   :unspecific)
     1241  (declare (ignore case))
     1242  (and (pathname thing)                 ;type-checking
     1243       :unspecific))
    12431244
    12441245
Note: See TracChangeset for help on using the changeset viewer.