Changeset 11127


Ignore:
Timestamp:
Oct 17, 2008, 1:04:44 PM (11 years ago)
Author:
gz
Message:

record-source-file for structure accessors (so at least can get to the right file); remove bootstrapping support for structure class cells

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/defstruct.lisp

    r11038 r11127  
    7575(defun %structure-class-of (thing)
    7676  (let* ((cell (car (uvref thing 0))))
    77     (if (istruct-typep cell 'class-cell)
    78       (or (class-cell-class cell)
    79           (setf (class-cell-class cell)
    80                 (find-class (class-cell-name cell))))
    81       (find-class cell))))
     77    (or (class-cell-class cell)
     78        (setf (class-cell-class cell)
     79              (find-class (class-cell-name cell))))))
    8280
    8381;These might want to compiler-transform into non-typechecking versions...
     
    145143               `(progn
    146144                  ,.fn
    147                   (puthash ',accessor %structure-refs% ',(ssd-type-and-refinfo slot)))
     145                  (puthash ',accessor %structure-refs% ',(ssd-type-and-refinfo slot))
     146                  (record-source-file ',accessor 'structure-accessor))
    148147               stuff))))))
    149148    (nreverse stuff)))
Note: See TracChangeset for help on using the changeset viewer.