scymtym

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/>.

scymtym

From 6b12a6f319b06f7728cf2df9d3ec3e3de5aeb57f Mon Sep 17 00:00:00 2001
From: Jan Moringen <[email protected]>
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

; 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)

scymtym

(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))

scymtym

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

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

#.(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 {

scymtym

From cf4e1479b099e266f672280e2d90c52709472e0c Mon Sep 17 00:00:00 2001
From: Jan Moringen <[email protected]>
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 <[email protected]>.

Fixes lp#1418883
---

scymtym

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>
+

scymtym

(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)