Changeset 4593
- Timestamp:
- 11/01/03 19:11:27 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/GenericFunction.java
r4331 r4593 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: GenericFunction.java,v 1. 2 2003-10-12 18:21:50piso Exp $5 * $Id: GenericFunction.java,v 1.3 2003-11-01 19:11:27 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 78 78 } 79 79 80 public String toString() 81 { 82 LispObject slots = getSlots(); 83 if (slots instanceof AbstractVector) { 84 AbstractVector v = (AbstractVector) slots; 85 try { 86 if (v.length() > 0) { 87 LispObject name = v.get(0); 88 if (name != null) { 89 StringBuffer sb = new StringBuffer("#<"); 90 sb.append(String.valueOf(getLispClass().getSymbol())); 91 sb.append(' '); 92 sb.append(String.valueOf(name)); 93 sb.append('>'); 94 return sb.toString(); 95 } 96 } 97 } 98 catch (Throwable t) { 99 Debug.trace(t); 100 } 101 } 102 return super.toString(); 103 } 104 80 105 private static final Primitive1 GENERIC_FUNCTION_DISCRIMINATING_FUNCTION = 81 106 new Primitive1("generic-function-discriminating-function", PACKAGE_SYS, false)
Note: See TracChangeset
for help on using the changeset viewer.