Changeset 13964


Ignore:
Timestamp:
Jul 15, 2010, 4:09:30 PM (9 years ago)
Author:
gz
Message:

Add decode-file-range

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-reader.lisp

    r13498 r13964  
    30843084      (cons start-pos end-pos))))
    30853085
     3086(defun decode-file-range (range)
     3087  (when range
     3088    (if (consp range)
     3089      (values (car range) (cdr range))
     3090      (let ((start-pos (ash range -14)))
     3091        (values start-pos (+ start-pos (logand range #x3FFF)))))))
     3092
    30863093(defun source-note-text (source-note &optional start end)
    30873094  (when source-note
Note: See TracChangeset for help on using the changeset viewer.