singa2 has quit [Quit: Yaaic - Yet another Android IRC client - http://www.yaaic.org]
aw- has joined #picolisp
jzp has quit [Ping timeout: 244 seconds]
jzp has joined #picolisp
jzp has quit [Ping timeout: 260 seconds]
orivej has joined #picolisp
jzp has joined #picolisp
freemint has quit [Ping timeout: 265 seconds]
pierpal has quit [Quit: Poof]
pierpal has joined #picolisp
stix has joined #picolisp
andyjpb has joined #picolisp
freemint has joined #picolisp
stix has quit [Quit: stix]
<freemint>
(doc '*OS) does not mention Android Regenaxer
<freemint>
Since there is no list of all possible values i might be good to add even if
<freemint>
Possible
<freemint>
Does anybody has a good example of self modifying code/clever meta programming in mind. I have examples for the following two things and i might hold a 15 minute presentation about PicoLisp tonight
<freemint>
I though about: a generator generator i wrote, the definition of tags in htm.l, but i think i might need another (less practical). but cool example of code is data
<freemint>
(pilog is to complicated)
<freemint>
Is there a reason why '! is an internal function?
freemint has quit [Ping timeout: 265 seconds]
mikeyhc has joined #picolisp
<mikeyhc>
hi all, does picolisp have something similar to begin blocks in scheme?
freemint has joined #picolisp
<tankf33der>
mikeyhc: why you need it?
<tankf33der>
look like prog function
<tankf33der>
i dont see any reason it exists
<tankf33der>
show scheme code, lets try convert to lisp
<mikeyhc>
simple example is just having an if block with multiple calls, something like (if cond (begin (foo) (bar)) (begin (baz) (quux)))
<mikeyhc>
prog seems to have done the trick though, thanks!
<tankf33der>
mikeyhc: but if and cond are different meaning
<mikeyhc>
yup, thats what I am going with. thanks for your help :)
jibanes has quit [Ping timeout: 240 seconds]
jibanes has joined #picolisp
mikeyhc has quit [Quit: Lost terminal]
<freemint>
tankf33der do you have any interesting, easy to explain code is data code?
<freemint>
afk
andyjpb has quit [Quit: Leaving.]
freeemint has joined #picolisp
<freeemint>
back
<freeemint>
(on mobile internet so ...)
freemint has quit [Ping timeout: 240 seconds]
<tankf33der>
freeemint: this is simplest code:
<tankf33der>
(eval (+ 1 2))
<freeemint>
you mean (eval '(+ 1 2))
<tankf33der>
try in repl
<tankf33der>
any other homogeneous examples of lisp code have root in this
<tankf33der>
any macro or code which write another code.
<freeemint>
yeah i think i got an better idea.
<tankf33der>
show
<freeemint>
the idea is to (de fak (N) (apply * (range 1 N)) the write a buggy recursive "tree"-place ('replace for trees). the debug it with '! explain what it does and then after it works run unbug on it to show that modifying the function during development is usefull
<freeemint>
and the treeplace 1 to 2 since you do not need to multiply by 1
freeemint has quit [Ping timeout: 260 seconds]
freemint has joined #picolisp
<freemint>
that was the idea
<freemint>
but currently it looks like i won't present today
styx has joined #picolisp
<Regenaxer>
ret
<Regenaxer>
Was offline all day
<Regenaxer>
freemint, '!' is built-in (SUBR) perhaps for historical reasons
<Regenaxer>
It does a lot of manipulations of the runtime environment
<Regenaxer>
so that the debug REPL runs in the env of the program
<Regenaxer>
Could perhaps partly be done with 'up' which did not exist initially
<Regenaxer>
But other manipulations eg of the I/O channels might be difficult or impossiple in Lisp only
beneroth has quit [Ping timeout: 240 seconds]
<Regenaxer>
Good hint freemint, I will add "Android", thanks
<Nistur>
mornin' all
<Nistur>
Regenaxer: the original picolisp ran on 68k macs... riiiiiight...? :P How much of it is mac specific? :P Could it theoretically work on other 68k machines?
<Regenaxer>
Good morning Nistur
<Regenaxer>
Yes, 68000
pierpal has quit [Quit: Poof]
pierpal has joined #picolisp
<Regenaxer>
It had some 68k assembly, the rest was C
<Regenaxer>
But used the mac toolbox (Resource-, Memory-Manageres, QuickDraw etc)
<Nistur>
I'm not ACTUALLY going to use it for a project, but I'm going to try to set up two 68k machines for a dev project...
<Regenaxer>
ok
<Nistur>
ahh ok, never mind then :P No chance I could get it to work on my STE easily then :P
<Nistur>
I was considering just playing around to see if I could get it working then
<Regenaxer>
yeah
<Regenaxer>
Needs a lot of modifications probably
<Nistur>
yeah, unfortunately it's not a reasonable choice for tooling for what I want to actually make either, otherwise I would be happy to hack at it and try to make it work
<Regenaxer>
It is also a very outdated version of pil anyway
<Nistur>
that is... understandable? :P
<Regenaxer>
miniPicoLisp is C-only and should build on 68k
<Regenaxer>
hehe, yes
<Regenaxer>
It was in 1988-1992
<Nistur>
I may try that then :P But my project is one I've been playing with the idea of starting for years... I want to try to make a game for an old console/computer... I've finally come up with a game I think that could work, and I have a platform in mind that I think would suit it (despite not being a popular console... and despite... or maybe because of the... non-standard silicon in it) so I thought I'd try
<Nistur>
and set this up
<Nistur>
but becuse of this, I don't think that anything other than assembler, or maaaaaaaaybe C is really an option for this
<Nistur>
but if I do set it up, I probably will try and get as much running on the system(s) as possible... including some of my random projects, and I thought of pil :P
<Regenaxer>
Great :)
beneroth has joined #picolisp
freemint has quit [Ping timeout: 240 seconds]
pierpal has quit [Remote host closed the connection]