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 3565ee15..722588a5 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -216,7 +216,7 @@ (defun STRINGREST (X) (if (EQ (SIZE X) 1) (make-string 0) (SUBSTRING X 1 NIL))) (defun STREAM2UC (STRM) - (LET ((X (ELT (LASTATOM STRM) 1))) (SETELT X 0 (LC2UC (ELT X 0))))) + (LET ((X (ELT (LASTATOM STRM) 1))) (SETF (ELT X 0) (LC2UC (ELT X 0))))) (defun NEWNAMTRANS (X) (COND |