Minor changes for compatibility with LispWorks.

Signed-off-by: Camille Troillard <camille@osculator.net>

.koans

@@ -25,5 +25,5 @@
  :dice-project
  :macros
  :scope-and-extent
- :threads
+ #+sbcl :threads
 )

contemplate.lsp

@@ -21,7 +21,7 @@
 (defpackage :lisp-koans
   (:use :common-lisp)
   (:use :lisp-unit)
-  (:use :sb-ext))
+  #+sbcl (:use :sb-ext))
 
 (in-package :lisp-koans)
 
@@ -53,8 +53,9 @@
   (let ((koan-file-name (concatenate 'string (string-downcase (string koan-group-name)) ".lsp")))
     (if *dp-loading* (format t "start loading ~A ~%" koan-file-name))
     (in-package :lisp-koans)
-    (make-package koan-group-name
-        :use '(:common-lisp :lisp-unit :sb-ext))
+    (unless (find-package koan-group-name)
+      (make-package koan-group-name
+                    :use '(:common-lisp :lisp-unit #+sbcl :sb-ext)))
     (setf *package* (find-package koan-group-name))
     (load (concatenate 'string *koan-dir-name* "/" koan-file-name))
     (incf *n-total-koans* (length (list-tests)))

koans/triangle-project.lsp

@@ -15,7 +15,7 @@
 
 "you need to write the triangle method"
 
-(define-condition triangle-error  (error) (()))
+(define-condition triangle-error  (error) ())
 
 (defun triangle (a b c)
   :write-me)