sbcl-install-clc.lisp

   1 ;;; -*- Mode: LISP; Package: CL-USER -*-
   2 ;;;
   3 ;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003
   4 ;;;
   5 ;;; License: LGPL v2
   6 ;;;
   7 (in-package "COMMON-LISP-USER")
   8
   9 (handler-case
  10     (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
  11   (error (e)
  12     (format t "~%Error during load of common-lisp-controller.lisp: ~A~%" e)
  13     (sb-sys:os-exit 1)))
  14
  15 (handler-case
  16     (common-lisp-controller:init-common-lisp-controller-v4 "sbcl")
  17   (error (e)
  18     (format t "~%Error running init-common-lisp-controller-v4: ~A~%" e)
  19     (sb-sys:os-exit 1)))
  20
  21 (when (probe-file #p"/etc/lisp.config")
  22   (load #p"/etc/lisp.config"))
  23
  24 (setf (logical-pathname-translations "SYS")
  25       '(("SYS:**;*.*.*"
  26          #P"/usr/share/sbcl-source/**/*.*")))
  27
  28 (set-dispatch-macro-character #\# #\!
  29   (lambda (stream bang arg)
  30     (declare (ignore bang arg))
  31     (read-line stream)
  32     (values)))
  33
  34 (ignore-errors
  35  (format t "~%Saving to sbcl-new.core...")
  36  (sb-ext:gc :full t)
  37  (sb-ext:save-lisp-and-die "sbcl-new.core"))