Changeset 14819


Ignore:
Timestamp:
Jun 10, 2011, 10:58:00 PM (8 years ago)
Author:
gz
Message:

Add code-note-acode-start/end-pos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r14793 r14819  
    104104            (with-output-to-string (s) (let ((*print-circle* t)) (prin1 form s)))))
    105105    note))
     106
     107(defun code-note-acode-start-pos (note)
     108  (nth-value 0 (decode-file-range (code-note-acode-range note))))
     109
     110(defun code-note-acode-end-pos (note)
     111  (nth-value 1 (decode-file-range (code-note-acode-range note))))
    106112
    107113(defmethod print-object ((note code-note) stream)
Note: See TracChangeset for help on using the changeset viewer.