Changeset 6564 for branches

Timestamp:

May 17, 2007, 12:06:54 AM (18 years ago)

Author:

Gary Byers

Message:

Started to do some lambda-list stuff, but need more environment support.

File:

• branches/tfe/ccl/compiler/tfe/tgen.lisp (modified) (2 diffs)

branches/tfe/ccl/compiler/tfe/tgen.lisp

@@ -455 +455 @@
       
   
+
 (deftgen tgen-let* let* (tconn (&rest pairs) &body body &environment old-env)
   (multiple-value-bind (body decls) (parse-body body old-env)
@@ -485 +486 @@
                     (var-refs var) bind))
             (setq parent (setf (tbind-body bind) bconn))))))))
-            
+
+#||
+(defun tgen-parse-function-lambda-list (l)
+  (multiple-value-bind (ok req opttail resttail keytail auxtail)
+      (verify-lambda-list l)
+    (or ok (tgen-error "Invalid lambda list: ~s" l))
+    (let* ((keys lambda-list-keywords))
+      (collect ((opt)
+                (keywords)
+                (auxen))
+        (when (eq (car opttail) '&optional)
+          (do* ((opttail (cdr opttail) (cdr opttail))
+                (opthead (car opttail) (car opttail)))
+               ((member opthead keys))
+            (opt opthead)))
+(defun tgen-parse-function-body (tconn lambda env)
+  (destructuring-bind (arglist &body body) (cdr lambda)
+    (or (verify-lambda-list arglist)
+        (error "Invalid lambda list: ~s" arglist))
+    
+||#