diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 11:05:12 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 11:14:26 -0700 |
commit | 93b9dc32bd0585e58de69a3428f17879a55bbc0b (patch) | |
tree | 517d11df0bac0c7f3ca98b6005270c6f8e7dbd61 /src/property.lisp | |
parent | d60073bace57dbc13e295f40d39d73092844c08c (diff) | |
download | consfigurator-93b9dc32bd0585e58de69a3428f17879a55bbc0b.tar.gz |
Emacs indentation info: move downcasing to output
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/property.lisp b/src/property.lisp index 33b9e71..44fbd17 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -146,7 +146,7 @@ see MAP-PROPSPEC-PROPAPPS for how they are used.") for (prop . indent) in (nreverse (mappend (lambda (s) (get s 'indent)) *known-properties*)) - do (format s " (put '~A 'common-lisp-indent-function '~A)~%" + do (format s " (put '~(~A~) 'common-lisp-indent-function '~A)~%" prop indent)))))) (with-open-file (in from) (with-open-file (out to :direction :output :if-exists :supersede) @@ -160,10 +160,9 @@ see MAP-PROPSPEC-PROPAPPS for how they are used.") (let* ((package-short-name (lastcar (split-string (package-name *package*) :separator "."))) (short-name - (string-downcase - (if (string= package-short-name "CONSFIGURATOR") - (symbol-name sym) - (strcat package-short-name ":" (symbol-name sym))))) + (if (string= package-short-name "CONSFIGURATOR") + (symbol-name sym) + (strcat package-short-name ":" (symbol-name sym)))) (dotted-name (strcat short-name ".")) indent) (cond |