gcl.git - GNU Common Lisp

diff --git a/gcl/lsp/gcl_parse_namestring.lsp b/gcl/lsp/gcl_parse_namestring.lsp
index 06bd71015..98d16d29e 100644
--- a/gcl/lsp/gcl_parse_namestring.lsp
+++ b/gcl/lsp/gcl_parse_namestring.lsp

@@ -2,15 +2,6 @@

(deftype seqind nil `fixnum)

-(defun match-beginning (i &aux (v *match-data*))

- (declare ((vector fixnum) v)(seqind i))

- (the (or (integer -1 -1 ) seqind) (aref v i)))

-(defun match-end (i &aux (v *match-data*))

- (declare ((vector fixnum) v)(seqind i))

- (the (or (integer -1 -1 ) seqind) (aref v (+ i (ash (length v) -1)))))

-

-(declaim (inline match-beginning match-end))

-

(defun dir-conj (x) (if (eq x :relative) :absolute :relative))

(defvar *up-key* :up)