I ran across this error:
Code Select
> (setq 01Text "Some Text")
ERR: missing argument in function setf
So is this not allowed to use a symbolname starting with a number?
Using: 10.7.4 32Bit Exe
Also showing in DLL-Flavour.
Regards
Hans-Peter
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
newlisp.exe -k funcname
newlisp.exe param1 param2 ....
(funcname param1 param2 ....)
newlisp.exe -r funcname param1 param2
OpenLibrary(0,"newlisp_utf8.dll")
sourcestr.s = GetGadgetText(#Gadget_Form1_String3)
*newlispstr = AllocateMemory(StringByteLength(sourcestr) + SizeOf(Character))
PokeS(*newlispstr, sourcestr, Len(sourcestr),#PB_UTF8)
retstr.s = PeekS(CallFunction(0,"newlispEvalStr",*newlispstr),-1,#PB_UTF8)
FreeMemory(*newlispstr)
SetGadgetText(#Gadget_Form1_Editor5, retstr)
CloseLibrary(0)
(pretty-print "(" " " "%1.16g")
(set 'Symbolname
'("MainItem"
("Item1" "Value1")
("Item2" "Value2")
("Item3" "Value3")
("Item4" "Value4")
("Sublst"
("SubItem1" "SubValue1")
("SubItem1" "SubValue1")
("SubItem1" "SubValue1")
("SubList"
(
("SubListItem1" "SubListValue1")
("SubListItem1" "SubListValue1")
("SubListItem1" "SubListValue1")
)
)
)
)
)
Quote
> (setq Test 1)
1
> (inc 'Test)
2
> Test
1
> (inc Test)
2
> Test
2
DllHandle := LoadLibrary( Pchar( 'newlisp.dll' ));