Skip to content

Instantly share code, notes, and snippets.

@jasom

jasom/foo.patch Secret

Created January 3, 2018 04:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jasom/2b1b324a99c1bf0248dfcde364afe162 to your computer and use it in GitHub Desktop.
Save jasom/2b1b324a99c1bf0248dfcde364afe162 to your computer and use it in GitHub Desktop.
diff --git a/next/source/package.lisp b/next/source/package.lisp
index 6ec8de2..4f07ce4 100644
--- a/next/source/package.lisp
+++ b/next/source/package.lisp
@@ -9,7 +9,7 @@
#:push-key-chord))
(defpackage :interface
- (:use :common-lisp :ccl)
+ (:use :common-lisp #+ccl :ccl)
(:export
#:initialize
#:start
diff --git a/next/source/utility.lisp b/next/source/utility.lisp
index fd64072..0d7b6a5 100644
--- a/next/source/utility.lisp
+++ b/next/source/utility.lisp
@@ -15,7 +15,8 @@
(load-file *init-file-path*))
(defun start-swank ()
- (ccl::call-in-event-process
+ (#+ccl ccl::call-in-event-process
+ #-ccl progn
#'(lambda ()
(swank:create-server :port *swank-port* :dont-close t))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment