Changeset 4626
- Timestamp:
- 11/03/03 15:24:13 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Pathname.java
r4438 r4626 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: Pathname.java,v 1.1 7 2003-10-17 17:34:13 piso Exp $5 * $Id: Pathname.java,v 1.18 2003-11-03 15:24:13 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 53 53 } 54 54 55 public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable 56 { 57 if (typeSpecifier == Symbol.PATHNAME) 55 public LispClass classOf() 56 { 57 return BuiltInClass.PATHNAME; 58 } 59 60 public LispObject typep(LispObject type) throws ConditionThrowable 61 { 62 if (type == Symbol.PATHNAME) 58 63 return T; 59 return super.typep(typeSpecifier); 64 if (type == BuiltInClass.PATHNAME) 65 return T; 66 return super.typep(type); 60 67 } 61 68
Note: See TracChangeset
for help on using the changeset viewer.