Changeset 14155


Ignore:
Timestamp:
09/29/12 09:06:25 (8 years ago)
Author:
Mark Evenson
Message:

Better diagnostics for CL:MAKE-PATHNAME rules for allowable DEVICE components.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Pathname.java

    r13967 r14155  
    13251325                device = value;
    13261326                deviceSupplied = true;
     1327                if (!(value instanceof AbstractString
     1328                      || value.equals(Keyword.UNSPECIFIC)
     1329                      || value.equals(NIL)
     1330                      || value instanceof Cons))
     1331                  error(new TypeError("DEVICE is not a string, :UNSPECIFIC, NIL, or a list.", value, NIL));
    13271332            } else if (key == Keyword.DIRECTORY) {
    13281333                directorySupplied = true;
Note: See TracChangeset for help on using the changeset viewer.