~mdw
/
profile
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
faaae8d
)
dot/lisp-init.lisp: Work in the `mdw-hacks' package rather than `cl-user'.
author
Mark Wooding
<mdw@distorted.org.uk>
Sat, 27 Jun 2020 17:13:42 +0000
(18:13 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sat, 27 Jun 2020 17:13:42 +0000
(18:13 +0100)
dot/lisp-init.lisp
patch
|
blob
|
blame
|
history
diff --git
a/dot/lisp-init.lisp
b/dot/lisp-init.lisp
index
7f6e316
..
b374e54
100644
(file)
--- a/
dot/lisp-init.lisp
+++ b/
dot/lisp-init.lisp
@@
-1,7
+1,8
@@
-(defpackage #:mdw-hacks
+(
cl:
defpackage #:mdw-hacks
(:use #:cl)
(:export #:crank-swank))
(:use #:cl)
(:export #:crank-swank))
-(use-package '#:mdw-hacks)
+(cl:defparameter mdw-hacks::*previous-package* cl:*package*)
+(cl:in-package #:mdw-hacks)
;; Obtain ASDF from somewhere.
#+sbcl (require :asdf)
;; Obtain ASDF from somewhere.
#+sbcl (require :asdf)
@@
-61,3
+62,4
@@
;; Done.
(pushnew :mdw *features*)
;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)
;; Done.
(pushnew :mdw *features*)
;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)
+(setf *package* *previous-package*)