Changeset 4323


Ignore:
Timestamp:
10/12/03 13:46:39 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4320 r4323  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defclass.lisp,v 1.14 2003-10-12 01:21:56 piso Exp $
     4;;; $Id: defclass.lisp,v 1.15 2003-10-12 13:46:39 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    509509   (method-class              ; :accessor generic-function-method-class
    510510    :initarg :method-class)
    511    (discriminating-function)  ; :accessor generic-function-
    512    ;    -discriminating-function
     511   (discriminating-function)  ; :accessor generic-function-discriminating-function
    513512   (classes-to-emf-table      ; :accessor classes-to-emf-table
    514513    :initform (make-hash-table :test #'equal))))
     
    767766  (let ((number-required (length (gf-required-arglist gf))))
    768767    (when (< (length args) number-required)
    769       (error "Too few arguments to generic function ~S." gf))
     768      (error "not enough arguments for generic function ~S" gf))
    770769    (subseq args 0 number-required)))
    771770
     
    995994;;; compute-applicable-methods-using-classes
    996995
    997 (defun compute-applicable-methods-using-classes
    998   (gf required-classes)
     996(defun compute-applicable-methods-using-classes (gf required-classes)
    999997  (sort
    1000998   (copy-list
     
    10431041        (around (find-if #'around-method-p methods)))
    10441042    (when (null primaries)
    1045       (error "No primary methods for the~@
    1046       generic function ~S." gf))
     1043      (error "no primary methods for the generic function ~S" gf))
    10471044    (if around
    10481045        (let ((next-emfun
Note: See TracChangeset for help on using the changeset viewer.