Commit e988eaa0 authored by Raymond Toy's avatar Raymond Toy
Browse files

Check for reserved names in lun for WRITE

In hompack fixpdf.f there's the line

```
  write(trace, 117) ...
```

f2cl was translating this to

```
(f2cl-lib:fformat trace ...)
```

But f2cl already renamed the variable `trace` to `trace$` so
`f2cl-lib:format` was referring to an unknown variable.

So when we parse the lun we need to check for reserved lisp names so
we get the right name.
parent 796624d9
......@@ -3190,7 +3190,7 @@
;; DEST can be any arbitrary expression, so we need to parse it.
(defun parse_format_dest (dest)
(cond ((null (rest dest))
(if (eq (first dest) '*) t (first dest)))
(if (eq (first dest) '*) t (check-reserved-lisp-names (first dest))))
(t
(id-expression dest))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment