Re: font-locking of sexpr form broken

[Tassilo Horn <tassilo@member.fsf.org>]

"livingcosmos.org" <metaperl@gmail.com> writes:

> The font-locking gets messed up on the second format because I have a
> s-expr within the double quotes

I think there was a closing paren missing.  This corrected version is
font-locked fine here.

--8<---------------cut here---------------start------------->8---
(defun calc-frame (noun r)
  (let* ((noun-shape (noun-shape noun))
	 (ls (length noun-shape))
	 (remaining-lead-axes (- ls r)))
    (progn
      (format t "noun-shape: ~A remaining: ~A~%" noun-shape remaining-lead-axes)
      (format t "
(make-frame :length  ~A
	    :shape   ~A
	    :noun    ~A
	    :n-cells ~A
            )" remaining-lead-axes (subseq noun-shape 0 remaining-lead-axes)
 noun (- ls remaining-lead-axes))
      (make-frame :length  remaining-lead-axes
		  :shape   (subseq noun-shape 0 remaining-lead-axes)
		  :noun     noun
		  :n-cells (- ls remaining-lead-axes)))))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo