ldunn

class Word
  attr_accessor :pops, :pushes, :apply
  @pops, @pushes, @apply = nil
  def initialize(pops, pushes, &proc)
    @pops = pops
    @pushes = pushes
    @apply = proc
  end
end

ldunn

class Parser
  def initialize
    @ops = ['+', '-', '/', '*']
    @position = 0
    @terms = []
  end

  def parse(expr)
    @terms = expr.split(' ')
    if @terms.length > 2 then

ldunn

void switch_page_directory(page_directory_t *dir)
{
   current_directory = dir;
   __asm__ __volatile__("mov %0, %%cr3":: "r"(dir->physical_address));
   unsigned int cr0;
   __asm__ __volatile__("mov %%cr0, %0": "=r"(cr0));
   cr0 |= 0x80000000; // Enable paging!
   panic("ohi");
   __asm__ __volatile__("mov %0, %%cr0":: "r"(cr0));
}

ldunn

#include <multiboot.h>
#include <misc.h>
#include <video.h>
#include <gdt.h>
#include <idt.h>
#include <irq.h>
#include <isr.h>
#include <timer.h>
#include <keyboard.h>

ldunn

#STAGE1=/usr/lib/grub/i386-pc/stage1
STAGE2=/usr/lib/grub/i386-pc/stage2_eltorito

all: $(ISO)

kernel:
	@cd kernel/; $(MAKE) $(MFLAGS)

iso: $(ISO)

ldunn

The path
  #P"/var/cache/common-lisp-controller/500/sbcl/local/h..."
does not exist.
   [Condition of type SB-INT:SIMPLE-FILE-ERROR]

Restarts:
 0: [TRY-RECOMPILING] Try recompiling commands/misc
 1: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {BCB2D71}> on #<ASDF:CL-SOURCE-FILE "commands/misc" {B53BFC1}>.
 2: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {BCB2D71}> on #<ASDF:CL-SOURCE-FILE "commands/misc" {B53BFC1}> as having been successful.
 3: [RETRY] Retry SLIME REPL evaluation request.

ldunn

(defun connect-bot (connection nick server channel)
  (setf connection (irc:connect :nickname nick
				:server server))
  (sleep 3)
  (irc:join connection channel)
  (irc:add-hook connection 'irc-privmsg-message 'command-hook)
  (irc:start-background-message-handler connection))

ldunn

(defun command-hook (message)
  (handler-case 
      (let ((connection (connection message)))
	(describe message)
	(privmsg connection "#bots" (arguments message))
	(if (string= (second (arguments message)) "roar")
	    (privmsg connection "#bots" "ohi!")))
    (error (condition) (describe condition))))

ldunn

(require :cl-irc)
(defpackage #:litht
  (:use #:common-lisp #:cl-irc))

(in-package :litht)

(defvar *connection* nil)
  

ldunn

2:3:
  error: 
    Required argument is not a symbol: (LAST (SLOT-VALUE MESSAGE 'ARGUMENTS))
    --> SB-INT:DX-FLET 
    ==>
      (FLET ((#:FORM-FUN-[MSG-HOOK]4 ()
               (LET (#)
                 (DESCRIBE LITHT::MESSAGE)
                 (CL-IRC:PRIVMSG CL-IRC:CONNECTION "#bots" #)))
             (#:FUN[MSG-HOOK]1 (STRING= (LAST #) "ohi litht")