Changeset 8965


Ignore:
Timestamp:
Mar 30, 2008, 9:00:03 PM (11 years ago)
Author:
mb
Message:

Record source-location for struct accessors (and other functions
generated by defstruct)

Location:
branches/working-0711/ccl/lib
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/defstruct-lds.lisp

    r8554 r8965  
    363363       (note-function-info ',copier nil ,env))
    364364     (fset ',copier
    365            ,(if (eq (sd-type sd) 'list) '#'copy-list '#'copy-uvector))))
     365           ,(if (eq (sd-type sd) 'list) '#'copy-list '#'copy-uvector))
     366     (record-source-file ',copier 'function)))
    366367; (put 'COPY-SHIP 'nx-alias 'copy-list)
    367368
     
    375376               (< ,named (uvsize ,arg))
    376377               (eq (uvref ,arg ,named) ',sd-name))))))
    377     `((setf (symbol-function ',predicate) #'(lambda (,arg) ,body)))))
     378    `((setf (symbol-function ',predicate) #'(lambda (,arg) ,body))
     379      (record-source-file ',predicate 'function))))
    378380
    379381; End of defstruct-lds.lisp
  • branches/working-0711/ccl/lib/defstruct.lisp

    r8554 r8965  
    141141               `(progn
    142142                  ,fn
    143                   (puthash ',accessor %structure-refs% ',(ssd-type-and-refinfo slot)))
     143                  (puthash ',accessor %structure-refs% ',(ssd-type-and-refinfo slot))
     144                  (record-source-file ',accessor 'structure-accessor))
    144145               stuff))))))
    145146    `(progn ,@(nreverse stuff))))
  • branches/working-0711/ccl/lib/source-files.lisp

    r8934 r8965  
    285285(define-definition-type writer-method (function-definition-type))
    286286
     287(define-definition-type structure-accessor (function-definition-type))
     288
    287289;;;; ** type
    288290
Note: See TracChangeset for help on using the changeset viewer.