Parent Directory | Revision Log | Patch
revision 1.60 by pfdietz, Sat Apr 26 13:51:10 2003 UTC | revision 1.61 by pfdietz, Sun May 4 11:48:00 2003 UTC | |
---|---|---|
# | Line 1477 the condition to go uncaught if it canno | Line 1477 the condition to go uncaught if it canno |
1477 | ||
1478 | (defun map-typep* (object types) | (defun map-typep* (object types) |
1479 | (mapcar (applyf #'typep* object) types)) | (mapcar (applyf #'typep* object) types)) |
1480 | ||
1481 | (defun slot-value-or-nil (object slot-name) | |
1482 | (and (slot-exists-p object slot-name) | |
1483 | (slot-boundp object slot-name) | |
1484 | (slot-value object slot-name))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |