Parent Directory | Revision Log | Patch
revision 1.63 by pfdietz, Mon May 19 13:08:57 2003 UTC | revision 1.64 by pfdietz, Thu Jun 5 11:24:14 2003 UTC | |
---|---|---|
# | Line 1485 the condition to go uncaught if it canno | Line 1485 the condition to go uncaught if it canno |
1485 | (and (slot-exists-p object slot-name) | (and (slot-exists-p object slot-name) |
1486 | (slot-boundp object slot-name) | (slot-boundp object slot-name) |
1487 | (slot-value object slot-name))) | (slot-value object slot-name))) |
1488 | ||
1489 | (defun is-noncontiguous-sublist-of (list1 list2) | |
1490 | (loop | |
1491 | for x in list1 | |
1492 | do (loop | |
1493 | when (null list2) do (return-from is-noncontiguous-sublist-of nil) | |
1494 | when (eql x (pop list2)) do (return)) | |
1495 | finally (return t))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |