PuercoPop

;
var Node = function(value) {
  this._datum = value;
};

Node.prototype = {
  get datum() {
    return this._datum
  },
  set datum(v) {

PuercoPop

~ $ cd Projects/emacs/
~/Projects/emacs $ make
[ -r "/Users/PuercoPop/Projects/emacs/src/config.in" ] || ( cd /Users/PuercoPop/Projects/emacs && autoheader )
cd lib && /usr/bin/make all                          \
    CC='gcc -std=gnu99' CFLAGS='-g3 -O2' CPPFLAGS='' \
	  LDFLAGS='-L/usr/X11/lib' MAKE='/usr/bin/make'
/usr/bin/make  all-am
make[2]: Nothing to be done for `all-am'.
cd lib-src && /usr/bin/make all                          \
	  CC='gcc -std=gnu99' CFLAGS='-g3 -O2' CPPFLAGS='' \

PuercoPop

(defmethod insert :around (element (node node))
  "Wrap the function call around a catch statement so to prevent unnecesary
copying when element already belongs in the tree. When run for the first time,
setup handler case of the element already present."
  (cond ((not (boundp 'first-call))
         (block :first-case
           (let ((first-call-result (let ((first-call t)
                                          (result (call-next-method)))
                                      (declare (ignore first-call))
                                      result)))

PuercoPop

(define-condition element-already-present (error)
  ((text :initarg :text :reader text)))

(defmethod insert :around (element (node node))
  "Wrap the function call around a catch statement so to prevent unnecesary
copying when element already belongs in the tree. When run for the first time,
setup handler case of the element already present."
  (cond ((first-call
          (handler-case
              (progn

PuercoPop

;;; profile-dotemacs.el --- Profile your Emacs init file

;; Copyright (C) 2010, 2012  David Engster

;; Author: David Engster <[email protected]>

;; This file is NOT part of GNU Emacs.

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License

PuercoPop

(defun merge-plists (list-a list-b)
  "If a key from list-b does not exist in list-a add it to it."
  (let ((*merged-list* (copy-list list-a)))
    (declare (special *merged-list*))
    (loop for key in list-b by #'cddr
       do
         (unless (getf list-a key)
           (setf *merged-list* (append *merged-list*  `(,key ,(getf list-b key))))))
        *merged-list*))

PuercoPop

(defun between-quotes (str)
  (let* ((first-quote (1+ (position #\' str))) ; We want the char after first-quote
         (second-quote (position #\' str :start first-quote)))
    (subseq str first-quote second-quote)))

(between-quotes "PDV_n7215679='d6ad8e8a94|1124';PD_vote7215679(0);")

PuercoPop

(setq lexical-binding t)
(require 'package)

;; Add marmalade to package repos
;; default value for package-archives
;; (("gnu" . "http://elpa.gnu.org/packages/"))
(let
    ((marmalade '("marmalade" . "http://marmalade-repo.org/packages/"))
     (melpa '("melpa" . "http://melpa.milkbox.net/packages/"))
     (org '("org" . "http://orgmode.org/elpa/")))

PuercoPop

(load (expand-file-name "~/quicklisp/slime-helper.el"))
(setq inferior-lisp-program "sbcl"
      slime-export-save-file t
      slime-repl-history-remove-duplicates t
      slime-repl-history-trim-whitespaces t)

;(require 'slime-asdf)

(global-set-key "\C-z" 'slime-selector)

PuercoPop

(ql:quickload :postmodern)
(defpackage :test-case
  (:use :cl)
  (:import :pomo))
(in-package :test-case)

;; (defclass dao-class (standard-class)
;;   ((direct-keys :initarg :keys :initform nil :reader direct-keys)
;;    (effective-keys :reader dao-keys)
;;    (table-name)