|
Subject: RE: Case independence and (case) From: "Reynolds, Gregg" <greynolds@xxxxxxxxxxxxxx> Date: Fri, 17 Apr 1998 15:57:15 -0500 |
How about something like
(define quad-alist
(list
(cons 'default 'start)
(cons (norm "left") 'start)
(cons (norm "center") 'center)
...etc...
))
(let ((myquad (cdr (assoc (attribute-string (norm "align") quad-list)
(current-node)))))
(if myquad
myquad
(cdr (assoc 'default quad-alist))))
Haven't tested it, but I'm just mad for alists. Would this be horribly
inefficient?
DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
| Current Thread |
|---|
|
| <- Previous | Index | Next -> |
|---|---|---|
| HTML table stylesheet announcement , Chris Maden | Thread | Re: Case independence and (case), Chris Maden |
| HTML table stylesheet announcement , Chris Maden | Date | Re: Case independence and (case), Chris Maden |
| Month |