Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sun May 18 01:10:33 2003 UTC | revision 1.3 by pfdietz, Fri Jun 13 12:01:28 2003 UTC | |
---|---|---|
# | Line 143 | Line 143 |
143 | ||
144 | ;;; If slot is unbound, act as if slot-value had been called | ;;; If slot is unbound, act as if slot-value had been called |
145 | ||
146 | (defmethod slot-unbound ((class (eql (find-class 'with-slots-class-01))) | (defmethod slot-unbound ((class t) |
147 | instance slot-name) | (instance with-slots-class-01) |
148 | slot-name) | |
149 | 'missing) | 'missing) |
150 | ||
151 | (deftest with-slots.18 | (deftest with-slots.18 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |