Changeset 4894
 Timestamp:
 11/25/03 06:41:04 (18 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/clos.lisp
r4873 r4894 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: clos.lisp,v 1. 8 20031123 00:58:20 pisoExp $4 ;;; $Id: clos.lisp,v 1.9 20031125 06:41:04 asimon Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 1085 1085 1086 1086 (defun slowmethodlookup (gf args classes) 1087 (let* ((applicablemethods 1088 (computeapplicablemethodsusingclasses gf classes)) 1089 (emfun 1090 (funcall 1091 (if (eq (classof gf) theclassstandardgf) 1092 #'stdcomputeeffectivemethodfunction 1093 #'computeeffectivemethodfunction) 1094 gf applicablemethods))) 1095 (setf (gethash classes (classestoemftable gf)) emfun) 1096 (funcall emfun args))) 1087 (let ((applicablemethods 1088 (computeapplicablemethodsusingclasses gf classes))) 1089 (if applicablemethods 1090 (let ((emfun 1091 (funcall 1092 (if (eq (classof gf) theclassstandardgf) 1093 #'stdcomputeeffectivemethodfunction 1094 #'computeeffectivemethodfunction) 1095 gf applicablemethods))) 1096 (setf (gethash classes (classestoemftable gf)) emfun) 1097 (funcall emfun args)) 1098 (error "no methods applicable for generic function ~S with arguments ~S of classes ~S" gf args classes)))) 1097 1099 1098 1100 ;;; computeapplicablemethodsusingclasses
Note: See TracChangeset
for help on using the changeset viewer.