<republican_devil> xach what do youuse for lisp powered websites?
notzmv has joined #lisp
red-dot has joined #lisp
<jmercouris> republican_devil: I don't know what Xach uses, but Shinmera has a framework called radiance, is quite nice
<jmercouris> republican_devil: https://shirakumo.github.io/radiance-homepage/
Kaisyu has joined #lisp
<phoe_> I tried lucerne, it's pretty okay as well.
jmercouris has quit [Ping timeout: 276 seconds]
<Xach> gavino hasn't been here in a while
turkja has joined #lisp
__sigjuice has joined #lisp
__sigjuice has left #lisp [#lisp]
moei has quit [Quit: Leaving...]
kjak has quit [Quit: leaving]
<drmeister> Is there a way to control what C compiler asdf uses?
<drmeister> I believe that ASDF is using the system clang compiler and I need it to use a different clang compiler
astronav_ has joined #lisp
<drmeister> ASDF does compile C source - correct? I see the pzmq library generates a grovel__grovel.c file - that is compiled somehow to a .o file.
astronavt has quit [Ping timeout: 250 seconds]
<jfe> drmeister: unfortunately i'm an amateur on asdf. but i had a question for you. the other day i asked why compilers aren't more frequently written in high-level languages like lisp. if i understand correctly, you wrote the clasp compiler in c++. why did you choose c++ instead of lisp?
astronav_ is now known as astronavt
jibanes has quit [Ping timeout: 240 seconds]
SuperJen has joined #lisp
jibanes has joined #lisp
lagagain has joined #lisp
<drmeister> jfe: I did not write the clasp compiler in C++. Clasp has one interpreter written in C++ and two compilers written in Common Lisp.
JenElizabeth has quit [Ping timeout: 248 seconds]
terpri has quit [Ping timeout: 276 seconds]
momofarm has joined #lisp
shka has quit [Read error: Connection reset by peer]
<jfe> drmeister: ah, i see. i listened to your presentation of clasp at google and must have misheard. thanks.
shka has joined #lisp
<Fade> jfe: symbolics wrote a very advanced C compiler in common lisp.
<drmeister> Clasp interoperates with C++ (links with C++ libraries and C++ calls interleave with CL calls).
EvW has quit [Ping timeout: 240 seconds]
<Xach> drmeister: asdf does not compile c source.
<Xach> drmeister: cffi includes a part for asdf that compiles c source
<Xach> drmeister: config-wise, i think you would start with cffi's grovel mechanism
<drmeister> Thank you - I'm digging into it.
<drmeister> Something associated with groveling C code is generating malformed llvm-IR
k-stz has quit [Remote host closed the connection]
<Xach> boo
lisp_guest has quit [Ping timeout: 250 seconds]
pierpa has quit [Quit: Page closed]
Kundry_Wag has quit [Remote host closed the connection]
Arcaelyx has quit [Ping timeout: 255 seconds]
Arcaelyx_ has joined #lisp
rumbler31 has joined #lisp
SuperJen has quit [Remote host closed the connection]
Kundry_Wag has joined #lisp
SuperJen has joined #lisp
Kundry_Wag has quit [Remote host closed the connection]
Kundry_Wag has joined #lisp
moei has joined #lisp
rumbler31 has quit [Ping timeout: 240 seconds]
Kundry_Wag has quit [Ping timeout: 255 seconds]
wigust_ has quit [Ping timeout: 255 seconds]
fikka has quit [Ping timeout: 268 seconds]
orivej has quit [Ping timeout: 260 seconds]
wooden has joined #lisp
yeticry has joined #lisp
wooden has quit [Read error: Connection reset by peer]
jameser has joined #lisp
wooden has joined #lisp
shka has quit [Ping timeout: 240 seconds]
rumbler31 has joined #lisp
Jen has joined #lisp
rumbler31 has quit [Remote host closed the connection]
Jen is now known as Guest76257
shka has joined #lisp
rumbler31 has joined #lisp
shka has quit [Excess Flood]
SuperJen has quit [Ping timeout: 240 seconds]
rumbler31 has quit [Remote host closed the connection]
shka has joined #lisp
rumbler31 has joined #lisp
rumbler31 has quit [Remote host closed the connection]
jameser has quit [Ping timeout: 260 seconds]
aphprentice has quit [Quit: Connection closed for inactivity]
dddddd has quit [Ping timeout: 248 seconds]
jameser has joined #lisp
yeticry has quit [Ping timeout: 248 seconds]
SuperJen has joined #lisp
Guest76257 has quit [Ping timeout: 248 seconds]
didi has joined #lisp
<didi> When should I define a PACKAGE-USER package for my package PACKAGE?
jack_rabbit has quit [Ping timeout: 248 seconds]
markong has quit [Ping timeout: 240 seconds]
yeticry has joined #lisp
d4ryus1 has joined #lisp
<Xach> didi: i do it when i think someone might want to in-package to use no prefixes, but don't want to mess with implementation stuff. but it's also trivial to make a new package that uses PACKAGE
<Xach> package-user to me is just (:use cl package)
<didi> Xach: Cool, thank you.
d4ryus has quit [Ping timeout: 240 seconds]
<Ober> how do you get the line number of the offending error on sbcl when compiling and you hit the restarts/debugger?
<didi> Ober: If on SLIME, I type ?v.
jameser has quit [Ping timeout: 240 seconds]
<Xach> I use slime and M-n and M-p
<Ober> i've gone down the backtrace list hitting v and it'as all sbcl
<Ober> thanks
Tobbi has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
phoe has joined #lisp
<didi> Oh, tip: it got nicer once I added (declaim (optimize (speed 0) debug safety)) to my ~/.sbclrc
phoe has quit [Client Quit]
<Ober> cool
<Xach> sb-ext:restrict-compiler-policy is a way to do that in a more durable way too
<didi> Xach: Thank you. I didn't know about `sb-ext:restrict-compiler-policy'.
phoe has joined #lisp
phoe has quit [Client Quit]
jack_rabbit has joined #lisp
<Ober> just ql and sbcl. none of my code.
phoe has joined #lisp
<phoe> there, enough on/off bouncing.
<Xach> Ober: what is the error?
igemnace has joined #lisp
<Ober> one sec. trying to recreate
<Ober> Cannot CHANGE-CLASS objects into CLASS metaobjects.
<Ober> [Condition of type SB-PCL::METAOBJECT-INITIALIZATION-VIOLATION]
<Ober> See also:
<Ober> The Art of the Metaobject Protocol, CLASS [:initialization]
<Ober>
<Ober> rototilling a bunch of code back into a single file, but can't find the line where it's bombing on
<Ober> brb
Kundry_Wag has joined #lisp
<phoe> Ober: give us the code snippet that is causing this, if you can extract it
phoe_ has quit [Quit: Page closed]
LiamH has quit [Quit: Leaving.]
karswell_ has quit [Read error: No route to host]
khisanth_ has quit [Ping timeout: 260 seconds]
shka has quit [Remote host closed the connection]
karswell_ has joined #lisp
shka has joined #lisp
Kundry_Wag has quit [Ping timeout: 260 seconds]
<loke> phoe: Seems to be as though he might be trying to redeclare a class from a standard class into a metaclass.
<loke> That can be problematic.
<Ober> if I could extract it, I would fix it :P
khisanth_ has joined #lisp
<Ober> ok will dig for it. thanks
<Ober> xb
jameser has joined #lisp
<Ober> allegro built it fine, lw gave this error which seems more useful. Layout for class #<MANARDB:MM-METACLASS FILES 41B0C43E23> has changed from ((VALUE 0 8 MMAP-POINTER T) (IDX 8 8 MMAP-POINTER T))
<Ober>
jameser_ has joined #lisp
jameser has quit [Ping timeout: 268 seconds]
terpri has joined #lisp
damke has quit [Read error: Connection reset by peer]
fikka has joined #lisp
jameser_ has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
jameser has joined #lisp
damke has joined #lisp
fikka has quit [Ping timeout: 260 seconds]
lrvy has joined #lisp
<drmeister> Ironclad generates a different MD5 digest than C++ code that I have and MD5 hash generators on the web - what am I doing wrong?
<drmeister> Output:
<drmeister> MD5 generator from the web: 0cc175b9c0f1b6a831c399e269772661
jfe has quit [Remote host closed the connection]
jfe has joined #lisp
<drmeister> The C++ code (My md5) and the MD5 calculator generate the same result. Ironclad - something different.
<drmeister> Different is not good.
_whitelogger has joined #lisp
<Ober> lw gui shows the exact place of error. thanks for the help
<drmeister> froggey: You mean the trigonometric function SIN?
<froggey> yes
<drmeister> Holy crap
yeticry has quit [Ping timeout: 240 seconds]
<didi> TIL MD5 is a chaotic function ;-)
<drmeister> How accurate does it need to be?
<phoe> drmeister: https://en.wikipedia.org/wiki/MD5 has the precomputed values, you could perhaps check if your sine gives you same hex numbers
<froggey> not sure, I ended up replacing it with a correctly precomputed table
yangby has joined #lisp
* phoe brb
phoe has quit [Quit: leaving]
<drmeister> Ok, that appears to be the problem - thank you.
<drmeister> Wow - not in a million years.
king_idiot has quit [Ping timeout: 240 seconds]
<drmeister> It's weird though - when calculate the integer value - it's fine. It's just when I convert it to a hex string that it zeros the last digits.
<drmeister> In Clasp: (floor (* (expt 2 32) (sin 1))) --> 3614090240
<drmeister> In sbcl: 3614090240
Kundry_Wag has joined #lisp
phoe has joined #lisp
<drmeister> 3614090240
<drmeister> In Clasp: (format nil "~x" (floor (* (expt 2 32) (sin 1)))) --> "D76AA400"
<froggey> I think that's a single-float problem. try (sin (float 1 0.0d0))
<drmeister> In Sbcl: (format nil "~x" (floor (* (expt 2 32) (sin 1)))) --> "D76AA400"
<drmeister> Ugh - that's a red herring.
<phoe> drmeister: these values look the same to me.
<drmeister> They are all the same values.
<drmeister> The MD5 wikipedia page says the value should be: 0xd76aa478
<drmeister> So printing with ~X is zeroing the lowest two digits - I don't know why
<phoe> float precision, like froggey said?
<drmeister> froggey: Thanks so I evaluate (sin (float 1 0.0d0)) in Clasp and Sbcl
<drmeister> Clasp: 0.8414709848078965d0
<drmeister> Sbcl: 0.8414709848078965d0
<phoe> hah, same thing.
<froggey> how does clasp implement sin? calling out to libc?
<drmeister> C++
Kundry_Wag has quit [Ping timeout: 246 seconds]
<froggey> or std::sin
<froggey> iirc that's how sbcl does it, so I'd expect the same result...
yeticry has joined #lisp
<phoe> ...this is crazy. SBCL, CCL, ECL, CLISP all give 0x00 at the end.
<phoe> oooh
<phoe> I got it
<phoe> (setf *read-default-float-format* 'double-float) ;=> DOUBLE-FLOAT
<phoe> (format nil "~x" (floor (* (expt 2 32) (sin 1.0)))) ;=> "D76AA478"
<phoe> drmeister: this *IS* a float precision issue
<phoe> AFAIK you need to explicitly pass double-floats to sin, otherwise it pops out single floats that are not precise enough.
* didi has (setf *read-default-float-format* 'double-float) inside ~/.sbclrc
<drmeister> This is what Ironclad uses to calculate those numbers:
lagagain has quit [Quit: Connection closed for inactivity]
<loke> phoe: If you pass a single-float to SIN, it will pop out a single float.
<phoe> drmeister: (format nil "~x" (floor (* (expt 2 32) (sin (coerce 1.0 'double-float))))) ;=> "D76AA478"
<phoe> loke: yes.
<loke> phoe: That's not really an "issue", IOMHO.
<phoe> drmeister: this smells like a bug in ironclad.
<loke> phoe: You should be able to just use (sin 1d0)
<phoe> loke: you are correct.
<phoe> But wait a second.
<phoe> ironclad has 0.0d0 there, which is a double-float.
<phoe> So double-floats should be constructed.
<loke> phoe: yes.
<phoe> https://pastebin.com/a3LjhXpJ <- when followed step-by-step, this is what I see.
<phoe> drmeister: can you execute the same series of steps in Clasp?
<phoe> If we are lucky, we will be able to see where the output deviates.
kolko has quit [Ping timeout: 248 seconds]
<drmeister> Hang on - trying some other things
<phoe> Okiedokie
kolko has joined #lisp
fikka has joined #lisp
aindilis has quit [Ping timeout: 276 seconds]
fikka has quit [Ping timeout: 248 seconds]
<drmeister> I wrote a function to generate the table and ran it in Clasp and Sbcl - I get the same results.
<drmeister> Spot checking the hex values with the Wikipedia page - the values match.
<drmeister> I don't know what the problem is with md5 right now.
shka has quit [Read error: Connection reset by peer]
<drmeister> This is what clasp generates
shka has joined #lisp
<drmeister> (defun ccc () (let ((*print-base* 16)) (print (loop for i from 0 below 64 collect (truncate (* 4294967296 (abs (sin (float (1+ i) 0.0d0)))))))))
<drmeister> Sbcl:
<drmeister> I clipped the last line off of clasp's values - here they are complete...
<drmeister> ediff says they match, visual inspection says they match.
BitPuffin|osx has joined #lisp
<froggey> that's probably not it then
jfe has joined #lisp
brandonz has quit [Quit: WeeChat 1.9.1]
quazimodo has joined #lisp
heurist` has quit [Ping timeout: 246 seconds]
heurist`_ has joined #lisp
jameser has quit [Ping timeout: 268 seconds]
ebrasca has quit [Read error: Connection reset by peer]
ebrasca has joined #lisp
ahungry has joined #lisp
jameser has joined #lisp
shka_ has joined #lisp
shka has quit [Ping timeout: 268 seconds]
jameser_ has joined #lisp
jameser_ has quit [Remote host closed the connection]
jameser has quit [Ping timeout: 248 seconds]
jameser has joined #lisp
quazimodo has quit [Ping timeout: 248 seconds]
shka_ has quit [Ping timeout: 258 seconds]
jameser has quit [Client Quit]
karswell_ has quit [Remote host closed the connection]
mson has joined #lisp
karswell_ has joined #lisp
shka_ has joined #lisp
EvW has joined #lisp
EvW has quit [Ping timeout: 255 seconds]
kartik1 has joined #lisp
kartik2 has joined #lisp
astronavt has quit [Remote host closed the connection]
shka_ has quit [Read error: Connection reset by peer]
kartik1 has quit [Ping timeout: 255 seconds]
Arcaelyx has joined #lisp
wooden has quit [Read error: Connection reset by peer]
Arcaelyx_ has quit [Ping timeout: 255 seconds]
shka_ has joined #lisp
kartik2 has quit [Quit: WeeChat 1.4]
kark has joined #lisp
wooden has joined #lisp
shka_ has quit [Ping timeout: 240 seconds]
karswell_ has quit [Read error: Connection reset by peer]
shka_ has joined #lisp
red-dot has quit [Quit: Going offline, see ya! (www.adiirc.com)]
maxirater has joined #lisp
shka_ has quit [Ping timeout: 248 seconds]
didi has quit [Remote host closed the connection]
shka_ has joined #lisp
quazimodo has joined #lisp
shka_ has quit [Ping timeout: 250 seconds]
shka_ has joined #lisp
ak5 has quit [Quit: WeeChat 2.0]
we_in has joined #lisp
d4ryus1 is now known as d4ryus
red-dot has joined #lisp
quazimodo has quit [Ping timeout: 255 seconds]
quazimodo has joined #lisp
shka has joined #lisp
shka_ has quit [Ping timeout: 240 seconds]
quazimodo has quit [Ping timeout: 240 seconds]
maxirater has quit [Quit: Leaving]
we_in has quit [Remote host closed the connection]
we_in has joined #lisp
SaganMan has joined #lisp
fikka has joined #lisp