|
Server IP : 172.16.15.8 / Your IP : 3.133.152.26 Web Server : Apache System : Linux zeus.vwu.edu 4.18.0-553.27.1.el8_10.x86_64 #1 SMP Wed Nov 6 14:29:02 UTC 2024 x86_64 User : apache ( 48) PHP Version : 7.2.24 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /lib/sbcl/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;;; -*- 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:**;*.*.*"
#P"/usr/share/sbcl-source/**/*.*")))
(set-dispatch-macro-character #\# #\!
(lambda (stream bang arg)
(declare (ignore bang arg))
(read-line stream)
(values)))
(ignore-errors
(format t "~%Saving to sbcl-new.core...")
(sb-ext:gc :full t)
(sb-ext:save-lisp-and-die "sbcl-new.core"))