diff options
Diffstat (limited to 'dev-lisp/sbcl/files/0.9.4/install-clc.lisp')
-rw-r--r-- | dev-lisp/sbcl/files/0.9.4/install-clc.lisp | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/dev-lisp/sbcl/files/0.9.4/install-clc.lisp b/dev-lisp/sbcl/files/0.9.4/install-clc.lisp deleted file mode 100644 index c8e0a93a729f..000000000000 --- a/dev-lisp/sbcl/files/0.9.4/install-clc.lisp +++ /dev/null @@ -1,34 +0,0 @@ -;;; -*- 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)) |