Changeset 4336


Ignore:
Timestamp:
10/12/03 18:40:17 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4334 r4336  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defclass.lisp,v 1.17 2003-10-12 18:23:50 piso Exp $
     4;;; $Id: defclass.lisp,v 1.18 2003-10-12 18:40:17 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    373373         (val (slot-contents slots location)))
    374374    (if (eq secret-unbound-value val)
    375         (error "The slot ~S is unbound in the object ~S."
    376                slot-name instance)
     375        (error "the slot ~S is unbound in the object ~S" slot-name instance)
    377376        val)))
    378377(defun slot-value (object slot-name)
     
    769768  (let ((number-required (length (gf-required-arglist gf))))
    770769    (when (< (length args) number-required)
    771       (error "not enough arguments for generic function ~S" gf))
     770      (error 'program-error "not enough arguments for generic function ~S" gf))
    772771    (subseq args 0 number-required)))
    773772
Note: See TracChangeset for help on using the changeset viewer.