diff options
Diffstat (limited to 'dev-lisp/sbcl/files/0.9.7/install-clc.lisp')
-rw-r--r-- | dev-lisp/sbcl/files/0.9.7/install-clc.lisp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.9.7/install-clc.lisp b/dev-lisp/sbcl/files/0.9.7/install-clc.lisp new file mode 100644 index 000000000000..c8e0a93a729f --- /dev/null +++ b/dev-lisp/sbcl/files/0.9.7/install-clc.lisp @@ -0,0 +1,34 @@ +;;; -*- Mode: LISP; Package: CL-USER -*- +;;; +;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003 +;;; +;;; License: LGPL v2 +;;; +(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" + :purify t)) |