[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv15119

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (count-cr): Deleted.  No longer used.

--- /project/slime/cvsroot/slime/ChangeLog	2010/03/07 16:22:10	1.2020
+++ /project/slime/cvsroot/slime/ChangeLog	2010/03/07 16:22:17	1.2021
@@ -1,5 +1,9 @@
 2010-03-07  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-allegro.lisp (count-cr): Deleted.  No longer used.
+
+2010-03-07  Helmut Eller  <heller at common-lisp.net>
+
 	Handle src-locs of compiler warnings in Allegro 8.2.
 	Didn't somebody already fix that?
 
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2010/03/07 16:22:10	1.133
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2010/03/07 16:22:17	1.134
@@ -394,22 +394,6 @@
   (etypecase fspec
     (symbol fspec)
     (list (fspec-primary-name (second fspec)))))
-
-;; If Emacs uses DOS-style eol conventions, \n\r are considered as a
-;; single character, but file-position counts them as two.  Here we do
-;; our own conversion.
-(defun count-cr (file pos)
-  (let* ((bufsize 256)
-         (type '(unsigned-byte 8))
-         (buf (make-array bufsize :element-type type))
-         (cr-count 0))
-  (with-open-file (stream file :direction :input :element-type type)
-    (loop for bytes-read = (read-sequence buf stream) do
-          (incf cr-count (count (char-code #\return) buf 
-                                :end (min pos bytes-read)))
-          (decf pos bytes-read)
-          (when (<= pos 0)
-            (return cr-count))))))
               
 (defun find-definition-in-file (fspec type file top-level)
   (let* ((part