Changeset 5195

Timestamp:

12/19/03 17:13:31 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/clos.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: clos.lisp,v 1.40 2003-12-19 17:02:28 piso Exp $
+;;; $Id: clos.lisp,v 1.41 2003-12-19 17:13:31 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -1190 +1190 @@
    (if (eq (class-of gf) the-class-standard-gf)
        #'(lambda (m1 m2)
-          (funcall #'std-method-more-specific-p m1 m2 required-classes))
+          (std-method-more-specific-p m1 m2 required-classes))
        #'(lambda (m1 m2)
-          (funcall #'method-more-specific-p gf m1 m2 required-classes)))))
+          (method-more-specific-p gf m1 m2 required-classes)))))
 
 ;;; method-more-specific-p