Search
Friday, 31st of May 2019, 11:59:11 UTC
12:25:53
Duns_Scrotus_
** NICK Duns_Scrotus
12:27:28
ck_
White_Flame: re: Green Block, were you talking about ETAOIN SHRDLU?
12:27:45
White_Flame
the software is just called SRHDLU, but yeah
12:28:01
White_Flame
as in the other user's nick
12:29:26
ck_
oh, I didn't know that, thanks
12:29:48
ck_
it reminded me to see whether the source is available, or somebody ported it to today's CL
16:39:41
random-nickname
** NICK random-nick
18:28:34
pfdietz_
For radix > 10, is there a way to get the printer to print the alphabetic digits in lower case?
18:29:36
shangul
pfdietz_, Are you sure you are in the right place?
18:31:01
specbot
Couldn't find anything for print-radix.
18:31:04
specbot
Couldn't find anything for print-base.
18:31:08
specbot
http://www.lispworks.com/reference/HyperSpec/Body/v_pr_bas.htm
18:31:18
Bike
anyway, not that i know of.
18:31:35
pfdietz_
That, and ~x in format, print the digits in upper case.
18:31:59
pfdietz_
(anyway. base, not radix)
18:32:11
Bike
(format nil "~(~x~)" 10) => "a"
18:33:44
Bike
i think that first prints to an internal string and then string downcases it
18:34:29
sjl
(format nil "~(~vr~)" 16 255)
18:34:34
ck_
does your lisp implementation offer anything, pfdietz_? Allegro CL has something called Case Mode, but I don't have one and can't check whether it applies to numbers
18:34:35
Bike
i don't think there's a flag you can use, if you're worried about doing this in the middle of some structure
18:36:37
sjl
if you're pretty printing you might be able to hack something together with http://clhs.lisp.se/Body/v_pr_ppr.htm
18:51:14
aeth
Weird, I would have thought *print-case* would do it, but it doesn't.
18:52:42
sjl
*print-case* is just for symbols
19:17:41
pjb
(format nil "~(~vr~) ~2:* ~:@(~VR~) ~2:* ~@(~VR~) ~2:* ~:(~VR~)" 16 255) #| --> "ff FF Ff Ff" |#
19:55:31
aeth
This ~( really simplifies doing this: `(progn ,(loop :for i :from 0 :to 100 :collect `(defconstant ,(intern (format nil "+~:@(~r~)+" i)) ,i)))
19:55:51
aeth
Works until |+ONE HUNDRED+| which seems to be the first space, at least on SBCL.
20:05:51
semz
Is there a standard way to get a nicely behaved nested REPL? (loop (print (eval (read)))) doesn't integrate well with SLIME and while I could of course mess with SLIME directly, it would be nice if it worked in a normal Lisp shell as well.
20:06:23
pjb
(list `(progn ,@(loop :for i :from 100 :to 105 :collect `(defconstant ,(intern (substitute #\- #\space (format nil "+~:@(~r~)+" i))) ,i)))) #| --> ((progn (defconstant +one-hundred+ 100) (defconstant +one-hundred-one+ 101) (defconstant +one-hundred-two+ 102) (defconstant +one-hundred-three+ 103) (defconstant +one-hundred-four+ 104) (defconstant +one-hundred-five+ 105))) |#
20:06:47
pjb
semz: (com.informatimago.common-lisp.interactive.interactive:repl)
20:07:33
pjb
semz: as for slime integration, this is another problem.
20:08:31
pjb
semz: you would have to modify com.informatimago.common-lisp.cesarum.utility:handling-errors to hook into the debugger.
20:10:20
pjb
Just calling (invoke-debugger) is enough. You might want to add some restarts to be able to come back to your repl.
20:27:19
semz
pjb: thanks, that looks pretty nice to work with
20:29:12
svetlyak40wt
minion: registration, please?
20:29:12
minion
The URL https://gitlab.common-lisp.net/users/sign_in?secret=01667cd9 will be valid until 20:30 UTC.
20:31:07
pjb
What is this registration service?
20:31:28
pjb
Perhaps it would have been smarter to use /msg minion for this command…
Friday, 31st of May 2019, 23:59:11 UTC