[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv3266

Modified Files:
	eval.lisp 
Log Message:
Rename parse-foo-formal to decode-foo-formal.


--- /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/04/21 19:40:05	1.32
+++ /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/04/27 08:38:01	1.33
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 19 21:15:12 2001
 ;;;;                
-;;;; $Id: eval.lisp,v 1.32 2008/04/21 19:40:05 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.33 2008/04/27 08:38:01 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -214,7 +214,7 @@
                   (push x r)))))
          (ignore-env-var
           (when (not env-var)
-            (gensym))))
+            (gensym "ignore-env-"))))
     (values destructuring-lambda-list
             whole-var
             (or env-var
@@ -276,9 +276,7 @@
 					     :whole-p nil)))))
   name)
 
-
-
-(defun parse-optional-formal (formal)
+(defun decode-optional-formal (formal)
   "3.4.1.2 Specifiers for optional parameters.
 Parse {var | (var [init-form [supplied-p-parameter]])}
 Return the variable, init-form, and suplied-p-parameter."
@@ -286,7 +284,7 @@
     (symbol (values formal nil nil))
     (cons (values (first formal) (second formal) (third formal)))))
 
-(defun parse-keyword-formal (formal)
+(defun decode-keyword-formal (formal)
   "3.4.1.4 Specifiers for keyword parameters.
 Parse {var | ({var | (keyword-name var)} [init-form [supplied-p-parameter]])}
 Return the variable, keyword, init-fom, and supplied-p-parameter."
@@ -345,7 +343,7 @@
 			   env))
 		    (&optional
 		     (multiple-value-bind (var init-form supplied-p-parameter)
-			 (parse-optional-formal p)
+			 (decode-optional-formal p)
 		       (when supplied-p-parameter
 			 (push (cons supplied-p-parameter
 				     (not (null values)))
@@ -359,7 +357,7 @@
 			   env))
 		    (&key
 		     (multiple-value-bind (var key init-form supplied-p-parameter)
-			 (parse-keyword-formal p)
+			 (decode-keyword-formal p)
 		       (let* ((x (member key values :test #'eq))
 			      (present-p (not (null x)))
 			      (value (if present-p