Every now and then I need to live with an ugly kludge.
Uncategorized
2
Posts
2
Posters
0
Views
-
Every now and then I need to live with an ugly kludge.
(defmacro with-tentative-fresh-line ((stream cursor) &body body)
(check-type stream symbol)
(check-type cursor symbol)
(with-gensyms (prev-x prev-y old-x old-y new-x new-y)
`(multiple-value-bind (,prev-x ,prev-y) (cursor-position ,cursor)
(fresh-line ,stream)
(multiple-value-bind (,old-x ,old-y) (cursor-position ,cursor)
(multiple-value-prog1 (progn ,@body)
(multiple-value-bind (,new-x ,new-y) (cursor-position ,cursor)
(if (and (= ,old-x ,new-x) (= ,old-y ,new-y))
(setf (cursor-position ,cursor)
(values ,prev-x ,prev-y))
(fresh-line ,stream))))))))Quiz: what's the purpose of this macro?
-
Every now and then I need to live with an ugly kludge.
(defmacro with-tentative-fresh-line ((stream cursor) &body body)
(check-type stream symbol)
(check-type cursor symbol)
(with-gensyms (prev-x prev-y old-x old-y new-x new-y)
`(multiple-value-bind (,prev-x ,prev-y) (cursor-position ,cursor)
(fresh-line ,stream)
(multiple-value-bind (,old-x ,old-y) (cursor-position ,cursor)
(multiple-value-prog1 (progn ,@body)
(multiple-value-bind (,new-x ,new-y) (cursor-position ,cursor)
(if (and (= ,old-x ,new-x) (= ,old-y ,new-y))
(setf (cursor-position ,cursor)
(values ,prev-x ,prev-y))
(fresh-line ,stream))))))))Quiz: what's the purpose of this macro?
@jackdaniel Does it work similarly to the
~&direcctive offormat?
Gli ultimi otto messaggi ricevuti dalla Federazione
-
Carissimi mappatori di OSM. Mi sorge un dubbio. È corretto inserire il numero civico nel nodo ingresso/uscita di un edificio?
-
@dgar joke's on you, I don't even know what show that's from
-
@vonblubba esatto :D
-
@eniko of you need testing I can try giving it a roll on some of our workstations
-
Autunno 2025: una mobilitazione dalla natura complessa. Alcune riflessioni nel merito
@anarchia
Da “Collegamenti per l’organizzazione diretta di classe” n 10 in fase di stampa riportiamo questa analisi di Cosimo Scarinzi sugli scioperi di questo autunno. “L’energia accumulata nelle manifestazioni per la Palestina deve tradursi nel rimettere in discussione i
-
@phabrizio sul Fediverso ne vedit parecchi abbastanza disperati
-
@oblomov @syphilia @ChieseBrutte È dove Gesù trasforma l'acqua in diesel
-
@FraEmme ai suggerimenti già dati aggiungo Trio, The Game, Mantis, Tranquility. Trio tecnicamente non è per due ma si può giocare con le regole del gioco originale, NaNa, togliendo 11 e 12
