Changeset 12113


Ignore:
Timestamp:
08/23/09 17:39:56 (12 years ago)
Author:
ehuelsmann
Message:

Fix types used in THE type-checking for structure access.

File:
1 edited

Legend:

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

    r12098 r12113  
    346346           `((declaim (ftype (function * ,type) ,accessor-name))
    347347             (defun ,accessor-name (instance)
    348                (structure-ref (the ',*dd-name* instance) ,index))
     348               (structure-ref (the ,*dd-name* instance) ,index))
    349349             (define-source-transform ,accessor-name (instance)
    350350               ,(if (eq type 't)
     
    371371          (t
    372372           `((defun (setf ,accessor-name) (value instance)
    373                (structure-set (the ',*dd-name* instance) ,index value))
     373               (structure-set (the ,*dd-name* instance) ,index value))
    374374             (define-source-transform (setf ,accessor-name) (value instance)
    375375               `(structure-set (the ,',*dd-name* ,instance)
Note: See TracChangeset for help on using the changeset viewer.