Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat May 10 15:41:35 2003 UTC | revision 1.3 by pfdietz, Sat May 10 15:43:31 2003 UTC | |
---|---|---|
# | Line 128 | Line 128 |
128 | (a d e)) | (a d e)) |
129 | ||
130 | (deftest slot-exists-p.16 | (deftest slot-exists-p.16 |
131 | (let ((obj (make-condition 'slot-exists-p-condition-01))) | (let ((obj (make-condition 'slot-exists-p-condition-02))) |
132 | (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym)))) | (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym)))) |
133 | (t t t t t nil)) | (t t t t t nil)) |
134 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |