Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv2549 Modified Files: lisp-syntax.lisp Log Message: Move defconstant to before first use. Also, introduce indententation rule for long comments (to prevent error). Date: Wed Aug 10 00:12:18 2005 Author: dmurray Index: climacs/lisp-syntax.lisp diff -u climacs/lisp-syntax.lisp:1.23 climacs/lisp-syntax.lisp:1.24 --- climacs/lisp-syntax.lisp:1.23 Tue Aug 9 17:21:07 2005 +++ climacs/lisp-syntax.lisp Wed Aug 10 00:12:17 2005 @@ -1251,6 +1251,9 @@ ;; Adapted from slime.el +(defconstant keyword-package (find-package :keyword) + "The KEYWORD package.") + (defmethod eval-feature-conditional ((conditional token-mixin) (syntax lisp-syntax)) (let* ((string (coerce (buffer-sequence (buffer syntax) (start-offset conditional) @@ -1429,11 +1432,6 @@ do (setf (offset mark) (end-offset form)) (loop-finish)))) -;;; shamelessly stolen from SWANK - -(defconstant keyword-package (find-package :keyword) - "The KEYWORD package.") - ;;; shamelessly replacing SWANK code ;; We first work through the string removing the characters and noting ;; which ones are escaped. We then replace each character with the @@ -1616,6 +1614,9 @@ (values tree 0)) (defmethod indent-form ((syntax lisp-syntax) (tree error-symbol) path) + (values tree 0)) + +(defmethod indent-form ((syntax lisp-syntax) (tree long-comment-form) path) (values tree 0)) (defmethod indent-binding ((syntax lisp-syntax) tree path)