Ignore:
Timestamp:
12/20/03 18:29:32 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r5232 r5233  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.52 2003-12-20 18:12:01 piso Exp $
     4;;; $Id: clos.lisp,v 1.53 2003-12-20 18:29:32 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    11661166                (if (eq (class-of gf) the-class-standard-gf)
    11671167                    #'std-compute-effective-method-function
    1168                   #'compute-effective-method-function)
     1168                    #'compute-effective-method-function)
    11691169                gf applicable-methods)))
    11701170          (setf (gethash classes (classes-to-emf-table gf)) emfun)
     
    11991199        required-classes)
    12001200  nil)
    1201 
    1202 ;;; apply-methods and compute-effective-method-function
    1203 
    1204 (defun apply-methods (gf args methods)
    1205   (funcall (compute-effective-method-function gf methods)
    1206            args))
    12071201
    12081202(defun primary-method-p (method)
     
    13411335           (funcall (method-function (car methods)) args next-emfun)))))
    13421336
    1343 ;;; apply-method and compute-method-function
    1344 
    1345 (defun apply-method (method args next-methods)
    1346   (funcall (method-function method)
    1347            args
    1348            (if (null next-methods)
    1349                nil
    1350                (compute-effective-method-function
    1351                 (method-generic-function method) next-methods))))
    1352 
    13531337(defvar *call-next-method-p*)
    13541338(defvar *next-method-p-p*)
Note: See TracChangeset for help on using the changeset viewer.