| author | Camm Maguire <camm@valiant.maguirefamily.org> | 2016年11月07日 21:26:18 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@valiant.maguirefamily.org> | 2016年11月07日 21:26:18 +0000 |
| commit | 24ff58092b5e017ef854ba5b00574306c6d3ca15 (patch) | |
| tree | de0b9594deee0d5f0cb99d0140d97a8996b0dab2 | |
| parent | 95e8c8b7e40a7217e7b1424fdc9af6b7c284753a (diff) | |
| download | gcl-pathnames1.tar.gz | |
| -rw-r--r-- | gcl/lsp/gcl_parse_namestring.lsp | 9 |
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) |