[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Dave Murray]

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)