death

(defadvice url-cookie-host-can-set-p (after reddit-cookie-fix activate)
  (when (and (string= (ad-get-arg 0) "www.reddit.com")
             (string= (ad-get-arg 1) "reddit.com"))
    (setq ad-return-value t)))

death

(defclass random-world (world)
  ((initial-random-state :initarg :initial-random-state :accessor initial-random-state))
  (:default-initargs :initial-random-state (make-random-state t)))

(defmethod shared-initialize :after ((world random-world) slot-names &rest initargs &key)
  (declare (ignore slot-names initargs))
  (let ((*random-state* (make-random-state (initial-random-state world))))
    ;; Add random objects to the world
    ))

death

;;;; A simple Google Chart wrapper for Common Lisp

;;;
;;; API reference: http://code.google.com/apis/chart/
;;;
;;; WARNING: Incomplete and buggy -- still has much to be done, e.g.:
;;;
;;;  * more thorough testing (that won't be hard...)
;;;
;;;  * handle spaces/newlines appropriately

death

commit 9af6a8a4a9b64875ec17a128539f5c5f1ef8f2b9
Author: death <death@nessers.org>
Date:   Fri Apr 9 21:23:41 2010 +0300

    a working solution for the unexpected tags problem
    
    The previous version dropped the variables for unexpected
    tags, but not their values.

diff --git a/mingus.el b/mingus.el

death


;;;; General

(menu-bar-mode 0)
(scroll-bar-mode -1)
(set-default-font "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1")
(tool-bar-mode 0)
(setq inhibit-splash-screen t)
(setq initial-scratch-message nil)
(add-to-list 'load-path "~/emacs/")

death

From 3c6d41708a3bf34bb6350cab017f935701ac38ef Mon Sep 17 00:00:00 2001
From: death <death@nessers.org>
Date: Fri, 26 Aug 2011 02:49:36 +0300
Subject: [PATCH] correctly handle nil song-number when moving point to current song

---
 mingus.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/mingus.el b/mingus.el

death

(defpackage #:dcpu-16
  (:use #:cl)
  (:export
   #:make-ram #:ram-read #:ram-write #:ram-size
   #:execute #:debug
   #:load-program #:assemble-program
   #:set #:add #:sub #:mul
   #:div #:mod #:shl #:shr
   #:and #:bor #:xor #:ife
   #:ifn #:ifg #:ifb #:jsr

death

Debugger entered--Lisp error: (wrong-type-argument stringp (file "blues/Peter Green/1979 - In The Skies/03-A Fool No More.mp3" Last-Modified "2014-01-15T23:23:29Z" Time 467 Artist "Peter Green" Title "A Fool No More" Album "In The Skies" Track "03" Date "1998" Genre "Blues"))
  string-match("[[*?]" (file "blues/Peter Green/1979 - In The Skies/03-A Fool No More.mp3" Last-Modified "2014-01-15T23:23:29Z" Time 467 Artist "Peter Green" Title "A Fool No More" Album "In The Skies" Track "03" Date "1998" Genre "Blues") nil)
  helm--compute-marked((file "blues/Peter Green/1979 - In The Skies/03-A Fool No More.mp3" Last-Modified "2014-01-15T23:23:29Z" Time 467 Artist "Peter Green" Title "A Fool No More" Album "In The Skies" Track "03" Date "1998" Genre "Blues") ((match helm-mm-exact-match helm-mm-match) (name . "All songs") (candidates . helm-mingus-all-candidates) (action ("Queue" . helm-mingus-queue-song))) t)
  helm-marked-candidates(:with-wildcard t)
  (mapconcat (function (lambda (song) (let ((file (getf song (quo

death

(defpackage #:subsystem.hack
  (:use #:cl)
  (:export #:patch-subsystem)
  (:import-from #:nibbles
                #:read-ub16/le #:read-ub32/le #:write-ub16/le))

(in-package #:subsystem.hack)

(defun subsystem-position (stream)
  (file-position stream 0)

death

(defpackage #:pack
  (:use #:cl #:alexandria)
  (:export
   #:pack
   #:pack-into
   #:unpack
   #:calc-size
   #:compile-struct-string
   #:pack*
   #:unpack*