Ignore:
Timestamp:
01/02/04 00:41:04 (18 years ago)
Author:
piso
Message:

ENSURE-GENERIC-FUNCTION: :format-args => :format-arguments

File:
1 edited

Legend:

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

    r5236 r5316  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.55 2003-12-20 19:54:08 piso Exp $
     4;;; $Id: clos.lisp,v 1.56 2004-01-02 00:41:04 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    780780          (error 'program-error
    781781                 :format-control "~A already names an ordinary function, macro, or special operator."
    782                  :format-args (list function-name)))
     782                 :format-arguments (list function-name)))
    783783        (let ((gf (apply (if (eq generic-function-class the-class-standard-gf)
    784784                             #'make-instance-standard-generic-function
     
    14121412
    14131413(defgeneric slot-missing (class instance slot-name operation &optional new-value))
     1414
    14141415(defmethod slot-missing ((class t) instance slot-name operation &optional new-value)
    1415   (error "the slot ~S is missing from the class ~S" slot-name class))
     1416  (error "The slot ~S is missing from the class ~S." slot-name class))
    14161417
    14171418;;; Instance creation and initialization
Note: See TracChangeset for help on using the changeset viewer.