droideqa has quit [Quit: Connection closed for inactivity]
King_julian has quit [Ping timeout: 244 seconds]
King_julian has joined #commonlisp
brokkoli_originl has quit [Ping timeout: 244 seconds]
Ruby has joined #commonlisp
jack_rabbit has joined #commonlisp
wbooze has quit [Read error: Connection reset by peer]
eddof13 has joined #commonlisp
eddof13 has quit [Client Quit]
hirez has quit [Ping timeout: 260 seconds]
hirez has joined #commonlisp
jeffrey has joined #commonlisp
jeffrey has quit [Client Quit]
Demosthenex has quit [Ping timeout: 248 seconds]
Demosthenex has joined #commonlisp
akoana has joined #commonlisp
nytpu has quit [Remote host closed the connection]
nytpu has joined #commonlisp
capvs has joined #commonlisp
brokkoli_origin has joined #commonlisp
bitmapper has joined #commonlisp
zwr has quit [Ping timeout: 276 seconds]
zwr has joined #commonlisp
White__Flame has joined #commonlisp
White_Flame has quit [Ping timeout: 252 seconds]
istewart has quit [Quit: Konversation terminated!]
weeks has joined #commonlisp
admich1 has quit [Ping timeout: 276 seconds]
akoana has quit [Quit: leaving]
<zablozki>
Good Morning!
<beach>
Hello zablozki.
waleee has quit [Ping timeout: 276 seconds]
ghodawalaaman has joined #commonlisp
manwithluck has quit [Remote host closed the connection]
manwithluck has joined #commonlisp
gorignak has quit [Quit: quit]
edgar-rft` has joined #commonlisp
edgar-rft has quit [Ping timeout: 276 seconds]
admich1 has joined #commonlisp
mgl_ has joined #commonlisp
pve has joined #commonlisp
jack_rabbit has quit [Ping timeout: 260 seconds]
<mgl_>
https://www.lispworks.com/documentation/HyperSpec/Body/22_ceb.htm says that "circularity detection is not applied if ~@<...~:> is encountered at top level in a format string", but (let ((*print-circle* t) (x (list 1 2))) (format t "~@<1. ~S 2. ~S~:>" x x)) prints 1. #1=(1 2) 2. #1#.
<ixelp>
CLHS: Section 22.3.5.2
<mgl_>
Do I misunderstand the spec?
<mgl_>
(In general, surely, but in this case?)
White_Flame has joined #commonlisp
White__Flame has quit [Ping timeout: 272 seconds]
chomwitt has joined #commonlisp
wbooze has joined #commonlisp
<beach>
It doesn't seem very clear to me. An example would have helped.
<mgl_>
The handful of implementations I tried seems to agree on the above behaviour.
ewig has quit [Remote host closed the connection]
rgherdt has joined #commonlisp
bpanthi977 has joined #commonlisp
bpanthi977 has quit [Ping timeout: 260 seconds]
mishoo has joined #commonlisp
wbooze has quit [Quit: Leaving]
shka has joined #commonlisp
wbooze has joined #commonlisp
apac has joined #commonlisp
JuanDaugherty has joined #commonlisp
attila_lendvai has joined #commonlisp
apac has quit [Quit: Konversation terminated!]
varjag has joined #commonlisp
Guest47 has joined #commonlisp
<nil>
It seems the other way around. Without the colon ~> doesn't do the circularity detection at top level, e.g. ,(let ((*print-circle* t) (x (list 1 2))) (values (format nil "~@<~s ~s ~s~:>" x x `(,x ,x)) (format nil "~@<~s ~s ~s~>" x x `(,x ,x))))
<ixelp>
(let ((*print-circle* t) (x (list 1 2))) (values (format nil "~@<~s ~s ~s~:>" x x `(,x ,x)) (format nil "~@<~s ~s ~s~>" x x `(,x ,x)))) => "#1=(1 2) #1# (#1# #1#)"; "(1 2) (1 2) (#1=(1 2) #1#)"
rpg has quit [Quit: My Mac has gone to sleep. ZZZzzz…]
rgherdt_ has joined #commonlisp
Guest62 has joined #commonlisp
bpanthi977 has joined #commonlisp
rgherdt has quit [Ping timeout: 265 seconds]
GalaxyNova has joined #commonlisp
bpanthi977 has quit [Ping timeout: 272 seconds]
admich1 has quit [Ping timeout: 248 seconds]
ebrasca has joined #commonlisp
eddof13 has joined #commonlisp
rgherdt_ is now known as rgherdt
ixelp has quit [Ping timeout: 252 seconds]
ewig has quit [Remote host closed the connection]
ixelp has joined #commonlisp
eddof13 has quit [Quit: eddof13]
Thermoriax has joined #commonlisp
mishoo has quit [Ping timeout: 268 seconds]
Guest62 has quit [Quit: My Mac has gone to sleep. ZZZzzz…]
Guest62 has joined #commonlisp
gko has quit [Remote host closed the connection]
admich1 has joined #commonlisp
gko has joined #commonlisp
apac has joined #commonlisp
chomwitt has quit [Ping timeout: 272 seconds]
prokhor-zhakarov has quit [Remote host closed the connection]
notzmv has quit [Ping timeout: 252 seconds]
jon_atack has joined #commonlisp
brainfunnel has quit [Ping timeout: 265 seconds]
jonatack has quit [Ping timeout: 276 seconds]
mgl_ has quit [Ping timeout: 272 seconds]
pkal has quit [Ping timeout: 245 seconds]
admich1 has quit [Ping timeout: 252 seconds]
admich1 has joined #commonlisp
eddof13 has joined #commonlisp
eddof13 has quit [Client Quit]
shka has quit [Quit: Konversation terminated!]
Oddity has joined #commonlisp
brainfunnel has joined #commonlisp
King_julian has quit [Read error: Connection reset by peer]
rgherdt has quit [Ping timeout: 244 seconds]
King_julian has joined #commonlisp
Guest62 has quit [Ping timeout: 244 seconds]
<trannus_aran>
hey, CLOS question: is there a way to refer to slots of a class in the definition of the :initform of other slots? i.e. (defvar *card* (make-instance 'card :suit "hearts" :rank "ace")) (slot-value *card* 'value) -> 11
<trannus_aran>
(assuming there's a plist out there mapping rank strings to value fixnums or some such)
varjagg has quit [Ping timeout: 252 seconds]
rgherdt has joined #commonlisp
apac has quit [Ping timeout: 248 seconds]
<semz>
I don't think so, but a method on initialize-instance could help achieve that
<aeth>
Unrelated, but I think a symbol or keyword is usually used instead of a string for that sort of thing. So e.g. 'hearts and 'ace
<aeth>
Since "hearts" and "hearts" will require a full string= to test and may not be eq
<aeth>
Although you can also use a character. ,(progn #\🂱)