(define (make-table) (list '*TABLE*)) (define (cherche clef table) (let ((result (assoc clef (cdr table)))) (if result (cdr result) #f))) (define (insert! clef valeur table) (let ((result (assoc clef (cdr table)))) (if result (set-cdr! result valeur) (set-cdr! table (cons (cons clef valeur) (cdr table))))) 'ok)