Changeset 6564 for branches/tfe


Ignore:
Timestamp:
May 17, 2007, 7:06:54 AM (13 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/tfe/ccl/compiler/tfe/tgen.lisp

    r6561 r6564  
    455455     
    456456 
     457
    457458(deftgen tgen-let* let* (tconn (&rest pairs) &body body &environment old-env)
    458459  (multiple-value-bind (body decls) (parse-body body old-env)
     
    485486                    (var-refs var) bind))
    486487            (setq parent (setf (tbind-body bind) bconn))))))))
    487            
     488
     489#||
     490(defun tgen-parse-function-lambda-list (l)
     491  (multiple-value-bind (ok req opttail resttail keytail auxtail)
     492      (verify-lambda-list l)
     493    (or ok (tgen-error "Invalid lambda list: ~s" l))
     494    (let* ((keys lambda-list-keywords))
     495      (collect ((opt)
     496                (keywords)
     497                (auxen))
     498        (when (eq (car opttail) '&optional)
     499          (do* ((opttail (cdr opttail) (cdr opttail))
     500                (opthead (car opttail) (car opttail)))
     501               ((member opthead keys))
     502            (opt opthead)))
     503(defun tgen-parse-function-body (tconn lambda env)
     504  (destructuring-bind (arglist &body body) (cdr lambda)
     505    (or (verify-lambda-list arglist)
     506        (error "Invalid lambda list: ~s" arglist))
     507   
     508||#         
Note: See TracChangeset for help on using the changeset viewer.