[movitz-cvs] CVS update: movitz/special-operators.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

9 Jul 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv12362
Modified Files:
    special-operators.lisp 
Log Message:
Minor edit.
Date: Fri Jul  9 09:12:44 2004
Author: ffjeld
Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.23 movitz/special-operators.lisp:1.24

--- movitz/special-operators.lisp:1.23	Sun Jun  6 08:12:40 2004
+++ movitz/special-operators.lisp	Fri Jul  9 09:12:44 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.23 2004/06/06 15:12:40 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.24 2004/07/09 16:12:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1092,7 +1092,7 @@
      :forward all
      :form (+ (eval-form term1 env)
    	   (eval-form term2 env))))
-       ((and (movitz-constantp term1 env)	; first operand zero?
+       ((and (movitz-constantp term1 env) ; first operand zero?
         (zerop (eval-form term1 env)))
    (compiler-call #'compile-form-unprotected
      :forward all

    