From 9af2290baca1a1a491adbb3ba4f2e27bd457b0bc Mon Sep 17 00:00:00 2001 Message-Id: <9af2290baca1a1a491adbb3ba4f2e27bd457b0bc.1718728656.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 27 Jun 2020 18:19:53 +0100 Subject: [PATCH] dot/lisp-init.lisp: Use actual variable names rather than gensyms. Organization: Straylight/Edgeware From: Mark Wooding This is OK now we're not fouling up the user's package. --- dot/lisp-init.lisp | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index b374e54..c15886a 100644 --- a/dot/lisp-init.lisp +++ b/dot/lisp-init.lisp @@ -27,13 +27,13 @@ (sb-ext:set-sbcl-source-location #p"/usr/share/sbcl-source/") ;; Tell some Lisps about my home directory. #+(and unix (or sbcl clisp)) -(let* ((#1=#:homestring (or #+sbcl (sb-ext:posix-getenv "HOME") - #+clisp (ext:getenv "HOME") - #+cmu (unix:unix-getenv "HOME") - "/home/mdw")) - (#2=#:home (pathname (concatenate 'string #1# "/")))) +(let* ((homestring (or #+sbcl (sb-ext:posix-getenv "HOME") + #+clisp (ext:getenv "HOME") + #+cmu (unix:unix-getenv "HOME") + "/home/mdw")) + (home (pathname (concatenate 'string homestring "/")))) (setf (logical-pathname-translations "HOME") - `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #2# nil))) + `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" home nil))) (logical-pathname-translations "CL") '(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*") ("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*")))) @@ -44,18 +44,18 @@ (let* ((#1=#:homestring (or #+sbcl (sb-ext:posix-getenv "HOME") ;; Shebang. (set-dispatch-macro-character #\# #\! - (lambda (#1=#:stream . #2=(#:char #:arg)) - (declare (ignore . #2#)) - (values (read-line #1#)))) + (lambda (stream char arg) + (declare (ignore char arg)) + (values (read-line stream)))) ;; Start up swank. -(defun mdw-hacks:crank-swank (&rest #1=#:args) - (let ((#2=#:swank #3=(find-package "SWANK"))) - (unless #2# +(defun crank-swank (&rest args) + (let ((swank (find-package "SWANK"))) + (unless swank (load "/usr/share/common-lisp/source/slime/swank-loader.lisp") - (setf #2# #3#)) - (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil) - (apply (find-symbol "CREATE-SERVER" #2#) #1#))) + (setf swank (find-package "SWANK"))) + (set (find-symbol "*GLOBAL-DEBUGGER*" swank) nil) + (apply (find-symbol "CREATE-SERVER" swank) args))) #+asdf (setf asdf:*compile-file-failure-behaviour* :warn) -- [mdw]