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

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@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))
participants (1)
-
Frode Vatvedt Fjeld