Changeset 13188 for trunk/abcl/src/org


Ignore:
Timestamp:
01/27/11 22:48:10 (11 years ago)
Author:
ehuelsmann
Message:

Fix DEFSTRUCT trying to generate accessors named NIL.

Note: Especially in case of LIST type structures,
DEFSTRUCT generates fake slot definitions with name NIL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

    r12933 r13188  
    376376    (dolist (slot *dd-slots*)
    377377      (let ((accessor-name (dsd-reader slot)))
    378         (unless (assoc accessor-name *dd-inherited-accessors*)
    379           (setf result (nconc result (define-reader slot)))
    380           (unless (dsd-read-only slot)
    381             (setf result (nconc result (define-writer slot)))))))
     378        (unless (null accessor-name)
     379          (unless (assoc accessor-name *dd-inherited-accessors*)
     380            (setf result (nconc result (define-reader slot)))
     381            (unless (dsd-read-only slot)
     382              (setf result (nconc result (define-writer slot))))))))
    382383    result))
    383384
Note: See TracChangeset for help on using the changeset viewer.