diff options
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 185a4bd8..fd2cedd6 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -311,7 +311,7 @@ (reverse x) (push (setq newchr (nextcharacter)) x)))) (if (EQUAL NEWCHR '\.) (RETURN (ISLOCALOP-1 IND))) - (setq BUF (GETSTR (LENGTH SELECTOR))) + (setq BUF (|makeString| (LENGTH SELECTOR))) (mapc #'(lambda (x) (suffix x buf)) selector) (setq buf (copy-seq selector)) (setq TERMTOK (INTERN BUF)) |