diff options
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index aff89033..94187b94 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -374,7 +374,7 @@ ((and (eq next-column start-column) (rplaca nlocs (- (car nlocs))) (not (infixtok next-line))) - (setq next-lines (drop (1- i) slines)) + (setq next-lines (|drop| (1- i) slines)) (rplaca next-lines (addclose (car next-lines) #\;)) (setq count (1+ count)))))))) @@ -383,7 +383,7 @@ (progn (setf (char (car slines) (1- (nonblankloc (car slines)))) #\( ) - (setq slines (drop (1- i) slines)) + (setq slines (|drop| (1- i) slines)) (rplaca slines (addclose (car slines) #\) )))))))) (defun INFIXTOK (S) (MEMBER (STRING2ID-N S 1) '(|then| |else|) :test #'eq)) |