Skip to content

Instantly share code, notes, and snippets.

@ober
ober / *mu4e-view*
Created February 12, 2014 01:48
Nice guy
From: Adrian McDermott
To: Jaime
Subject: Re: Have to head home for a medical issue with the wife.
Flags: seen
Date: Mon Aug 5 14:33:15 2013
Maildir: /[Gmail].Important
Sorry to hear about your wife but we don't give a shit about your movements
:)
@ober
ober / *Backtrace*
Created February 12, 2014 22:53
wtf
Debugger entered--Lisp error: (error "Buffer *scratch* is not associated with a file")
signal(error ("Buffer *scratch* is not associated with a file"))
error("Buffer %s is not associated with a file" "*scratch*")
vc-deduce-fileset(nil t)
vc-register()
(if (not (eq (quote Git) (vc-backend buffer-file-name))) (vc-register) (shell-command (format "git add %s" buffer-file-name)) (message "Staged changes."))
(lambda nil (interactive) (if (not (eq (quote Git) (vc-backend buffer-file-name))) (vc-register) (shell-command (format "git add %s" buffer-file-name)) (message "Staged changes.")))()
eval-after-load-helper("/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
run-hook-with-args(eval-after-load-helper "/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
do-after-load-evaluation("/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
@ober
ober / scratch
Created February 18, 2014 06:07
asdf missing
gcc -o /root/.cache/common-lisp/ecl-13.5.1-unknown-linux-x86/root/learning/CL/ecl/helloworld -L/usr/lib/ /tmp/eclinitjYvL5C.o /usr/lib/ecl-13.5.1/libasdf.a/root/.cache/common-lisp/ecl-13.5.1-unknown-l\
inux-x86/root/learning/CL/ecl/helloworld.a -Wl,--rpath,/usr/lib/ecl -Wl,-O1,--sort-common,--as-neede\
d,-z,relro -lecl -lgmp -lpthread -ldl -lm
(defpackage #:helloworld-asd
(:use :cl :asdf))
(in-package :helloworld-asd)
(defsystem helloworld
:name "hello world"
:version "0.0.0"
:maintainer "Me"
:description "wow"
@ober
ober / *scratch*
Created February 18, 2014 18:45
helloworld ecl
;;; helloworld.asd
(defpackage #:helloworld-asd
(:use :cl :asdf))
(in-package :helloworld-asd)
(defsystem helloworld
:name "hello world"
:version "0.0.0"
:maintainer "Me"
@ober
ober / fff
Created February 18, 2014 19:28
new ecl
;;; helloworld.asd
(defpackage #:helloworld-asd
(:use :cl :asdf))
(in-package :helloworld-asd)
(defsystem helloworld
:name "hello world"
:version "0.0.0"
:maintainer "Me"
@ober
ober / *Backtrace*
Created February 18, 2014 20:33
WTF
Debugger entered--Lisp error: (error "Buffer *scratch* is not associated with a file")
signal(error ("Buffer *scratch* is not associated with a file"))
error("Buffer %s is not associated with a file" "*scratch*")
vc-deduce-fileset(nil t)
vc-register()
(if (not (eq (quote Git) (vc-backend buffer-file-name))) (vc-register) (shell-command (format "git add %s" buffer-file-name)) (message "Staged changes."))
(lambda nil (interactive) (if (not (eq (quote Git) (vc-backend buffer-file-name))) (vc-register) (shell-command (format "git add %s" buffer-file-name)) (message "Staged changes.")))()
eval-after-load-helper("/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
run-hook-with-args(eval-after-load-helper "/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
do-after-load-evaluation("/Users/jamiefournier/EMACS/emacs/nextstep/Emacs.app/Contents/Resources/lisp/vc/vc.elc")
@ober
ober / labrat.lisp
Created February 19, 2014 00:50
First stab at CL
(ql:quickload :drakma)
(ql:quickload :cl-ppcre)
(defun writeFile (name content)
(with-open-file (stream name
:direction :output
:if-exists :overwrite
:if-does-not-exist :create)
(format stream content)))
@ober
ober / labrat.lisp
Created February 20, 2014 22:36
threads
(ql:quickload :drakma)
(ql:quickload :cl-ppcre)
(ql:quickload :bordeaux-threads)
(defun write-file (name content)
(with-open-file (stream name
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(format stream content)))
@ober
ober / 19*
Created February 21, 2014 03:16
wtf
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION CLACK.HANDLER:STOP (1)>
when called with arguments
(NIL).
[Condition of type SIMPLE-ERROR]
Restarts:
0: [RETRY] Retry calling the generic function.
1: [RETRY] Retry SLIME REPL evaluation request.
2: [*ABORT] Return to SLIME's top level.