diff options
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)))))) |