blob: 8ae9a3828dff25d3666116955e988c10a056e3b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;;; -*- Mode: LISP; Package: CL-USER -*-
;;;
;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003
;;;
;;; License: LGPL v2
;;;
;; This file is originally from the Debian project patch to SBCL
;; upstream.
(in-package "COMMON-LISP-USER")
(handler-case
(load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
(error (e)
(format t "~%Error during load of common-lisp-controller.lisp: ~A~%" e)
(sb-unix:unix-exit 1)))
(handler-case
(common-lisp-controller:init-common-lisp-controller-v4 "sbcl")
(error (e)
(format t "~%Error running init-common-lisp-controller-v4: ~A~%" e)
(sb-unix:unix-exit 1)))
(when (probe-file #p"/etc/lisp.config")
(load #p"/etc/lisp.config"))
(setf (logical-pathname-translations "SYS")
'(("SYS:SRC;**;*.*.*"
#P"/usr/share/sbcl/src/**/*.*")
("SYS:CONTRIB;**;*.*.*"
#P"/usr/share/sbcl/**/*.*")))
(ignore-errors
(format t "~%Saving to sbcl-new.core...")
(sb-ext:gc :full t)
(sb-ext:save-lisp-and-die "sbcl-new.core"))
|