Changeset 9079


Ignore:
Timestamp:
05/06/05 20:13:25 (16 years ago)
Author:
piso
Message:

LOGICAL-PATHNAME: type checking.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/LogicalPathname.java

    r8087 r9079  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: LogicalPathname.java,v 1.6 2004-11-03 15:39:01 piso Exp $
     5 * $Id: LogicalPathname.java,v 1.7 2005-05-06 20:13:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    113113            if (arg instanceof Stream)
    114114                return NIL;
    115             return signal(new TypeError(String.valueOf(arg) +
    116                                         " is not a string, stream, or logical pathname."));
     115            return signal(new TypeError(arg,
     116                                        list4(Symbol.OR, Symbol.LOGICAL_PATHNAME,
     117                                              Symbol.STRING, Symbol.STREAM)));
    117118        }
    118119    };
Note: See TracChangeset for help on using the changeset viewer.