Create accountLogin

Recent searches

No recent searches

Search options

Not available on functional.cafe.
functional.cafe is one of the many independent Mastodon servers you can use to participate in the fediverse.
functional.cafe is an instance for people interested in functional programming and languages.

Administered by:

Server stats:

220
active users

functional.cafe: AboutProfiles directoryPrivacy policy

Mastodon: AboutGet the appKeyboard shortcutsView source codev4.4.0-alpha.4+glitch

#lisp

72 posts60 participants9 posts today
Public

@simendsjo @jackdaniel #XMPP has all those features, and there's a fairly big #Lisp / #Scheme / #CommonLisp channel there - xmpp.link/#lisp@conference.a3.

It might not have everything that #Discord does, but it's vastly better than #IRC. And there's a cost to using #proprietary and #centralized services, which people constantly forget about in chasing convenience and shiny features.

Here's a guide to help you get started.
contrapunctus.codeberg.page/th

xmpp.linkXMPP Invitation
*
Public

The Xerox PARC alumni who contribute to the Medley Interlisp project shared the buttons they collected at computing conferences in the 1980s and 1990s such as AAAI, IJCAI, SIGGRAPH.

The buttons are awesome and span a range of languages and systems such as Interlisp, Lisp Machines, Smalltalk, Unix, Modula-2, Mesa, Pilot, and more. Be sure to go through the whole thread.

groups.google.com/g/lispcore/c

groups.google.comConference buttons
#retrocomputing#interlisp#lisp
Public

Lisp sucks. Tell me what's wrong here:

(DEFVAR x 0) ; GLOBAL BADNESS STAYS

(DEFUN dO-StuFf (NUMBer)
(LET ((rEsUlT 1))
(DECLARE (SPECIAL X)) ; THIS IS LEGAL HERE
(SETQ X NUMBER)
(TAGBODY
StaRT
(IF (< X 1) (GO ENDz))
(SETQ rEsUlT (* rEsUlT X))
(SETQ x (- x 1)) ; NOTE: STILL USING GLOBAL x INSTEAD OF LOCAL X
(GO StARt)
ENDz)
(pRiNt (lIsT 'FACtoRiAl-oF NUMBER 'iS rEsUlT))))

(DEFUN nOW-dO-AlL ()
(LET ((I 0))
(LOOP
(WHEN (> i 5) (RETURN))
(Do-sTUFF i)
(SETQ i (+ i 1)))))

(nOW-dO-AlL)

#commonlisp #lisp #sbcl #clisp @amszmidt @screwtape

Public

Here's a new challenge for Lisp folks to figure out.

Why does this fail. And don't give the error message as the answer. WHY does this do what it does?

(defun who-am-i ()
(flet ((x () 'inner))
(labels ((x () (x))) ;;
(x))))

Is the third line calling inner or itself?

Okay you get one second hint: Yes, it overflows. Why?

That is the challenge.

#commonlisp#lisp
Public

is a terrible communication platform with all its distractions and malfeatures. I've used it to stay in touch with programmers that are not on IRC nor on fediverse. But today they've crossed the line - they've shown me an ad, an ad that has obfucaed the chat at that. I've disabled the account and not going to use it anymore. Good ridding I guess.

Public

"your lack of capitalization hurts my eyes"

Should we upcase all #lisp code just on principle ?

· 71 people · Closed
Public
The #LispyGopherClimate #weekly #tech #podcast for 2025-04-02

Listen at: https://archives.anonradio.net/202504020000_screwtape.mp3

This week we will talk about the Unix Philosophy and how it compares and contrasts with whatever one might call the “Emacs Philosophy.”

The impetus for the discussion is a series of blog posts by @ramin_hal9001 [fe.disroot.org] called “Emacs fulfills the UNIX Philosophy”:

…as well as a fascinating discussion [mastodon.sdf.org] that took place over this past week on ActivityPub on the topic of the Unix philosophy and history of Lisp on Unix in which some very knowledgeable people have contributed anecdotes and facts.

#technology #programming #SoftwareEngineering #RetroComputing #lisp #r7rs #SchemeLang #UnixPhilosophy

This weeks #ClimateCrisis #haiku by @kentpitman
within each of us
our loved ones, in tiny form,
caring's innate yield
    company at a distance
    legacy in case of loss
#senryu#poem#ShortPoem
*
Public

#guile #scheme tip: when running unit tests (srfi-64) you may benefit from colorizing the output of the runs. Pipe via a small awk script.
#lisp

/compiling|compiled/ {print "\033[34m" $0 "\033[0m"; next}
/WARNING/ {print "\033[33m" $0 "\033[0m"; next}
/Entering test group|Leaving test group/ {print "\033[36m" $0 "\033[0m"; next}
/PASS/ {print "\033[32m" $0 "\033[0m"; next}
/# of expected passes/ {print "\033[36m" $0 "\033[0m"; next}
/FAIL/ {print "\033[31m" $0 "\033[0m"; next}
{print $0}

ExploreLive feeds
About