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

Fix bug in parse_format_dest

This was introduced in the previous commit where we needed to check
for reserved lisp names. However, we also need to handle the case when
the lun is a number (which we just return).

Noticed by quicklisp tests.
parent e988eaa0
......@@ -3190,7 +3190,13 @@
;; 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 (check-reserved-lisp-names (first dest))))
(let ((lun (first dest)))
(cond ((eq lun '*)
t)
((numberp lun)
lun)
(t
(check-reserved-lisp-names lun)))))
(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