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@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
-
ffjeld