Changeset 13964

Timestamp:

Jul 15, 2010, 9:09:30 AM (14 years ago)

Author:

gz

Message:

Add decode-file-range

File:

• trunk/source/level-1/l1-reader.lisp (modified) (1 diff)

trunk/source/level-1/l1-reader.lisp

@@ -3084 +3084 @@
       (cons start-pos end-pos))))
 
+(defun decode-file-range (range)
+  (when range
+    (if (consp range)
+      (values (car range) (cdr range))
+      (let ((start-pos (ash range -14)))
+        (values start-pos (+ start-pos (logand range #x3FFF)))))))
+
 (defun source-note-text (source-note &optional start end)
   (when source-note