Skip to content
Browse files

Support starting from the sbcl-runtime image.

  • Loading branch information...
1 parent 23ee5a0 commit 224c9914266a93ff1f0c27799f4b3b0238c9301a @angavrilov committed Dec 15, 2011
Showing with 9 additions and 1 deletion.
  1. +4 −1 start.lisp
  2. +5 −0 start.sh
View
5 start.lisp
@@ -1,4 +1,7 @@
+#+quicklisp
(ql:quickload :cl-linux-debug.gui)
+#-quicklisp
+(asdf:load-system :cl-linux-debug.gui)
(defpackage :work
(:use :common-lisp
@@ -17,7 +20,7 @@
(load "df-code.lisp")
-(defvar *process* (start-debug (progn (format t "Enter process ID: ") (read))))
+(defvar *process* (start-debug (progn (format t "Enter process ID:~%") (read))))
(defvar *memory* (make-memory-mirror *process* 'object-memory-mirror))
(define-symbol-macro global *memory*)
View
5 start.sh
@@ -0,0 +1,5 @@
+#!/bin/bash
+./sbcl-runtime --dynamic-space-size 1500 \
+ --no-sysinit --no-userinit \
+ --eval '(pushnew "cl-linux-debug/" asdf:*central-registry*)' \
+ --load start.lisp --eval '(in-package :work)'

0 comments on commit 224c991

Please sign in to comment.
Something went wrong with that request. Please try again.