Changeset 4873


Ignore:
Timestamp:
11/23/03 00:58:20 (18 years ago)
Author:
piso
Message:

SLOT-LOCATION: removed unnecessary special case handling.

File:
1 edited

Legend:

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

    r4650 r4873  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.7 2003-11-05 01:48:52 piso Exp $
     4;;; $Id: clos.lisp,v 1.8 2003-11-23 00:58:20 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    380380
    381381(defun slot-location (class slot-name)
    382   (if (and (eq slot-name 'effective-slots)
    383            (eq class the-class-standard-class))
    384       (position 'effective-slots the-slots-of-standard-class
    385                 :key #'slot-definition-name)
    386       (let ((slot (find slot-name (class-slots class)
    387                         :key #'slot-definition-name)))
    388         (if slot
    389             (position slot (remove-if-not #'instance-slot-p (class-slots class)))
    390             nil))))
     382  (let ((slot (find slot-name (class-slots class)
     383                    :key #'slot-definition-name)))
     384    (if slot
     385        (position slot (remove-if-not #'instance-slot-p (class-slots class)))
     386        nil)))
    391387
    392388(defun slot-contents (slots location)
Note: See TracChangeset for help on using the changeset viewer.