From mswank at common-lisp.net  Fri Feb 24 01:12:29 2012
From: mswank at common-lisp.net (mswank at common-lisp.net)
Date: Thu, 23 Feb 2012 17:12:29 -0800
Subject: [cl-kanren-trs-cvs] r5 - cl-kanren-trs
Message-ID: <E1S0ji1-0003Qn-U4@common-lisp.net>

Author: mswank
Date: Thu Feb 23 17:12:29 2012
New Revision: 5

Log:
Update defconst to work with recent sbcl.

Modified:
   cl-kanren-trs/kanren.lisp

Modified: cl-kanren-trs/kanren.lisp
==============================================================================
--- cl-kanren-trs/kanren.lisp	Thu Jun 19 23:15:28 2008	(r4)
+++ cl-kanren-trs/kanren.lisp	Thu Feb 23 17:12:29 2012	(r5)
@@ -29,11 +29,10 @@
 (common-lisp:in-package :kanren-trs)
 
 (defmacro defconst (name value &optional (documentation nil docp))
-  `(eval-when (:execute :load-toplevel :compile-toplevel)
-     (unless (boundp ',name)
-       ,(if docp
-            `(defconstant ,name ,value ,documentation)
-            `(defconstant ,name ,value)))))
+  (let ((global (intern (format nil "%%~A" (symbol-name name)))))
+    `(progn
+       (defvar ,global ,value ,@(and docp `(,documentation)))
+       (define-symbol-macro ,name (load-time-value ,global t)))))
 
 ;;;A -> stream
 (defmacro unit (a) a)



From mswank at common-lisp.net  Fri Feb 24 01:44:55 2012
From: mswank at common-lisp.net (mswank at common-lisp.net)
Date: Thu, 23 Feb 2012 17:44:55 -0800
Subject: [cl-kanren-trs-cvs] r6 - cl-kanren-trs/tests
Message-ID: <E1S0kDP-0005K4-Tw@common-lisp.net>

Author: mswank
Date: Thu Feb 23 17:44:55 2012
New Revision: 6

Log:
Removed unnecessary reference to stefil.

Modified:
   cl-kanren-trs/tests/kanren-trs-test.asd
   cl-kanren-trs/tests/packages.lisp

Modified: cl-kanren-trs/tests/kanren-trs-test.asd
==============================================================================
--- cl-kanren-trs/tests/kanren-trs-test.asd	Thu Feb 23 17:12:29 2012	(r5)
+++ cl-kanren-trs/tests/kanren-trs-test.asd	Thu Feb 23 17:44:55 2012	(r6)
@@ -28,4 +28,4 @@
     ((:file "packages")
      (:file "kanren-aux" :depends-on ("packages"))
      (:file "kanren-tests" :depends-on ("kanren-aux")))
-    :depends-on (:kanren-trs :stefil))
+    :depends-on (:kanren-trs))

Modified: cl-kanren-trs/tests/packages.lisp
==============================================================================
--- cl-kanren-trs/tests/packages.lisp	Thu Feb 23 17:12:29 2012	(r5)
+++ cl-kanren-trs/tests/packages.lisp	Thu Feb 23 17:44:55 2012	(r6)
@@ -22,4 +22,4 @@
 ;;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
 ;;; THE POSSIBILITY OF SUCH DAMAGE.
 (cl:defpackage :kanren-trs-test
-  (:use :cl :kanren-trs :stefil))
\ No newline at end of file
+  (:use :cl :kanren-trs))
\ No newline at end of file