[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv11575

Modified Files:
	special-operators.lisp 
Log Message:
There's something funny in my lisp-mode that sometimes causes comments
to be messed up like this..

Date: Tue Apr  6 20:21:29 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.17 movitz/special-operators.lisp:1.18
--- movitz/special-operators.lisp:1.17	Wed Mar 31 11:33:25 2004
+++ movitz/special-operators.lisp	Tue Apr  6 20:21:28 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.17 2004/03/31 16:33:25 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.18 2004/04/07 00:21:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -711,9 +711,8 @@
 	as sub-form-result-mode = buried-result-modes
 	then (or (cdr sub-form-result-mode)
 		 sub-form-result-mode)
-	as current-result-mode = (if (endp (cdr sub-form)) all but the
-				     ;; last form have result-mode as
-				     ;; declared
+	as current-result-mode = (if (endp (cdr sub-form))
+				     ;; all but the last form have result-mode as declared
 				     result-mode
 				   (car sub-form-result-mode))
 	as last-form-p = (endp (cdr sub-form))