fixed a bug on the Double clj->cl, incremented project version

CHANGELOG.md

@@ -1,24 +1,13 @@
 # Change Log
 All notable changes to this project will be documented in this file. This change log follows the conventions of [keepachangelog.com](http://keepachangelog.com/).
 
-## [Unreleased]
-### Changed
-- Add a new arity to `make-widget-async` to provide a different widget shape.
-
-## [0.1.1] - 2020-10-16
-### Changed
-- Documentation on how to make the widgets.
-
-### Removed
-- `make-widget-sync` - we're all async, all the time.
-
-### Fixed
-- Fixed widget maker to keep working when daylight savings switches over.
-
-## 0.1.0 - 2020-10-16
+## [0.1.1] - 2020-11-06
 ### Added
-- Files from the new template.
-- Widget maker public API - `make-widget-sync`.
+- a examples folder
+- Keyword and nil are now supported by the CommonLispfiable protocol
+- Fixing the Double type on the CommonLispfiable protocol
+- the defun macro
+
+## 0.1.0 - 2020-11-04
+- First release
 
-[Unreleased]: https://github.com/your-name/abclj/compare/0.1.1...HEAD
-[0.1.1]: https://github.com/your-name/abclj/compare/0.1.0...0.1.1

project.clj

@@ -1,4 +1,4 @@
-(defproject abclj "0.1.0"
+(defproject abclj "0.1.1"
   :description "Armed Bear Clojure, dead easy Common Lisp interop"
   :url "https://www.github.com/lsevero/abclj"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

src/abclj/core.clj

@@ -364,14 +364,18 @@
            (cl-string obj))
   clojure.lang.Symbol (clj->cl [obj]
                         (cl-symbol obj))
+  clojure.lang.Keyword (clj->cl [obj]
+                         (cl-symbol obj))
   Float (clj->cl [obj]
           (cl-double obj))
-  Double (clj-cl [obj]
-           (cl-double))
+  Double (clj->cl [obj]
+           (cl-double obj))
   Boolean (clj->cl [obj]
             (if obj
               cl-t
               cl-nil))
+  nil (clj->cl [_]
+        cl-nil)
   Object (clj->cl [obj]
            obj))
 

test/abclj/core_test.clj

@@ -105,4 +105,5 @@
 (deftest cl-evaluate-test
   (testing
     (is (= 3 (cl->clj (cl-evaluate "(+ 1 2)"))))
-    (is (= 3 (cl->clj (cl-evaluate (cl-cons [(cl-symbol 'cl/+) 1 2 cl-nil])))))))
+    (is (= 3 (cl->clj (cl-evaluate (cl-cons [(cl-symbol 'cl/+) 1 2 cl-nil])))))
+    (is (= :EQUAL (cl->clj (cl-evaluate (cl-cons ['cl/if ['cl/= 1 1.0 nil] :equal :not-equal nil])))))))