Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/compiler/nx0.lisp

    r14058 r14259  
    24702470             (go START)))
    24712471         (unless macro-function
    2472            (when (setq transforms (or (environment-structref-info sym environment)
    2473                                       (and (boundp '%structure-refs%)
    2474                                            (gethash sym %structure-refs%))))
     2472           (when (setq transforms (structref-info sym environment))
    24752473             (setq form (defstruct-ref-transform transforms (%cdr form) environment))
    24762474             (form-changed form)
Note: See TracChangeset for help on using the changeset viewer.