/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26