From c849886ef096a445a65041c0e54ab02728b7b512 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 12 May 2012 03:11:52 +0000 Subject: * 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. --- src/interp/debug.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/debug.lisp') 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)))))) -- cgit v1.2.3