Skip to content

Instantly share code, notes, and snippets.

(defcustom rudel-auto-publish-exclude-regexp
(rx
(or (group "*" (0+ anything) "*")
" SPEEDBAR"))
"Buffer matching this regular expression are not auto-published.
This option only has an effect when `rudel-auto-publish-predicate' is
set to `rudel-auto-publish-not-excluded-p' "
:group 'rudel
:type 'string)
@scymtym
scymtym / PortConfiguration2.diff
Created June 25, 2012 12:20
PortConfiguration
Index: PortConfiguration.cpp
===================================================================
--- PortConfiguration.cpp (revision 488)
+++ PortConfiguration.cpp (working copy)
@@ -10,6 +10,8 @@
#include <rsb/Informer.h>
#include <rsb/Listener.h>
+#include <rsb/transport/transports.h>
+
From cf4e1479b099e266f672280e2d90c52709472e0c Mon Sep 17 00:00:00 2001
From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Sun, 8 Feb 2015 12:54:41 +0100
Subject: [PATCH 1/2] ENSURE-CLASS signals an error on cyclic {super,meta}class
relations
Partially based on patch by Lucien Pullen <drurowin@gmail.com>.
Fixes lp#1418883
---
#.(progn
(ql:quickload '(:alexandria :cl-dot))
'(ql:quickload '(:alexandria :cl-dot)))
;; TODO: look at http://metamodular.com/Rewrite/rewrite.html for inspiration
#|
digraph G {
compound=true;
subgraph cluster_foo {
Backtrace for: #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLAY-ID 1 {1002E673F3}>'s event process." RUNNING {1003B569A3}>
0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM-BACKEND:SELECTION-OBJECT-TYPE (1)> NIL) [fast-method]
1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM-BACKEND:SELECTION-OBJECT-TYPE (1)> (NIL))
2: (CLIM-CLX::PROCESS-SELECTION-REQUEST #<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST "" :DISPLAY-ID 1 {1002E673F3}> #<XLIB:WINDOW :1 500019C> #<unused argument> :TARGETS :GDK_SELECTION #<XLIB:WINDOW :1 1E00012> :CLIPBOARD 581774723)
3: (CLIM-CLX::EVENT-HANDLER :DISPLAY #<XLIB:DISPLAY :1 (The X.Org Foundation R12004000)> :WINDOW #<XLIB:WINDOW :1 500019C> :EVENT-KEY :SELECTION-REQUEST :CODE NIL :STATE NIL :MODE NIL :TIME 581774723 :TYPE NIL :WIDTH NIL :HEIGHT NIL :X NIL :Y NIL :ROOT-X NIL :ROOT-Y NIL :DATA NIL :OVERRIDE-REDIRECT-P NIL :SEND-EVENT-P NIL :HINT-P NIL :TARGET :TARGETS :PROPERTY :GDK_SELECTION :REQUESTOR #<XLIB:WINDOW :1 1E00012
@scymtym
scymtym / keywords.py
Last active July 15, 2019 15:02
Keyword arguments
class LispWrapper (LispObject):
def __init__(self, lisp, handle):
self.lisp = lisp
self.handle = handle
def __del__(self):
try:
self.lisp.eval('#{}!'.format(self.handle))
except:
pass
@scymtym
scymtym / array-visualization.lisp
Created July 22, 2019 18:32
Array Visualization
(cl:in-package #:clouseau)
(defmethod inspect-object-using-state ((object array)
(state inspected-array)
(style (eql :expanded-body))
(stream t))
(destructuring-bind (height width) (array-dimensions object)
(loop :for y :from 0 :below height
:do (loop :for x :from 0 :below width
:do (draw-rectangle* stream (* 10 x) (* 10 y) (* 10 (1+ x)) (* 10 (1+ y))
; compiling (RUN-DRAWTEST)
Evaluation took:
0.579 seconds of real time
0.501050 seconds of total run time (0.216974 user, 0.284076 system)
86.53% CPU
57 lambdas converted
1,734,316,464 processor cycles
13,563,344 bytes consed
; compiling (SB-PROFILE:REPORT)
From 6b12a6f319b06f7728cf2df9d3ec3e3de5aeb57f Mon Sep 17 00:00:00 2001
From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Mon, 12 Aug 2019 00:05:42 +0200
Subject: [PATCH] maximize
---
Core/clim-core/frames.lisp | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/Core/clim-core/frames.lisp b/Core/clim-core/frames.lisp
@scymtym
scymtym / Backtrace
Last active September 9, 2019 11:46
failed AVER:
(= (HASH-TABLE-COUNT SB-IMPL::TABLE) SB-IMPL::HWM)
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at <http://sbcl.sourceforge.net/>.