Routine to convert a .LSP file to a .FAS file - need someone to give it the once over

[stephen.coff]

Guys,
A simple routine to convert my LISP into a FAS file.
It all works fine accept one simple error i'm not seeing with the "IF" function.
I wanted it to check if the FAS file being created already existed and then prompt you to overwrite it. Don't get me wrong, It does do that though it always does that, even if the file doesn't exist.
I think I have something wrong with the first "IF" function and it is going straight on to the next "IF" function.

Could someone please have a look as i can't see what i have done wrong.

Regards

Stephen

[abdulhuck]

Could someone please have a look as i can't see what i have done wrong.

Stephen,

I think it's typo error, though I didn't test it. Instead of

(if (= findfas "nil")

try

(if (= findfas nil)

or you may use

(if (not findfas)

I didn't go through all the codes. So if you still have problems, please let us know.

Regards,
Abdul Huck

[stephen.coff]

abdulhuck,
I tried as you suggested though neither worked. The only thing that actually works is with the (= findfas "nil").
That said it doesuse the if command properly ? I don't know.

Stephen

[abdulhuck]

abdulhuck,
I tried as you suggested though neither worked. The only thing that actually works is with the (= findfas "nil").
That said it doesuse the if command properly ? I don't know.
Stephen

Sorry Stephen, initially I didn't go through your code completely. Now it is ok. Your code was fine except instead of "/" you used "\" to declare local variables. I also changed (initget 1 "Yes No") to (initget "Yes No") as bit codes not required to get key words.

Regards,
Abdul Huck

[toner_ag]

Guys,
A simple routine to convert my LISP into a FAS file.
It all works fine accept one simple error i'm not seeing with the "IF" function.
I wanted it to check if the FAS file being created already existed and then prompt you to overwrite it. Don't get me wrong, It does do that though it always does that, even if the file doesn't exist.
I think I have something wrong with the first "IF" function and it is going straight on to the next "IF" function.

Could someone please have a look as i can't see what i have done wrong.

Regards

Stephen

lisp to fas:
open VisualLISP editor (vlide)
File....Make new application wizard
select your project folder & project name
add your lisp file
finish (build application)
go to your project folder and you can see the new fas file