/[gcl]/gcl/cmpnew/gcl_cmptype.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptype.lsp

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

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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