Why so slow?

This is in my startup program:

(defun c:fix( / x)
(setq fixlst
'(
("cmdecho" . 0)("blipmode" . 0)("plinegen" . 1)("plinetype" . 2)
("regenmode" . 1)("expert" . 5)("pickstyle" . 1)("savetime" . 15)
("sortents" . 48)("peditaccept" . 1)("edgemode" . 1)("splinetype" . 5)
("dimassoc" . 2)("offsetgaptype" . 0)("mirrtext" . 0)("treedepth" . 0)
("treemax" . 30000)("pellipse" . 1)("donutid" . 0)
)
)
(mapcar '(lambda(x) (command "setvar" (car x) (cdr x))) fixlst)
(princ))

(c:fix) ;run it

Takes about 4 seconds to run. Whereas if I simply list all the setvars
separately it takes no perceptable time.

What am I doing wrong?

rs

 

Dear tcebob:
Try this: (mapcar '(lambda(x) (setvar (car x) (cdr x))) fixlst)

rs

 

Hey, thanks. Worked like a charm.

rs

 

"The first sign of madness." <g>

 

Well, newsgroups can offer new dimensions to the ancient art of talking to
oneself.

rs

 

True, though the entire community overheard the conversation. So, in what other
NGs do you converse with yourself? Might be fun to listen in.

John Uhden, Cadlantic
<the e-mail address is bogus>
http://www.cadlantic.com
Sea Girt, NJ

 

John and Doug,

If you haven't already, check Larry Leuallen's post in a thread by Rudy dated 9/15. I
almost missed it.

Joe

 

John,

Auto-conversation is not an habit with me as I reserve it for those times when I
really need sophisticated and witty repartee. Or when I screw up.

What other ngs are there?

rs

 

!