jmercouris has quit [Remote host closed the connection]
cyberoctopi has joined #lisp
cyberoctopi has quit [Ping timeout: 246 seconds]
shifty has joined #lisp
smasta has joined #lisp
rumbler31 has joined #lisp
john2x has quit [Ping timeout: 255 seconds]
smasta has quit [Ping timeout: 246 seconds]
Kundry_Wag has joined #lisp
rumbler31 has quit [Read error: Connection reset by peer]
cyberoctopi has joined #lisp
rumbler31 has joined #lisp
libertyprime has quit [Remote host closed the connection]
mindCrime has joined #lisp
gxt has joined #lisp
ltriant has joined #lisp
ltriant has quit [Ping timeout: 246 seconds]
Lord_of_Life_ has joined #lisp
Lord_of_Life has quit [Ping timeout: 246 seconds]
smasta has joined #lisp
Lord_of_Life_ is now known as Lord_of_Life
maarhart has joined #lisp
maarhart has quit [Excess Flood]
maarhart has joined #lisp
maarhart has quit [Excess Flood]
khisanth_ has quit [Ping timeout: 246 seconds]
john2x has joined #lisp
esrse has joined #lisp
milanj has quit [Quit: This computer has gone to sleep]
smasta has quit [Ping timeout: 250 seconds]
khisanth_ has joined #lisp
<rumbler31>
so working on chapter 2 of paip. https://pastebin.com/vHZZhFsd I don't understand how the generate function goes from a call of (generate 'sentence) to (generate '(noun-phrase verb-phrase)
<rumbler31>
)
<rumbler31>
imo, the second case hits but what should be called is (generate (random-selection of '(noun-phrase verb-phrase)))
<rumbler31>
this code is so simple to read that I am very embarrassed to admit that I don't understand how this works
<rumbler31>
that case should resolve to a choice of one of (generate 'noun-phrase) or (generate 'verb-phrase) I know that the next step SHOULD be (generate '(noun-phrase verb-phrase)) but I don't see how the code gets to this place
<Bike>
the rewrites function checks a lookup table, i assume
<Bike>
i don't have my copy of PAIP with me, but i'm guess one of the rewrites for SENTENCE is the list (NOUN-PHRASE VERB-PHRASE)
<Bike>
but then another rewrite might be (NOUN-PHRASE VERB-PHRASE ADVERB-PHRASE) or whateer
<rumbler31>
so
<rumbler31>
figured it out
<rumbler31>
the rules are '(sentence -> (noun-phrase verb-phrase)) and ultimately (noun -> man woman chair)
<rumbler31>
(rewrites 'sentence) returns ((noun-phrase verb-phrase)) which there is only one element of
<Bike>
right.
<rumbler31>
so random-elt returns (noun-phrase verb-phrase)
john2x has quit [Ping timeout: 245 seconds]
zmt01 has joined #lisp
notzmv has quit [Remote host closed the connection]
t58 has quit [Quit: Night All]
<dlowe>
rumbler31: are you looking at the orcabot generator?
<minion>
Remembered. I'll tell asarch when he/she/it next speaks.
orivej has quit [Ping timeout: 255 seconds]
cosimone has quit [Quit: WeeChat 2.3]
nirved is now known as Guest21484
nirved has joined #lisp
Guest21484 has quit [Ping timeout: 258 seconds]
makomo has quit [Quit: WeeChat 2.2]
deng_cn has joined #lisp
q3d has quit [Ping timeout: 256 seconds]
defaultxr has quit [Ping timeout: 255 seconds]
cosimone has joined #lisp
cosimone has quit [Client Quit]
gravicappa has joined #lisp
vlatkoB has quit [Remote host closed the connection]
vlatkoB has joined #lisp
rumbler31 has quit [Remote host closed the connection]
q3d has joined #lisp
vlatkoB has quit [Remote host closed the connection]
vlatkoB has joined #lisp
amerlyq has joined #lisp
nowhere_man has joined #lisp
lavaflow has joined #lisp
ltriant has joined #lisp
catchme has quit [Quit: Connection closed for inactivity]
ltriant has quit [Ping timeout: 250 seconds]
esrse has quit [Ping timeout: 246 seconds]
q3d has quit [Quit: Page closed]
nirved is now known as Guest63195
nirved has joined #lisp
rwlisp has joined #lisp
Guest63195 has quit [Ping timeout: 258 seconds]
__jrjsmrtn__ has joined #lisp
cosimone has joined #lisp
t58 has joined #lisp
dddddd has joined #lisp
cosimone has quit [Quit: WeeChat 2.3]
cosimone has joined #lisp
cosimone has quit [Client Quit]
Bike has joined #lisp
cosimone has joined #lisp
bjorkintosh has quit [Remote host closed the connection]
random-nick has joined #lisp
varjag has joined #lisp
Lord_of_Life_ has joined #lisp
Lord_of_Life has quit [Ping timeout: 246 seconds]
Lord_of_Life_ is now known as Lord_of_Life
LiamH has joined #lisp
nowhere_man has quit [Ping timeout: 258 seconds]
nowhere_man has joined #lisp
nirved_ has joined #lisp
nirved_ has quit [Read error: Connection reset by peer]
vms14 has joined #lisp
nirved_ has joined #lisp
<pfdietz>
The next step in QL package exploration is to see which systems are used, and by whom. Unused or rarely used packages that show collisions can be modified easily.
nirved has quit [Ping timeout: 258 seconds]
easye has quit [Remote host closed the connection]
lucasb has joined #lisp
lavaflow has quit [Read error: Connection reset by peer]
rippa has joined #lisp
<pjb>
There are download counts.
lavaflow has joined #lisp
actuallybatman has joined #lisp
t58_ has joined #lisp
ltriant has joined #lisp
t58 has quit [Ping timeout: 246 seconds]
t58_ has quit [Ping timeout: 246 seconds]
ltriant has quit [Ping timeout: 246 seconds]
t58 has joined #lisp
t58_ has joined #lisp
t58_ has quit [Remote host closed the connection]
xkapastel has quit [Quit: Connection closed for inactivity]
dale has joined #lisp
Aruseus has joined #lisp
X-Scale` has joined #lisp
X-Scale has quit [Ping timeout: 255 seconds]
X-Scale` is now known as X-Scale
longshi has joined #lisp
fivo has quit [Quit: WeeChat 1.9.1]
pankajgodbole has quit [Ping timeout: 268 seconds]
smasta has joined #lisp
smasta has quit [Ping timeout: 246 seconds]
sjl_ has joined #lisp
actuallybatman has quit [Read error: Connection reset by peer]
actuallybatman has joined #lisp
vms14 has quit [Quit: WeeChat 2.3]
sz0 has quit [Quit: Connection closed for inactivity]
<pjb>
I'd bet, when you think "France" you don't fill your brain with the 2b3… But stuff like Balzac, Debussy, Notre Dame, right? Well, … yes, we're ashamed too…
milanj has joined #lisp
varjag has quit [Ping timeout: 250 seconds]
ltriant has joined #lisp
kajo has quit [Ping timeout: 268 seconds]
ltriant has quit [Ping timeout: 246 seconds]
Arcaelyx has joined #lisp
smasta has joined #lisp
Ukari has joined #lisp
smasta has quit [Ping timeout: 246 seconds]
smasta has joined #lisp
CommanderViral has quit [Quit: ZNC 1.7.1+deb1+bionic1 - https://znc.in]
smasta has quit [Ping timeout: 246 seconds]
varjag has joined #lisp
shifty has quit [Ping timeout: 246 seconds]
cage_ has joined #lisp
varjag has quit [Ping timeout: 245 seconds]
m00natic has quit [Remote host closed the connection]
Kundry_Wag has joined #lisp
<White_Flame>
is there any way to have a runtime-dispatched GO inside a TAGBODY?
<White_Flame>
ie, tag is not known at compile-time
<beach>
Nope.
<White_Flame>
:(
<housel>
Fortunately
<White_Flame>
of course, there's a manual (case (0 go ...) (1 go ..))
<White_Flame>
but that's pretty lame
cyberoctopi has quit [Ping timeout: 246 seconds]
<pfdietz>
Tags are compile time constants.
<TMA>
maclisp had a computed goto
<Bike>
you could write computed-tagbody with computed-macrolet to do the case thing in a nice looking way
<TMA>
CLTL2 has: Compatibility note: The ``computed go'' feature of MacLisp is not supported. The syntax of a computed go is idiosyncratic, and the feature is not supported by Lisp Machine Lisp, NIL (New Implementation of Lisp), or Interlisp. The computed go has been infrequently used in MacLisp anyway and is easily simulated with no loss of efficiency by using a case statement each of whose clauses performs a (non-computed) go.
<White_Flame>
phoe: in a CL-generting dynarec emulator, be able to enter a function by jumping into th emiddle of it
<White_Flame>
I do need to learn restarts more, and potentially compile to continuation-passing form, to pull some of it off
<phoe>
> jumping into th emiddle of it
<White_Flame>
resuming from traps, call & resume while following the low level abi, etc
<phoe>
jumping into the middle of a function doesn't sound like something achievable in CL without some kind of CPS
<phoe>
you need to preserve stacks in order to have that
<White_Flame>
yep
<phoe>
so either your stack is explicit and you manage it yourself
<White_Flame>
but I do have an expensive fallback, which is to re-dynarec functions from different starting points
<phoe>
or you leave it up to your Lisp and instead do some trickery with condition handlers
cyberoctopi has quit [Ping timeout: 244 seconds]
<phoe>
if you know where you can expect your traps and such
<White_Flame>
right
<phoe>
because then you can call SIGNAL
<White_Flame>
well, almost anything can trap due to a manual memory model
<phoe>
if you don't have that, then you're in an interesting position
<phoe>
because you need to implement interrupts in Lisp
<phoe>
there was a little bit of research by beach in order to have functions with multiple entry points
<phoe>
but AFAIR not much more
CrazyEddy has joined #lisp
<shka_>
phoe: this probably does not resolve this issue anyway
<shka_>
multiple entry points are good essentially just compiler optimization technique
<shka_>
AFAIK
<White_Flame>
right, and when emulating a system that runs code like that, it's handy to have it at a higher level ;)
<White_Flame>
btw, a nascient idea I had for this is a bunch of LABELS functions which tail-call each other (thus sharing a parent closure), where all of those functions are also held in an array
<White_Flame>
almost forgot about that, as I was hoping for something similar and set that aside
<White_Flame>
that might end up being my best bet, even though it's more complex
<White_Flame>
s/similar/simpler/
rumbler31 has joined #lisp
rumbler31 has quit [Ping timeout: 246 seconds]
cosimone1 has joined #lisp
cosimone1 has quit [Client Quit]
gjvc has quit [Ping timeout: 268 seconds]
CrazyEddy has quit [Ping timeout: 246 seconds]
trafaret1 has joined #lisp
<trafaret1>
o/
jmercouris has joined #lisp
<stylewarning>
White_Flame: pkhuong had a patch for SBCL allowing a computed-go-like thing. (Specifically an O(1) CASE.)
<White_Flame>
yeah, I noticed in disassemblies that CASE never seemed to compile down to a jump table
<White_Flame>
even with the most opportunistic of ordered values
karlosz has joined #lisp
libertyprime has quit [Ping timeout: 244 seconds]
LdBeth has joined #lisp
cyberoctopi has joined #lisp
cyberoctopi has quit [Ping timeout: 246 seconds]
_whitelogger has joined #lisp
ltriant has quit [Ping timeout: 246 seconds]
ficion has joined #lisp
oni-on-ion has joined #lisp
rumbler31 has joined #lisp
ebrasca has joined #lisp
LiamH has quit [Quit: Leaving.]
karlosz has quit [Quit: karlosz]
altgray has joined #lisp
saturn2 has quit [Ping timeout: 250 seconds]
orivej has joined #lisp
<stylewarning>
Does anybody particularly recommend a UUID lib?
CommanderViral has joined #lisp
isBEKaml has joined #lisp
CrazyEddy has joined #lisp
isBEKaml has left #lisp [#lisp]
<jackdaniel>
I've been using it without a problem. nothing ugly came up
techquila has joined #lisp
<jackdaniel>
one thing I would change is a printed representation
<jackdaniel>
it doesn't follow #<foo> convention (it prints like XXXX-XXXX-…
<jackdaniel>
)
rumbler31 has quit [Remote host closed the connection]
cyberoctopi has joined #lisp
CommanderViral has quit [Quit: ZNC 1.7.1+deb1+bionic1 - https://znc.in]
nowhere_man has joined #lisp
altgray has quit [Quit: leaving]
nowhere_man has quit [Ping timeout: 244 seconds]
trafaret1 has quit [Remote host closed the connection]
caltelt has quit [Remote host closed the connection]
caltelt has joined #lisp
LiamH has joined #lisp
gravicappa has quit [Ping timeout: 246 seconds]
akoana has joined #lisp
bitch has quit [Ping timeout: 246 seconds]
AdmiralBumbleBee has quit [Ping timeout: 246 seconds]
<flip214>
stylewarning: for random UUIDs in linux, you can use /proc/sys/kernel/random/uuid
AdmiralBumbleBee has joined #lisp
<sjl_>
huh, TIL
Kundry_Wag has joined #lisp
bitch has joined #lisp
orivej has quit [Ping timeout: 245 seconds]
cosimone has quit [Quit: WeeChat 2.3]
bitch has quit [Ping timeout: 255 seconds]
bitch has joined #lisp
milanj has quit [Quit: This computer has gone to sleep]
lumm has joined #lisp
lucasb has quit [Quit: Connection closed for inactivity]
amerlyq has quit [Quit: amerlyq]
lumm_ has joined #lisp
lumm has quit [Ping timeout: 268 seconds]
lumm_ is now known as lumm
cage_ has quit [Remote host closed the connection]
cosimone has joined #lisp
lumm has quit [Quit: lumm]
lumm has joined #lisp
jmercouris has quit [Ping timeout: 250 seconds]
stacksmith1 has quit [Ping timeout: 240 seconds]
groovy2shoes has quit [Quit: moritura te salutat]
ggole has quit [Quit: Leaving]
makomo has joined #lisp
ltriant has joined #lisp
ltriant has quit [Ping timeout: 246 seconds]
CuriousCain has joined #lisp
jmercouris has joined #lisp
jmercouris has quit [Remote host closed the connection]
asarch has joined #lisp
vlatkoB has quit [Remote host closed the connection]
defaultxr has joined #lisp
Bike has quit []
oni-on-ion has quit [Quit: Leaving]
shka_ has quit [Ping timeout: 246 seconds]
moldybits has quit [Quit: WeeChat 2.4]
moldybits has joined #lisp
terpri has quit [Ping timeout: 246 seconds]
hiroaki has joined #lisp
Kundry_Wag has quit [Remote host closed the connection]
sdumi has joined #lisp
cosimone has quit [Ping timeout: 252 seconds]
cosimone has joined #lisp
Bike has joined #lisp
bexx has joined #lisp
milanj has joined #lisp
deng_cn has quit [Ping timeout: 255 seconds]
rippa has quit [Quit: {#`%${%&`+'${`%&NO CARRIER]
Kundry_Wag has joined #lisp
sdumi has quit [Ping timeout: 244 seconds]
<mfiano>
stylewarning: I wrote one last month, but it only supports UUID v4
<mfiano>
I was aiming for performance and low rate of collisions without using persistent storage like the spec recommends to be able to last machine reboots.
sdumi has joined #lisp
<mfiano>
phoe had helped me a bit on it. Maybe I should gist what I have, since it's a module in a larger project.
bexx has quit [Read error: Connection reset by peer]
<mfiano>
that au:define-printer macro call is just a print-object method if you didn't guess.
<phoe>
mfiano: (make-uuid :type 2) will not return what I think it would return
<phoe>
you should explicitly signal an error methinks
<mfiano>
where?
<phoe>
L43
<phoe>
the function there
<phoe>
uh, s/type/version/
<mfiano>
Why, it's just using that keyword symbol in the constructor
<phoe>
I'd expect that (make-uuid :version 2) returns me a v2 UUID
<phoe>
instead it returns a null UUID
<phoe>
I'd have expected an error like "v2 is not supported, sorry"
<mfiano>
Oh there is a missing ((1 2 3 5) (error "Not implemented")) case on 76
<phoe>
yesss
<mfiano>
t should create what the spec calls a nil vector.
<mfiano>
err not vector, haha
<mfiano>
UUID
<mfiano>
My mind is elsewhere today
troydm has quit [Ping timeout: 252 seconds]
<mfiano>
Fixed, without testing, because I can.
troydm has joined #lisp
terpri has joined #lisp
karlosz has joined #lisp
DaveLib has joined #lisp
Kundry_Wag has quit [Remote host closed the connection]
<DaveLib>
hello i have downloaded the tar file for common lisp full screen window manager clfswm an window manager written in common lisp and i am trying to install it
<DaveLib>
the readme there gives instuctions i followed these and their load program for clfswm uses asdf
<DaveLib>
when i run it i am getting error messages from asdf
<DaveLib>
namely a missing component
<DaveLib>
i am copying commands they gave in the readme
<DaveLib>
the first command i issue that causes an error message is:
<DaveLib>
(asdf:oop 'asdf:load-op :clsfwm)
<DaveLib>
the only commands before that one which i had typed in and seemed to be ok no error messages were loading or requiring asdf and clx
<DaveLib>
i had previously installed clx using asdf
<DaveLib>
i am doing my lisp under sbcl and my linux sbcl had installed asdf to linux
notzmv has joined #lisp
<DaveLib>
ie my linux sbcl package had installed asdf to linux
<phoe>
DaveLib: what is the stacktrace and the error you get?
<DaveLib>
sorry for the delay i have been trying different things over and over and i was looking back over the accumulated text to select what to paste
<DaveLib>
my first step had been to try to compile clfswm i had been seeing error messages and i thought that was not working
<DaveLib>
but as i scrolled back i found a message about compilation having finished
<DaveLib>
so i found a directory buried under my user home directory which seems to be th result of the compliation havng 30 lisp programs one of these is clfswm.lisp which i assume is the one to start the window manager
<DaveLib>
i just tried to load that and got a stack trace
<DaveLib>
so i will paste that stack trace
stacksmith has quit [Ping timeout: 246 seconds]
LiamH has quit [Quit: Leaving.]
Kundry_Wag has joined #lisp
ltriant has joined #lisp
<jasom>
DaveLib: did "sbcl --load load.lisp" not work for you?
ltriant has quit [Ping timeout: 244 seconds]
<DaveLib>
jasom: i had tried that first and was getting error messages so i did the next procedure which seemed to produce that compilation
karlosz has quit [Quit: karlosz]
lumm has quit [Quit: lumm]
<jasom>
DaveLib: I found the bug in load.lisp
<jasom>
Add the following line: (asdf:load-asd (merge-pathnames "clfswm.asd" *default-pathname-defaults*))
<jasom>
put it just below: (format t "ASDF version: ~A~%" (asdf:asdf-version))
makomo has quit [Quit: WeeChat 2.2]
<DaveLib>
thanks jasom
<DaveLib>
jasom: do you know and use clfswm ?
<jasom>
I do not
<DaveLib>
it is my favourite wm
<DaveLib>
thanks jasom i will try the fix you just told me
hiroaki has quit [Ping timeout: 246 seconds]
Arcaelyx has quit [Ping timeout: 240 seconds]
hiroaki has joined #lisp
Lord_of_Life has quit [Ping timeout: 268 seconds]
Lord_of_Life has joined #lisp
karlosz has joined #lisp
mingus has quit [Ping timeout: 244 seconds]
nirved__ has joined #lisp
nirved_ has quit [Ping timeout: 258 seconds]
milanj has quit [Read error: Connection reset by peer]
smasta has joined #lisp
oni-on-ion has joined #lisp
<grewal>
asarch: What was your issue with slimv?
<DaveLib>
jasom: i changed load.lisp like we said and just tried sbcl --load load.lisp
anewuser has joined #lisp
<DaveLib>
it was producing a compilation
karlosz has quit [Quit: karlosz]
<DaveLib>
ok i see the compilation finished
<DaveLib>
load.lisp is supposed to compile clfswm and save to correct files then run it
<DaveLib>
i guess the error messages are from trying to run it
<DaveLib>
how the error messages start is it says require asdf then says require clx
<jasom>
huh?
<DaveLib>
the asdf part is fine but then it says clx not found
<DaveLib>
this is load.lisp working on the compilation
<jasom>
no, just do ./clfswm
<LdBeth>
DaveLib: well
<DaveLib>
ok i am looking at the record more carefully
<jasom>
the result of load.lisp should be an executable named clfswm
<DaveLib>
thanks LdBeth
<LdBeth>
Yes, and just add `exec clfswm` to xintrc
<LdBeth>
xinitrc*
ltriant has joined #lisp
zamro has joined #lisp
zamro has quit [Remote host closed the connection]
zamro has joined #lisp
cosimone has quit [Quit: WeeChat 2.3]
wxie has joined #lisp
ficion has quit [Ping timeout: 244 seconds]
anewuser has quit [Ping timeout: 246 seconds]
<defaultxr>
question: i have a function that basically wraps APPLY. when i type (apply 'FUNC ...), emacs will show the arguments for FUNC in the minibuffer. is there some way to make it do the same for my function that wraps APPLY?
<Xach>
defaultxr: i think slime has special knowledge of apply (and funcall) with constant arguments. you could teach slime about yours in the same way I bet.
<Xach>
there isn't an automatic way of which I'm aware
<defaultxr>
ah, so i'd have to basically dig in the slime sources and hack my function in?
<Xach>
they're made for digging and hacking!
<Bike>
it's the compute-enriched-decoded-arglist method on (eql 'apply), i thik
<defaultxr>
i have no problem with digging and hacking :) just wasn't sure if there was a "cleaner" way. i see an EDITOR-HINTS project that looks relevant, but it doesn't seem they've released anything that provides the functionality i'm looking for yet
<jasom>
looks like it's in compute-enriched-decoded-arglist
<Bike>
and it doesn't work for funcall that i can see, huh
<Bike>
i guess because funcall with a literal #'foo is rare
<Xach>
true
<jasom>
defaultxr: if you do a defmethod of swank:compute-enriched-decoded-arglist specialized upon your function name, that should work.
angavrilov has quit [Remote host closed the connection]
<defaultxr>
ahh, wonderful! that is actually much cleaner than i was thinking :)
<defaultxr>
thanks
<Bike>
out of curiosity, what does your apply wrapper do
xkapastel has quit [Quit: Connection closed for inactivity]
<defaultxr>
basically, i'm writing a game, and the physics engine can only add/remove objects at certain times. my apply wrapper is for creating objects, and it basically ensures that things are created when the physics engine allows it
<Bike>
ic.
oni-on-ion has quit [Disconnected by services]
random-nick has quit [Read error: Connection reset by peer]
<defaultxr>
it's hacky tbh, and there might be a better way to do it with CLOS :around methods
<defaultxr>
now that i think of it
zamro has quit [Quit: Leaving...]
oni-on-ion has joined #lisp
karlosz has joined #lisp
notzmv has quit [Remote host closed the connection]
karlosz has quit [Remote host closed the connection]
smasta has quit [Ping timeout: 245 seconds]
smasta has joined #lisp
catchme has joined #lisp
trocado has joined #lisp
leo_song has joined #lisp
shifty has joined #lisp
ltriant has quit [Ping timeout: 255 seconds]
karlosz has joined #lisp
karlosz has quit [Remote host closed the connection]