Changeset 5030


Ignore:
Timestamp:
12/08/03 21:06:56 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5029 r5030  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.15 2003-12-08 20:54:25 piso Exp $
     4;;; $Id: clos.lisp,v 1.16 2003-12-08 21:06:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    378378  (let ((location (slot-location (class-of instance) slot-name)))
    379379    (if location
    380         (let* ((slots (std-instance-slots instance))
    381                (val (slot-contents slots location)))
     380        (let ((val (slot-contents (std-instance-slots instance) location)))
    382381          (if (eq secret-unbound-value val)
    383382              (error "the slot ~S is unbound in the object ~S" slot-name instance)
Note: See TracChangeset for help on using the changeset viewer.