[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
font-locking of sexpr form broken
From: |
livingcosmos.org |
Subject: |
font-locking of sexpr form broken |
Date: |
Thu, 27 Dec 2007 19:51:26 -0800 (PST) |
User-agent: |
G2/1.0 |
The font-locking gets messed up on the second format because I have a
s-expr within the double quotes
(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)))))
- font-locking of sexpr form broken,
livingcosmos.org <=