Changeset 5193
 Timestamp:
 12/19/03 16:50:00 (18 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/clos.lisp
r5152 r5193 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: clos.lisp,v 1.3 8 20031215 17:28:39piso Exp $4 ;;; $Id: clos.lisp,v 1.39 20031219 16:50:00 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 1188 1188 (methodspecializers method))) 1189 1189 (genericfunctionmethods gf))) 1190 #'(lambda (m1 m2) 1191 (funcall 1192 (if (eq (classof gf) theclassstandardgf) 1193 #'stdmethodmorespecificp 1194 #'methodmorespecificp) 1195 gf m1 m2 requiredclasses)))) 1190 (if (eq (classof gf) theclassstandardgf) 1191 #'(lambda (m1 m2) 1192 (funcall #'stdmethodmorespecificp gf m1 m2 requiredclasses)) 1193 #'(lambda (m1 m2) 1194 (funcall #'methodmorespecificp gf m1 m2 requiredclasses))))) 1196 1195 1197 1196 ;;; methodmorespecificp … … 1248 1247 ((memq (car qualifiers) '(:before :after))) 1249 1248 (t 1250 ( invalid genericfunction combin m)))))1249 (error "invalid method qualifiers"))))) 1251 1250 (unless (eq order :mostspecificlast) 1252 1251 (setq primaries (nreverse primaries))) … … 1580 1579 1581 1580 (defgeneric computeeffectivemethodfunction (gf methods)) 1582 (defmethod computeeffectivemethodfunction 1583 ((gf standardgenericfunction) methods) 1581 (defmethod computeeffectivemethodfunction ((gf standardgenericfunction) methods) 1584 1582 (stdcomputeeffectivemethodfunction gf methods)) 1585 1583
Note: See TracChangeset
for help on using the changeset viewer.