Parent Directory | Revision Log | Patch
revision 1.20 by mdj, Sat Jan 18 19:07:38 2003 UTC | revision 1.21 by mdj, Thu Mar 6 12:51:45 2003 UTC | |
---|---|---|
# | Line 719 | Line 719 |
719 | ;;; Methods to compare objects | ;;; Methods to compare objects |
720 | ;;; | ;;; |
721 | ||
722 | (define-method (equal? x y) #f) | |
723 | ||
724 | (define-method (object-eqv? x y) #f) | (define-method (object-eqv? x y) #f) |
725 | (define-method (object-equal? x y) (eqv? x y)) | (define-method (object-equal? x y) (eqv? x y)) |
726 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |