Parent Directory | Revision Log | Patch
revision 1.61 by pfdietz, Sun May 4 11:48:00 2003 UTC | revision 1.62 by pfdietz, Tue May 6 12:13:26 2003 UTC | |
---|---|---|
# | Line 1481 the condition to go uncaught if it canno | Line 1481 the condition to go uncaught if it canno |
1481 | (defun slot-value-or-nil (object slot-name) | (defun slot-value-or-nil (object slot-name) |
1482 | (and (slot-exists-p object slot-name) | (and (slot-exists-p object slot-name) |
1483 | (slot-boundp object slot-name) | (slot-boundp object slot-name) |
(slot-value object slot-name))) | ||
1484 | (slot-value object slot-name))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |