design incertitude

From: Christophe Turle (cturle_at_nospam.fr)
Date: 06/30/04 

Date: Wed, 30 Jun 2004 15:45:41 +0200

hi,

i'm not sure this is well designed, a suggestion ?

(defun def-simple-balise ( balise )
  (let ((fn-name (intern balise))
        (balise-debut (format nil "<~a>" balise))
        (balise-fin (format nil "</~a>" balise)) )
    (eval `(defun ,fn-name ( content )
             (concatenate 'string ,balise-debut content ,balise-fin) ))))

(defun def-balises ()
  ;; definir toutes les balises simples de H1 à H9
  (loop for i from 1 to 9
        as balise-name = (format nil "H~d" i)
        do (def-simple-balise balise-name) ))

ctu.