RE: Case independence and (case)

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
  • Case independence and (case)
    • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id MAA29056Fri, 17 Apr 1998 12:59:06 -0400 (EDT)
      • Henry S. Thompson - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id QAA01423Fri, 17 Apr 1998 16:06:49 -0400 (EDT)
        • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id QAA01928Fri, 17 Apr 1998 16:32:27 -0400 (EDT)
      • <Possible follow-ups>
      • Reynolds, Gregg - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id QAA02506Fri, 17 Apr 1998 16:59:50 -0400 (EDT) <=
        • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id RAA02755Fri, 17 Apr 1998 17:11:13 -0400 (EDT)
          • Russell Steven Shawn O'Connor - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id TAA04352Fri, 17 Apr 1998 19:16:48 -0400 (EDT)
          • Tony Graham - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id WAA06429Fri, 17 Apr 1998 22:43:23 -0400 (EDT)
          • Russell Steven Shawn O'Connor - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id MAA18706Sat, 18 Apr 1998 12:44:17 -0400 (EDT)