rpav

(progn
 (cffi:defcstruct #1=#:anon-type-1646
   (f :float))
 (cffi:defcstruct x
   (a :int)
   (b :int)
   (j :int :count 2)
   (n (:struct #1#))
   (m (:struct #1#))
   (next (:pointer (:struct x)))))

rpav

(defun insert-eval-button ()
  (interactive)
  (insert-string " ")
  (insert-text-button
   "Eval" 'action
   (lambda (x)
     (save-excursion
       (goto-char (button-start x))
       (slime-eval-last-expression)))
   'follow-link t))

rpav

(defclass finalize-test () ())

(defmethod initialize-instance ((instance finalize-test) &key &allow-other-keys)
  (bt:make-thread (lambda () (sleep 300)))
  (tg:finalize instance
               (lambda ()
                 (format t "I am all done.~%"))))

(make-instance 'finalize-test)

rpav

keycode 34 = parenleft braceleft
keycode 35 = parenright braceright
keycode 18 = 9 bracketleft
keycode 19 = 0 bracketright

rpav

[
    {
        "tag": "function",
        "name": "fun",
        "location": "test3.cpp:6:16",
        "variadic": false,
        "inline": false,
        "storage_class": "none",
        "template": [
            {

rpav

[
    {
        "tag": "typedef",
        "name": "A_int",
        "location": "test.cpp:9:19",
        "type": {
            "tag": ":class",
            "name": "A",
            "id": 1
        }

rpav

(defun replace-word-at-point ()
  (interactive)
  (save-excursion
    (let ((regexp      (concat "\\_<" (current-word) "\\_>"))
	  (replacement (read-from-minibuffer
			(concat "Replace " (current-word) " with: ") "")))
      (re-search-backward "\\_<")
      (replace-regexp regexp replacement))))

rpav

(defparameter *input-string*
  "(tiles 2 2
       (tile 0 0 TTERMLTERM EMPTY16X2 0)
       (tile 1 1 TL UL 7
             (primitive_site RLL_X0Y25 RESERVED_LL internal 8)
             (primitive_site DCI7 DCI internal 13)
             (primitive_site DCI0 DCI internal 13)
             (primitive_site PMV PMV internal 8)
             (primitive_site DCIRESET7 DCIRESET internal 1)
             (primitive_site DCIRESET0 DCIRESET internal 1)

rpav

;; (:say foo bar)
;;  => FOO = <VALUE>, BAR = <VALUE>

;; (:say (:val foo)) 
;;  => <VALUE>

;; (:say (:val foo) (:val bar)) 
;; => <VALUE><VALUE>

;; (:say (:val foo) " " (:val bar))

rpav

(defparameter *tileset-cache* (make-hash-table :test 'equal))

 ;; TILE, TILESET

(defclass tile ()
  ((props :initform nil :accessor props)
   (image :initform nil :initarg :image :reader tile-image)))

(defclass tileset ()
  ((props :initform nil :accessor props)