Changeset 4616
- Timestamp:
- 11/02/03 19:58:17 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/TwoWayStream.java
r4116 r4616 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: TwoWayStream.java,v 1. 6 2003-09-28 20:17:06piso Exp $5 * $Id: TwoWayStream.java,v 1.7 2003-11-02 19:58:17 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 48 48 } 49 49 50 public Lisp Object typep(LispObject typeSpecifier) throws ConditionThrowable50 public LispClass classOf() 51 51 { 52 if (typeSpecifier == Symbol.TWO_WAY_STREAM) 52 return BuiltInClass.TWO_WAY_STREAM; 53 } 54 55 public LispObject typep(LispObject type) throws ConditionThrowable 56 { 57 if (type == Symbol.TWO_WAY_STREAM) 53 58 return T; 54 return super.typep(typeSpecifier); 59 if (type == BuiltInClass.TWO_WAY_STREAM) 60 return T; 61 return super.typep(type); 55 62 } 56 63
Note: See TracChangeset
for help on using the changeset viewer.