UCS retreival

I have a variable defined in my lisp. I would like to write a condittion where if the UCS exists, restore it, if it don't exist I want to load a DCL saying that it don't exist and escape the rest of the lisp. Here's what I got so far.

(if (= <whatever> UCS1)(command "UCS" "R" UCS1)(load_dialog "UCS.dcl"))

any comments?

 

You can test for existence with (tblsearch "ucs" <ucsname>).

 

(tblsearch "UCS" UCS1)

There is a UCS table definiton for saved named UCSs

-David

 

thanks guys

 

Why not just use alert?

I thought the same but left it alone. Using a dcl just to show an error
message seems unnecessary . But using alert can be very annoying -- forcing
the user to hit OK just because the function failed.

Better to report failure on the command line without forcing the user to
respond. Better still, create the missing UCS if it isn't there, and proceed
normally.

 

I have the program working the way I wanted it to. You see it's not only myself using the lisp, its through the office, so I needed to be as user friendly as possible. But now it works like a charm. thanks for the discussions