Parent Directory | Revision Log | Patch
revision 1.18 by camm, Wed Oct 5 15:23:53 2005 UTC | revision 1.19 by camm, Wed Oct 12 01:48:29 2005 UTC | |
---|---|---|
# | Line 290 | Line 290 |
290 | (defun type>= (type1 type2) | (defun type>= (type1 type2) |
291 | (equal (type-and type1 type2) type2)) | (equal (type-and type1 type2) type2)) |
292 | (defun type<= (type1 type2) | (defun type<= (type1 type2) |
293 | (equal (type-and type1 type2) type1)) | (equal (type-and type2 type1) type1)) |
294 | ||
295 | ||
296 | (defun type-or1-int (type1 type2) | (defun type-or1-int (type1 type2) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |