diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
| commit | c849886ef096a445a65041c0e54ab02728b7b512 (patch) | |
| tree | c8e791d6c78d6146c393d4e9358deb1f4aa3c725 /src/interp/debug.lisp | |
| parent | d0c0f05a363c11d57c7d70baa224dccb92687ae3 (diff) | |
| download | open-axiom-c849886ef096a445a65041c0e54ab02728b7b512.tar.gz | |
* interp/c-util.boot: Miscellaneous cleanup.
* interp/compiler.boot: Likewise.
* interp/database.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/format.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/macros.lisp: Likewise.
* interp/monitor.lisp: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nlib.lisp: Likewise.
* interp/parsing.lisp: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sfsfun.boot: Likewise.
* interp/util.lisp: Likewise.
Diffstat (limited to 'src/interp/debug.lisp')
| -rw-r--r-- | src/interp/debug.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 21bacd14..6ece9a85 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -237,7 +237,7 @@ DEF ) ) ) ( 'T (let* ((mode-line (read-line inputstream)) - (pacpos (search "package:" mode-line :test #'equalp)) + (pacpos (|findString| "package:" mode-line)) (endpos (search "-*-" mode-line :from-end t)) (*package* *package*) (newpac nil)) @@ -1054,8 +1054,8 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (defun SPADSYSNAMEP (STR) (let (n i j) (AND (SETQ N (|maxIndex| STR)) - (SETQ I (position #\. STR :start 1)) - (SETQ J (position #\, STR :start (1+ I))) + (SETQ I (|findChar| #\. STR 1)) + (SETQ J (|findChar| #\, STR (1+ I))) (do ((k (1+ j) (1+ k))) ((> k n) t) (if (not (digitp (elt str k))) (return nil)))))) |