Although California dairy farmers anticipated a bird flu mortality rate of less than 2%, some say between 10% and 15% of infected cattle are dying.

The world's richest man once said Donald Trump's character didn't 'reflect well' on the U.S. Now Elon Musk is touring the country, and spending big, to put Trump and other Republicans in power.

The Wizards found out last week they will have the eighth-best odds (3.5 percent) to win next month's draft lottery after losing a tiebreaker with the Detroit Pistons. While they could leapfrog to the first, second or third pick, in an unlikely scenario they could fall as far as 11th.

The Stranger's morning news round-up. by Nathalie Graham

Welcome to hell week: Somehow, it's here. The 2024 election is tomorrow. If you haven't mailed yours in yet, do it today. Better yet, drop your ballot in a ballot box. Please do not drop any incendiary devices in ballot boxes. Tell your friends to vote. Tell your enemies to vote. Vote like your life depends on it. Vote like someone else's life depends on it. Then, take a nap or something. 

Scene setting: Wind and weather are turbulent today. Everything is astir. 

⚠️The next storm system will move into western WA Monday into Tuesday, bringing gusty winds, lowland rain, mountain snow, & high surf to the region. Details are highlighted below!

— NWS Seattle (@NWSSeattle) November 3, 2024

To make everything worse: The sun is dead. It isn't coming back until spring. Say goodbye to long days. Go to an antique store and buy a lamp. I went to the Antique Mall of West Seattle this weekend and bought myself one. It's saving me. We all deserve soft, buttery warm light this winter. 

Starting tonight, the sun will set in the 4 pm hour every night until Jan. 25.

Seattle area vampires, rejoice! ????

— Seattle Weather Blog (@KSeattleWeather) November 3, 2024

Iowaaaaat? Cross your fingers and hold your breath for this next part. The poll by respected pollster and possible soothsayer Ann Selzer commissioned by the Des Moines Register/Mediacom shows Vice President Kamala Harris leading Donald Trump 47% to 44% in Iowa. The state has voted staunchly red and resolutely for Trump. Back in June, Trump led President Joe Biden (before he decided he should lay down and take a nap instead of running for re-election) by 18 points. Even as recently as September, Trump led Harris in Iowa by 4 points. Apparently, the tables are turning and women are the ones doing the spinning. Particularly, older and independent women voters. Abortion is soooo on the ballot and Iowan women are not taking their futures lightly. If this poll is right, Harris wouldn't just win Iowa, she'd win it in a landslide. 

Trump says "actually, no:" Famous fact-lover Donald Trump says the Iowa poll is wrong and we are all mistaken. According to Trump, the truly accurate poll is the one from Emerson College that shows him up 53% to Harris' 43%. 

Someone who will not get to see if the Iowa poll is accurate: Music legend Quincy Jones died on Sunday. He was 91. 

Don't look a gift poll in the mouth: The knock-on-wood-worthy polling isn't just for national politics. In local news, a Northwest Progressive Institute poll found that in the Seattle City Council Position 8 race, Alexis Mercedes Rink leads incumbent Tanya Woo 52% to 28%. Remember how U2 slipped its album "Songs of Innocence" into everyone's iTunes libraries back in 2014? That's basically how it feels having the council-selected Woo, who knows nothing about anything, in a position of power. Seems as though Seattle is rejecting Woo the same way everyone rejected "Songs of Innocence"—moving her straight to the trash where we hopefully will never have to listen to her again. 

Not worried about the election? Must be nice. But, also maybe you should be. Gov. Jay Inslee clearly is. He signed a letter activating the National Guard in the event of civil unrest after the election.

Washington State Gov. Jay Inslee is activating the state's National Guard, directing personnel to make preparations in case they need to respond to “civil unrest” related to the election. pic.twitter.com/26JGFkv03a

— Mike Baker (@ByMikeBaker) November 2, 2024

Bad news for Peanut: Tragedy struck the squirrelly saga of Peanut, the social media sensation plucked from his owner's care last week by the New York Department of Environmental Conservation (DEC). Apparently, after removing Peanut, the DEC then euthanized him to "test for rabies." The squirrel who often donned tiny cowboy hats will only do so now from heaven. Rest easy, Peanut. 

Roaming police: City officials mysteriously placed Tacoma's police chief on a brief administrative leave back in September. Now, we know why. Chief Avery Moore was gabbing too much while on vacation. Moore racked up a $1,082 bill on his city-issued cellphone while he was in Sweden. Most of the charges appear to be international usage charges, but I like to imagine Moore couldn't stop gossiping on the phone while touring fjords. 

Work stoppage for NYT tech guild: The "over 600 software engineers, product managers, data analysts, and designers" keeping the New York Times website up and running went on strike at 12:01 this morning, in the latest attempt to win a union contract with the media company. The work stoppage comes at a pivotal time for the NYT; Election Day coverage on the ~newspaper of record~ requires a lot of tech. Maybe this squeeze will give these workers the contract they're asking for. In the meantime, don't cross the digital picket line. No Wordle. No Connections. Just solidarity. 

Have you seen this prayer wheel? Capitol Hill Himalayan restaurant Annapurna needs helping finding the handmade Tibetan prayer wheel that normally sits outside its front entrance. Someone nabbed the prayer wheel last week. Last time a business's prayer wheel went missing, someone found it in Lake Washington. 

WA GOP's sexist, racist, anti-LGBTQ text campaign: In Washington's 14th legislative district, the texts are getting out of hand. The Spanish texts spread lies about Latina Democratic candidates, saying they "support chemical castration of children at school," they want to "eliminate the Spanish language," and they "hate your family, they hate God, and they hate the truth." Washington GOP chair Jim Walsh confirmed the organization footed the bill for these texts. The Democrats are pissed and believe these texts are defamatory and broke campaign finance laws. They'll be taking legal action.  

The Washington State GOP is sending out these texts in an increasingly Latino state senate district (14), per a source who sent these along.

(I speak French, not Spanish, so these translations are not my own).

Demographic data on the district here, which is held by 3… pic.twitter.com/ZLy0TCf3As

— Jake Lahut (@JakeLahut) November 2, 2024

Volcanic eruptions in Indonesia: Mount Lewotobi Laki Laki erupted at around midnight Monday. The hot ash shot as high as 6,500 feet into the air and hit several villages, burning down several houses, including a convent of Catholic nuns. Ten people are dead so far. 

South Africa's Steve Irwin died: Dingo Dinkelman, 44, was a wildlife content creator and a conservationist. Dinkelman died from a venomous snake bite after spending a month in an induced coma. 

Something to take your mind off the election: Make this chili. 

Machines of Loving Grace Anthropic CEO Dario Amodei publishes a 14,000-word post on How AI Could Transform the World for the Better, detailing how the 5-10 years following availability of an "Expert-Level Science and Engineering" AI, or "country of geniuses in a datacenter" will play out advances in biology, (Amodei's specialty,) neuroscience, economic development, governance, and work and meaning. Amodei draws on Iain M. Bank's MeFi Favorite the Culture as he concludes: "I think the Culture's values are a winning strategy because they're the sum of a million small decisions that have clear moral force and that tend to pull everyone together onto the same side. Basic human intuitions of fairness, cooperation, curiosity, and autonomy are hard to argue with, and are cumulative in a way that our more destructive impulses often aren't. [...] These simple intuitions, if taken to their logical conclusion, lead eventually to rule of law, democracy, and Enlightenment values. If not inevitably, then at least as a statistical tendency, this is where humanity was already headed. AI simply offers an opportunity to get us there more quickly—to make the logic starker and the destination clearer. Banks, most previously on the Blue: [1][2] via The Verge/Decoder

Panhandle Door Inc. started 25 years ago as a small mom-and-pop cabinet business in Naples, Idaho, about 6 miles south of Bonners Ferry in Boundary County…

It starts raining just as two trucks hauling juvenile salmon arrive near the end of a gravel road at Chief Joseph Dam in the Central Washington town of Bridgeport on Friday, May 6…

For Kate Burke, stepping into her role as the executive director of River City Youth Ops this June marked the start of a new phase for herself and the organization…

Co-released on Time Lag and Indian Queen Records, & Hope Still is the debut album from one Silent Land Time Machine, a one-man recording project of a fellow from Texas who has managed to teach himself how to play a lot of different instruments and build up a beguiling little album with some crafty layering and subtle shifts in sound that call to mind a ton of different artists but doesn't really sound like any one of them in particular.

The 'Can't Let Go' singer reveals that she spent a week in intensive care and a month of therapy at a Nashville hospital after struggling to maintain her balance in the bathroom of her home.

The 'Carol' star has written a heartfelt open letter as part of Farm Sanctuary's campaign commemorating the day that is specifically dedicated to mothers and maternal figures.

The 'Carol' star has written a heartfelt open letter as part of Farm Sanctuary's campaign commemorating the day that is specifically dedicated to mothers and maternal figures.

Cure Leukaemia campaigning to be put out of business.

Good Hope Hospital - in partnership with Healthcare at Home Ltd - is launching its first recovery at home (R@H) service this week

A Good Hope consultant has won international recognition for leading a new treatment study

Athletes lend a helping hand to stock food bank in Birmingham.

Aim to boost central government help for devolved region.

Celebrities get behind urgent Black Country children’s hospice appeal.

Sir David Attenborough is urging the public to take part in the world’s largest butterfly count to assess if species are recovering after their worst year on record.

“With customers seeking more personalized experiences, the outlet will provide a holistic experience that will assist them in making the right decisions,” said Saurabh Agarwal, managing director, Kamdhenu Paints.

Two things:

1. Narrow your focus to your sphere of influence, just for now, because in this moment of helplessness and defeat, when we are feeling powerless, it behooves us to remember we do have immense power. Kamala Harris was never going to bring a casserole to your neighbor when their spouse was in the hospital, that's you. Donald Trump cannot steal the laughter from your friends' lips when you tell them a joke, that laughter is entirely in your power. You have the power to choose connection, fellowship, mutual aid, joy, hard work, love, passion, devotion, faith. To me, remembering that I have power is cause for hope.

2. When you're out there using your power to connect with your fellow human beings, look for the helpers. Take heart in their existence, their perseverance. Do everything you can to become one of them.

I work in a women's health clinic that does first-term abortions as one of its services.

We have a comment form on our web site where people who want to volunteer as patient escorts can reach out. Typically, we get about one or two inquiries a week.

Yesterday alone, we got twenty-five.

I'm usually allergic to a lot of the way "find the bright side" kind of things are framed, but this extended quotation from Great Tide Rising by Kathleen Dean Moore came across my Mastodon feed and really resonated with me.

Over the years, college students have often come to my office distraught, unable to think of what they might be able to do to stop the terrible losses caused by an industrial growth economy run amok. So much dying, so much destruction. I tell them about Mount Saint Helens, the volcano that blasted a hole in the Earth in 1980, only a decade before they were born.

Those scientists were so wrong back in 1980, I tell my students. When they first climbed from the helicopters, holding handkerchiefs over their faces to filter ash from the Mount Saint Helens eruption, they did not think they would live long enough to see life restored to the blast zone. Every tree was stripped gray, every ridgeline buried in cinders, every stream clogged with toppled trees and ash. If anything would grow here again, they thought, its spore and seed would have to drift in from the edges of the devastation, long dry miles across a plain of cinders and ash. The scientists could imagine that– spiders on silk parachutes drifting over rubble and plain, a single samara spinning into the shade of a pumice stone. It was harder to imagine the time required for flourishing to return to the mountains – all the dusty centuries.

But here they are today: On the mountain, only thirty-five years later, these same scientists are on their knees, running their hands over beds of moss below lupine in lavish purple bloom. Tracks of mice and fox wander along a stream, and here, beside a ten-foot silver fir, a coyote's twisted scat grows mushrooms. What the scientists know now, but didn't understand then, is that when the mountain blasted ash and rock across the landscape, the devastation passed over some small places hidden in the lee of rocks and trees. Here, a bed of moss and deer fern under a rotting log. There under a boulder, a patch of pearly everlasting and the tunnel to a vole's musty nest. Between stones in a buried stream, a slick of algae and clustered dragonfly larvae. Refugia, they call them: places of safety where life endures. From the refugia, mice and toads emerged blinking onto the blasted plain. Grasses spread, strawberries sent out runners. From a thousand, ten thousand, maybe countless small places of enduring life, forests and meadows returned to the mountain.

I have seen this happen. I have wandered the edge of Mount Saint Helens vernal pools with ecologists brought to unscientific tears by the song of meadowlarks in this place.

My students have been taught, as they deserve to be, that the fossil-fueled industrial growth culture has brought the world to the edge of catastrophe. They don't have to "believe in" climate change to accept this claim. They understand the decimation of plant and animal species, the poisons, the growing deserts and spreading famine, the rising oceans and melting ice. If it's true that we can't destroy our habitats without destroying our lives, as Rachel Carson said, and if it's true that we are in the process of laying waste to the planet, then our ways of living will come to an end – some way or another, sooner or later, gradually or catastrophically – and some new way of life will begin. What are we supposed to do? What is there to hope for at the end of this time? Why brother trying to patch up the world while so many others seem intent on wrecking it?

These are terrifying questions for an old professor; thank god for the volcano's lesson. I tell them about the rotted stump that sheltered spider eggs, about a cupped cliff that saved a fern, about all the other refugia that brought life back so quickly to the mountain. If destructive forces are building under our lives, then our work in this time and place, I tell them, is to create refugia of the imagination. Refugia, places where ideas are sheltered and encouraged to grow.

Even now, we can create small pockets of flourishing, and we can make ourselves into overhanging rock ledges to protect life so that the full measure of possibility can spread and reseed the world. Doesn't matter what it is, I tell my students; if it's generous to life, imagine it into existence. Create a bicycle cooperative, a seed-sharing community, a wildlife sanctuary on the hill below the church. Raise butterflies with children. Sing duets to the dying. Tear out the irrigation system and plant native grass. Imagine water pumps. Imagine a community garden in the Kmart parking lot. Study ancient corn. Teach someone to sew. Learn to cook with the full power of the sun at noon.

We don't have to start from scratch. We can restore pockets of flourishing life ways that have been damaged over time. Breach a dam. Plant a riverbank. Vote for schools. Introduce the neighbors to one another's children. Celebrate the solstice. Slow a river course with a fallen log. Tell stories of how indigenous people live on the land. Clear the grocery carts out of the stream.

Maybe most effective of all, we can protect refugia that already exist. They are all around us. Protect the marshy ditch behind the mall. Work to ban poisons from the edges of the road. Save the hedges in your neighborhood. Boycott what you don't believe in. Refuse to participate in what is wrong. There is hope in this: An attention that notices and celebrates thriving where it occurs; a conscience that refuses to destroy it.

From these sheltered pockets of moral imagining, and from the protected pockets of flourishing, new ways of living will spread across the land, across the salt plains and beetle killed forests. Here is how life will start anew. Not from the edges over centuries of invasion; rather from small pockets of good work, shaped by an understanding that all life is interdependent, and driven by the one gift humans have that belongs to no other: practical imagination – the ability to imagine that things can be different from what they are now.

That's it. Given this terrible, horrible, no good week, I'd like to hang onto some signs of hope. They don't have to be political, anything will do.

We have noticed a repeating trend in the music requests we receive from our partners in the advertising world and therefor we would like to enrich our catalog with more songs about human kindness.

The genre is not really important as long as the song has a hopeful, optimistic feel. Possible lyrical directions could be: diversity, inclusion, walking the same ground, love (not romantic), people's kindness, help, togetherness etc.

Below are two great examples of the type of songs we are seeking:

- Birdy - People Help the People
- Brandi Carlile - The Joke

Please submit only professionally recorded and mastered songs. The best submissions will be included in our catalog for licensing which is available to our network of contacts in the film, TV and advertising industry.

As an added bonus, if your song is Selected, we will offer to release your music on Filter Label. The songs by our talented artists can be heard in Legacies, The OA, Exatlon, The Matrix Revisited, CSI: Las Vegas, Nikita, in commercials for Samsung, McDonald's, Nike, Philip Morris, Nestle Wagner, Bank Millennium, in shows on MTV, CNN, Nat Geo, NBC, Al Jazeera, Esquire, Channel 4 and almost every major TV network in the world.

- Emil Hadji Panzov - Founder / CEO - Filter Label

Updated at 8:44 a.m. ET From airlines to paper mills, the job news is grim, and there are growing signs it won't be getting better anytime soon. On Thursday, the Labor Department reported nearly 2.4 million new applications for state and federal unemployment benefits last week. And United Airlines is warning that it may have to furlough as many as 36,000 employees this fall. Demand for air travel has collapsed as a result of the coronavirus pandemic. The president of the flight attendants union called the warning a "gut punch" but also "the most honest assessment we've seen on the state of the industry — and our entire economy." Union President Sara Nelson tweeted that demand for air travel had recovered a small fraction of its pre-pandemic levels this summer and "even those minimal gains evaporated over the last week due to surging COVID-19 cases across the country." Jobs in other industries are facing similar threats as the coronavirus tightens its stubborn grip on the country. Derse

When Gail lost her husband, she wanted to end her life. But then she discovered amazingfacts.org—and found hope and a new life in Jesus! You can point even more eyes to heavenly truth when you give to the online evangelistic work of Amazing Facts. Thank you for sending streams of light around the world!

A new study published by the American Cancer Society reveals that nearly half of all cancer deaths are attributable to lifestyle factors. Would a return to God’s original health plan make a difference?

Congress returns this week. Republicans are hopeful they will maintain their House majority in the next Congress. In the Senate, Republicans will choose the next majority leader.

WHEN you meet Peter Chalouhy it is hard to imagine the bubbly little boy may not make it to his 14th birthday. A stem cell gene therapy trial is his only hope but funds are needed to bring it here.

Senate Republicans are set to gather behind closed doors on Wednesday to select a new party leader after securing the majority—and as Sen. Mitch McConnell (R-KY) serves his final days as Senate minority leader.

The post Exclusive — Sen. Ron Johnson Hopes for Delay of Senate Leadership Vote, Calls McConnell Push ‘Grotesque’ appeared first on Breitbart.

On a perfect autumn afternoon, the Rams won in front of an announced sellout crowd of 36,980.

"With the re-election of Trump I’m convinced that our generation’s time – I’m in my 80s -- has passed. The values I admire, the qualities of character I respect, seem to be relegated to some kind of antique standards shop. We’re decidedly outta style." -- Harry Puncec, Lakewood

After not only losing, but getting bullied in a 27-14 manhandling by the hated Raiders, Denver Broncos coach Sean Payton tried to scrawl a smiley face on this mess.

#BlackLoveGoals

He says Ray Allen talked to him about enrolling

[Written by Stephen Wright] Bermudian rugby player Jamin Hodgkins says he is looking to explore options of playing in Major League Rugby [MLR] in North America or Europe after leaving Welsh outfit Bridgend Ravens. Hodgkins, 22, made ten appearances, scoring 75 points, for Bridgend, who finished ninth in the Welsh Indigo Premiership this season. The […]

[Written by Stephen Wright] Local bodybuilder Ross Caesar hopes his recent impressive achievements on the international stage have inspired others to chase their goals. Caesar followed up his superb third-place finish in the men’s classic physique at the prestigious IFBB Pro League Masters Olympia in Cluj, Romania, last weekend with a second place in the […]

[Column written by Dr Kimberley Watkins] World Stroke Day 2024 is an important opportunity to spread a message of hope and support for survivors in our community. Stroke is a leading cause of disability and death worldwide, and its impact can be devastating for individuals and their families. However, it’s crucial to emphasize that there […]

Table of Contents

1. Dynamic Bindings
2. The problem
3. The solution
4. Dynamic slots
5. The context
6. Summary

Dynamic Bindings

Common Lisp has an important language feature called dynamic binding. It is possible to rebind a dynamic variable somewhere on the call stack and downstream functions will see that new value, and when the stack is unwound, the old value is brought back.

While Common Lisp does not specify multi-threading, it seems to be a consensus among various implementations that dynamic bindings are thread-local, allowing for controlling the computing context in a safe way.

Before we start experiments, let's define a package to isolate our namespace:

(defpackage "EU.TURTLEWARE.BLOG/DLET"
  (:local-nicknames ("MOP" #+closer-mop "C2MOP"
                           #+(and (not closer-mop) ecl) "MOP"
                           #+(and (not closer-mop) ccl) "CCL"
                           #+(and (not closer-mop) sbcl) "SB-MOP"))
  (:use "CL"))
(in-package "EU.TURTLEWARE.BLOG/DLET")

Dynamic binding of variables is transparent to the programmer, because the operator LET is used for both lexical and dynamic bindings. For example:

(defvar *dynamic-variable* 42)

(defun test ()
  (let ((*dynamic-variable* 15)
        (lexical-variable 12))
    (lambda ()
      (print (cons *dynamic-variable* lexical-variable)))))

(funcall (test))
;;; (42 . 12)

(let ((*dynamic-variable* 'xx))
  (funcall (test)))
;;; (xx . 12)

Additionally the language specifies a special operator PROGV that gives the programmer a control over the dynamic binding mechanism, by allowing passing the dynamic variable by value instead of its name. Dynamic variables are represented by symbols:

(progv (list '*dynamic-variable*) (list 'zz)
  (funcall (test)))
;;; (zz . 12)

The problem

Nowadays it is common to encapsulate the state in the instance of a class. Sometimes that state is dynamic. It would be nice if we could use dynamic binding to control it. That said slots are not variables, and if there are many objects of the same class with different states, then using dynamic variables defined with DEFVAR is not feasible.

Consider the following classes which we want to be thread-safe:

(defgeneric call-with-ink (cont window ink))

(defclass window-1 ()
  ((ink :initform 'red :accessor ink)))

(defmethod call-with-ink (cont (win window-1) ink)
  (let ((old-ink (ink win)))
    (setf (ink win) ink)
    (unwind-protect (funcall cont)
      (setf (ink win) old-ink))))

(defclass window-2 ()
  ())

(defvar *ink* 'blue)
(defmethod ink ((window window-2)) *ink*)

(defmethod call-with-ink (cont (win window-2) ink)
  (let ((*ink* ink))
    (funcall cont)))

The first example is clearly not thread safe. If we access the WINDOW-1 instance from multiple threads, then they will overwrite a value of the slot INK.

The second example is not good either, because when we have many instances of WINDOW-2 then they share the binding. Nesting CALL-WITH-INK will overwrite the binding of another window.

The solution

The solution is to use PROGV:

(defclass window-3 ()
  ((ink :initform (gensym))))

(defmethod initialize-instance :after ((win window-3) &key)
  (setf (symbol-value (slot-value win 'ink)) 'red))

(defmethod call-with-ink (cont (win window-3) ink)
  (progv (list (slot-value win 'ink)) (list ink)
    (funcall cont)))

This way each instance has its own dynamic variable that may be rebound with a designated operator CALL-WITH-INK. It is thread-safe and private. We may add some syntactic sugar so it is more similar to let:

(defmacro dlet (bindings &body body)
  (loop for (var val) in bindings
        collect var into vars
        collect val into vals
        finally (return `(progv (list ,@vars) (list ,@vals)
                           ,@body))))

(defmacro dset (&rest pairs)
  `(setf ,@(loop for (var val) on pairs by #'cddr
                 collect `(symbol-value ,var)
                 collect val)))

(defmacro dref (variable)
  `(symbol-value ,variable))

Dynamic slots

While meta-classes are not easily composable, it is worth noting that we can mold it better into the language by specifying that slot itself has a dynamic value. This way CLOS aficionados will have a new tool in their arsenal.

The approach we'll take is that a fresh symbol is stored as the value of each instance-allocated slot, and then accessors for the slot value will use these symbols as a dynamic variable. Here are low-level accessors:

;;; Accessing and binding symbols behind the slot. We don't use SLOT-VALUE,
;;; because it will return the _value_ of the dynamic variable, and not the
;;; variable itself.
(defun slot-dvar (object slotd)
  (mop:standard-instance-access
   object (mop:slot-definition-location slotd)))

(defun slot-dvar* (object slot-name)
  (let* ((class (class-of object))
         (slotd (find slot-name (mop:class-slots class)
                      :key #'mop:slot-definition-name)))
    (slot-dvar object slotd)))

(defmacro slot-dlet (bindings &body body)
  `(dlet ,(loop for ((object slot-name) val) in bindings
                 collect `((slot-dvar* ,object ,slot-name) ,val))
     ,@body))

Now we'll define the meta-class. We need that to specialize functions responsible for processing slot definitions and the instance allocation. Notice, that we make use of a kludge to communicate between COMPUTE-EFFECTIVE-SLOT-DEFINITION and EFFECTIVE-SLOT-DEFINITION-CLASS – this is because the latter has no access to the direct slot definitions.

;;; The metaclass CLASS-WITH-DYNAMIC-SLOTS specifies alternative effective slot
;;; definitions for slots with an initarg :dynamic.
(defclass class-with-dynamic-slots (standard-class) ())

;;; Class with dynamic slots may be subclasses of the standard class.
(defmethod mop:validate-superclass ((class class-with-dynamic-slots)
                                    (super standard-class))
  t)

;;; When allocating the instance we initialize all slots to a fresh symbol that
;;; represents the dynamic variable.
(defmethod allocate-instance ((class class-with-dynamic-slots) &rest initargs)
  (declare (ignore initargs))
  (let ((object (call-next-method)))
    (loop for slotd in (mop:class-slots class)
          when (typep slotd 'dynamic-effective-slot) do
            (setf (mop:standard-instance-access
                   object
                   (mop:slot-definition-location slotd))
                  (gensym (string (mop:slot-definition-name slotd)))))
    object))

;;; To improve potential composability of CLASS-WITH-DYNAMIC-SLOTS with other
;;; metaclasses we treat specially only slots that has :DYNAMIC in initargs,
;;; otherwise we call the next method.
(defmethod mop:direct-slot-definition-class
    ((class class-with-dynamic-slots) &rest initargs)
  (loop for (key val) on initargs by #'cddr
        when (eq key :dynamic)
          do (return-from mop:direct-slot-definition-class
               (find-class 'dynamic-direct-slot)))
  (call-next-method))

;;; The metaobject protocol did not specify an elegant way to communicate
;;; between the direct slot definition and the effective slot definition.
;;; Luckily we have dynamic bindings! :-)
(defvar *kludge/mop-deficiency/dynamic-slot-p* nil)
(defmethod mop:compute-effective-slot-definition
    ((class class-with-dynamic-slots)
     name
     direct-slotds)
  (if (typep (first direct-slotds) 'dynamic-direct-slot)
      (let* ((*kludge/mop-deficiency/dynamic-slot-p* t))
        (call-next-method))
      (call-next-method)))

(defmethod mop:effective-slot-definition-class
    ((class class-with-dynamic-slots) &rest initargs)
  (declare (ignore initargs))
  (if *kludge/mop-deficiency/dynamic-slot-p*
      (find-class 'dynamic-effective-slot)
      (call-next-method)))

Finally we define a direct and an effective slot classes, and specialize slot accessors that are invoked by the instance accessors.

;;; There is a considerable boilerplate involving customizing slots.
;;;
;;; - direct slot definition: local to a single defclass form
;;;
;;; - effective slot definition: combination of all direct slots with the same
;;;   name in the class and its superclasses
;;;
(defclass dynamic-direct-slot (mop:standard-direct-slot-definition)
  ((dynamic :initform nil :initarg :dynamic :reader dynamic-slot-p)))

;;; DYNAMIC-EFFECTIVE-SLOT is implemented to return as slot-value values of the
;;; dynamic variable that is stored with the instance.
;;;
;;; It would be nice if we could specify :ALLOCATION :DYNAMIC for the slot, but
;;; then STANDARD-INSTANCE-ACCESS would go belly up. We could make a clever
;;; workaround, but who cares?
(defclass dynamic-effective-slot (mop:standard-effective-slot-definition)
  ())

(defmethod mop:slot-value-using-class
    ((class class-with-dynamic-slots)
     object
     (slotd dynamic-effective-slot))
  (dref (slot-dvar object slotd)))

(defmethod (setf mop:slot-value-using-class)
    (new-value
     (class class-with-dynamic-slots)
     object
     (slotd dynamic-effective-slot))
  (dset (slot-dvar object slotd) new-value))

(defmethod mop:slot-boundp-using-class
  ((class class-with-dynamic-slots)
   object
   (slotd dynamic-effective-slot))
  (boundp (slot-dvar object slotd)))

(defmethod mop:slot-makunbound-using-class
  ((class class-with-dynamic-slots)
   object
   (slotd dynamic-effective-slot))
  (makunbound (slot-dvar object slotd)))

With this, we can finally define a class with slots that have dynamic values. What's more, we may bind them like dynamic variables.

;;; Let there be light.
(defclass window-4 ()
  ((ink :initform 'red :dynamic t :accessor ink)
   (normal :initform 'normal :accessor normal))
  (:metaclass class-with-dynamic-slots))

(let ((object (make-instance 'window-4)))
  (slot-dlet (((object 'ink) 15))
    (print (ink object)))
  (print (ink object)))

ContextL provides a similar solution with dynamic slots, although it provides much more, like layered classes. This example is much more self-contained.

The context

Lately I'm working on the repaint queue for McCLIM. While doing so I've decided to make stream operations thread-safe, so it is possible to draw on the stream and write to it from arbitrary thread asynchronously. The access to the output record history needs to be clearly locked, so that may be solved by the mutex. Graphics state is another story, consider the following functions running from separate threads:

(defun team-red ()
  (with-drawing-options (stream :ink +dark-red+)
    (loop for i from 0 below 50000 do
      (write-string (format nil "XXX: ~5d~%" i) stream))))

(defun team-blue ()
  (with-drawing-options (stream :ink +dark-blue+)
    (loop for i from 0 below 50000 do
      (write-string (format nil "YYY: ~5d~%" i) stream))))

(defun team-pink ()
  (with-drawing-options (stream :ink +deep-pink+)
    (loop for i from 0 below 25000 do
      (case (random 2)
        (0 (draw-rectangle* stream 200 (* i 100) 250 (+ (* i 100) 50)))
        (1 (draw-circle* stream 225 (+ (* i 100) 25) 25))))))

(defun gonow (stream)
  (window-clear stream)
  (time (let ((a (clim-sys:make-process #'team-red))
              (b (clim-sys:make-process #'team-blue))
              (c (clim-sys:make-process #'team-grue)))
          (bt:join-thread a)
          (bt:join-thread b)
          (bt:join-thread c)
          (format stream "done!~%")))  )

Operations like WRITE-STRING and DRAW-RECTANGLE can be implemented by holding a lock over the shared resource without much disruption. The drawing color on the other hand is set outside of the loop, so if we had locked the graphics state with a lock, then these functions would be serialized despite being called from different processes. The solution to this problem is to make graphics context a dynamic slot that is accessed with WITH-DRAWING-OPTIONS.

Summary

I hope that I've convinced you that dynamic variables are cool (I'm sure that majority of readers here are already convinced), and that dynamic slots are even cooler :-). Watch forward to the upcoming McCLIM release!

If you like technical writeups like this, please consider supporting me on Patreon.

African leaders may have been quick to congratulate Donald Trump on his election, professing a desire for mutually beneficial partnerships, but there are meager expectations that his presidency will change things for this continent of over 1.4 billion people. In the wake of Trump's win, Kenya's…

Vulcan Energy says its new plant west of Frankfurt, now in its pilot phase, plans to soon produce lithium for batteries used by auto manufacturers including Volkswagen, Renault and Stellantis.

https://www.amazon.com/dp/B09KRKD3P2?tag=cheapassgam08-20&th=1

This is more like one of those hack and slash Musou type games for anyone that isn't usually interested in Fire Emblem. Metacritic 80 with an 89 user score.

Don't be such a shlemiel, Jacob! Stripes is just FINE already, and the Rabbi says you can wear that coat to the synagogue!

The SVC Board will be hosting an event about the "now what" after the election, trying to spread hope and get students involved in community resilience building.

I’ve come to believe that just swinging one’s legs out of bed is a sign of hope. So is making

Read More

The post True hope and joy appeared first on Women of the ELCA.

This marks the launch of various ventures, including a festival project, a therapeutic space with therapy animals, and a holistic health program for women. 

The following article, Kamala Harris: ‘It’s Our Last Hope’, was first published on The Black Sphere.

Kamala Harris' campaign has reach the point of being beyond hope. And everybody should have seen it coming.

Continue reading Kamala Harris: ‘It’s Our Last Hope’ ...

By Julianna Frieman Republican senators competing for the majority leader position vowed Sunday to address President-elect Donald Trump’s demands ahead of his inauguration. Trump revealed Sunday that the Senate leader of his GOP majority must support recess appointments to assure his Cabinet positions be confirmed expeditiously and unobstructed. The three senators contending for the leadership […]

The post GOP Senate Majority Leader-Hopefuls Scramble To Address Trump Demands Ahead Of Inauguration appeared first on Liberty Unyielding.