[Openmcl-cvs-notifications] r13964 - /trunk/source/level-1/l1-reader.lisp

[gz at clozure.com]

Author: gz
Date: Thu Jul 15 11:09:30 2010
New Revision: 13964

Log:
Add decode-file-range

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

Modified: trunk/source/level-1/l1-reader.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-reader.lisp (original)
+++ trunk/source/level-1/l1-reader.lisp Thu Jul 15 11:09:30 2010
@@ -3083,6 +3083,13 @@
       (+ (ash start-pos 14) len)
       (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
     (let* ((source (source-note-source source-note))